{"id":125,"date":"2013-12-13T14:49:56","date_gmt":"2013-12-13T18:49:56","guid":{"rendered":"http:\/\/agiltools.com\/blogsp\/?p=125"},"modified":"2015-08-02T22:05:16","modified_gmt":"2015-08-03T04:05:16","slug":"macro-excel-desproteger","status":"publish","type":"post","link":"https:\/\/agiltools.com\/blogsp\/macro-excel-desproteger\/","title":{"rendered":"Macro Excel para desproteger una hoja de c\u00e1lculo"},"content":{"rendered":"<div id=\"dslc-theme-content\"><div id=\"dslc-theme-content-inner\"><p>Les ha pasado alguna vez que reciben una hoja de excel protegida y no saben como modificarla? Existe una manera de desbloquearla con una macro sencilla que se basea\u00a0en\u00a0el m\u00e9todo de <a title=\"Fuerza bruta\" href=\"http:\/\/es.wikipedia.org\/wiki\/Ataque_de_fuerza_bruta\" target=\"_blank\">fuerza bruta<\/a>.\u00a0Solo necesita ingresar al editor de visual basic (<code>Alt + F11<\/code>)\u00a0e insertar el siguiente c\u00f3digo:<\/p>\n<pre class=\"lang:vb decode:true\">Sub DESPROTEGER()\r\nDim I As Integer, j As Integer, k As Integer, l As Integer, m As Integer, N As Integer\r\nOn Error Resume Next\r\nFor I = 65 To 66\r\nFor j = 65 To 66\r\nFor k = 65 To 66\r\nFor l = 65 To 66\r\nFor m = 65 To 66\r\nFor i1 = 65 To 66\r\nFor i2 = 65 To 66\r\nFor i3 = 65 To 66\r\nFor i4 = 65 To 66\r\nFor i5 = 65 To 66\r\nFor i6 = 65 To 66\r\nFor N = 32 To 126\r\nActiveSheet.Unprotect Chr(I) &amp; Chr(j) &amp; Chr(k) &amp; Chr(l) &amp; Chr(m) &amp; Chr(i1) &amp; Chr(i2) &amp; Chr(i3) &amp; Chr(i4) &amp; Chr(i5) &amp; Chr(i6) &amp; Chr(N)\r\nIf ActiveSheet.ProtectContents = False Then\r\nMsgBox \"Ok\"\r\nExit Sub\r\nEnd If\r\nNext\r\nNext\r\nNext\r\nNext\r\nNext\r\nNext\r\nNext\r\nNext\r\nNext\r\nNext\r\nNext\r\nNext\r\nEnd Sub<\/pre>\n<p>Finalmente\u00a0debe llamar (ejecutar) la macro <span style=\"text-decoration: underline;\">Unprotect <\/span>desde la hoja que quiere desproteger y listo.<\/p>\n<p><strong>Atenci\u00f3n:<\/strong> Este m\u00e9todo es efectivo, sin embargo tiene un inconveniente y es que si bien permite desbloquear la hoja, no permite conocer el c\u00f3digo para luego bloquearla en su estado original. Vale la pena saber esto antes de ejecutarlo.<\/p>\n<div class=\"sharedaddy sd-sharing-enabled\"><div class=\"robots-nocontent sd-block sd-social sd-social-icon-text sd-sharing\"><div class=\"sd-content\"><ul><li class=\"share-twitter\"><a rel=\"nofollow noopener noreferrer\" data-shared=\"sharing-twitter-125\" class=\"share-twitter sd-button share-icon\" href=\"https:\/\/agiltools.com\/blogsp\/macro-excel-desproteger\/?share=twitter\" target=\"_blank\" title=\"Click to share on Twitter\"><span>Twitter<\/span><\/a><\/li><li class=\"share-facebook\"><a rel=\"nofollow noopener noreferrer\" data-shared=\"sharing-facebook-125\" class=\"share-facebook sd-button share-icon\" href=\"https:\/\/agiltools.com\/blogsp\/macro-excel-desproteger\/?share=facebook\" target=\"_blank\" title=\"Click to share on Facebook\"><span>Facebook<\/span><\/a><\/li><li class=\"share-end\"><\/li><\/ul><\/div><\/div><\/div><\/div><\/div>","protected":false},"excerpt":{"rendered":"<p>Les ha pasado alguna vez que reciben una hoja de excel protegida y no saben como modificarla? Existe una manera de desbloquearla con una macro sencilla que se basea\u00a0en\u00a0el m\u00e9todo de fuerza bruta.\u00a0Solo necesita ingresar al editor de visual basic (Alt + F11)\u00a0e insertar el siguiente c\u00f3digo: Sub DESPROTEGER() Dim I As Integer, j As [&hellip;]<\/p>\n<div class=\"sharedaddy sd-sharing-enabled\"><div class=\"robots-nocontent sd-block sd-social sd-social-icon-text sd-sharing\"><div class=\"sd-content\"><ul><li class=\"share-twitter\"><a rel=\"nofollow noopener noreferrer\" data-shared=\"sharing-twitter-125\" class=\"share-twitter sd-button share-icon\" href=\"https:\/\/agiltools.com\/blogsp\/macro-excel-desproteger\/?share=twitter\" target=\"_blank\" title=\"Click to share on Twitter\"><span>Twitter<\/span><\/a><\/li><li class=\"share-facebook\"><a rel=\"nofollow noopener noreferrer\" data-shared=\"sharing-facebook-125\" class=\"share-facebook sd-button share-icon\" href=\"https:\/\/agiltools.com\/blogsp\/macro-excel-desproteger\/?share=facebook\" target=\"_blank\" title=\"Click to share on Facebook\"><span>Facebook<\/span><\/a><\/li><li class=\"share-end\"><\/li><\/ul><\/div><\/div><\/div>","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_mi_skip_tracking":false,"spay_email":""},"categories":[21],"tags":[23,112,22,24],"jetpack_featured_media_url":"","jetpack_likes_enabled":true,"jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/agiltools.com\/blogsp\/wp-json\/wp\/v2\/posts\/125"}],"collection":[{"href":"https:\/\/agiltools.com\/blogsp\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/agiltools.com\/blogsp\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/agiltools.com\/blogsp\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/agiltools.com\/blogsp\/wp-json\/wp\/v2\/comments?post=125"}],"version-history":[{"count":10,"href":"https:\/\/agiltools.com\/blogsp\/wp-json\/wp\/v2\/posts\/125\/revisions"}],"predecessor-version":[{"id":547,"href":"https:\/\/agiltools.com\/blogsp\/wp-json\/wp\/v2\/posts\/125\/revisions\/547"}],"wp:attachment":[{"href":"https:\/\/agiltools.com\/blogsp\/wp-json\/wp\/v2\/media?parent=125"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/agiltools.com\/blogsp\/wp-json\/wp\/v2\/categories?post=125"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/agiltools.com\/blogsp\/wp-json\/wp\/v2\/tags?post=125"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}