Codi VBA per desbloquejar un full Excel bloquejat: 4 passos
Codi VBA per desbloquejar un full Excel bloquejat: 4 passos

Taula de continguts:

Anonim
Codi VBA per desbloquejar un full Excel bloquejat
Codi VBA per desbloquejar un full Excel bloquejat
Codi VBA per desbloquejar un full Excel bloquejat
Codi VBA per desbloquejar un full Excel bloquejat

Si mai heu oblidat una contrasenya per a un dels vostres fulls de treball Excel, sabreu el frustrant que pot ser. El codi utilitzat en aquesta instrucció és un dels més senzills que he trobat. Generarà un codi utilitzable que desbloquejarà el full protegit. No puc tenir crèdit pel codi, ja que només el vaig trobar en un moment de necessitat (i ja no puc trobar on es troba el lloc) … així que, no seré de molta ajuda si no us funciona, però ho tinc Vaig tenir èxit i vaig pensar que compartiria.

Pas 1: obriu VBA

Obre VBA
Obre VBA

Obriu el full de treball on oblideu la vostra contrasenya. Utilitzeu Alt + F11 per introduir l’editor de macro. Un cop a VBA feu doble clic al full que heu de desbloquejar des del llistat de menú de l’esquerra. Això obrirà la pàgina de declaracions generals del full.

Pas 2: tallar i enganxar el trencador de codi

Tallar i enganxar el trencador de codi
Tallar i enganxar el trencador de codi

Introduïu el codi següent a la pàgina de declaracions generals que heu obert. No hauríeu de canviar res, nom del full, etc. Només heu de tallar i enganxar._ Sub PasswordBreaker () 'Trenca la protecció amb contrasenya del full de treball. k Com IntegerDim l Com Integer, m Com Enter, n Com Integer Dim i1 Com Enter, i2 Com Integer, i3 Com Integer Dim i4 Com Integer, i5 Com Integer, i6 Com Integer Si hi ha un error Reprèn el següent Per a i = 65 a 66: Per a j = 65 a 66: per a k = 65 a 66 per a l = 65 a 66: per a m = 65 a 66: per a i1 = 65 a 66 per a i2 = 65 a 66: per a i3 = 65 a 66: per a i4 = 65 A 66 Per a i5 = 65 A 66: Per a i6 = 65 A 66: Per a n = 32 A 126 ActiveSheet. Desprotegiu Chr (i) i Chr (j) & Chr (k) & _ Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & Chr (i3) & _Chr (i4) & Chr (i5) & Chr (i6) & Chr (n) If ActiveSheet. ProtectContents = False Then MsgBox "One password usable is" & Chr (i) & Chr (j) & _ Chr (k) & Chr (l) & Chr (m) & Chr (i1) & Chr (i2) & _ Chr (i3) & Chr (i4) & Chr (i5) & Chr (i6) & Chr (n) Surt de subfin Si Següent: Següent: Següent: Següent: Següent Següent Següent: Següent: Següent: Següent: Següent: Següent Final Sub_

Pas 3: executeu la macro

Executeu la macro
Executeu la macro

Un cop afegit el codi, executeu la macro seleccionant Executa a la barra de pestanyes del menú a la part superior de la pantalla de l'editor VBA o simplement premeu F5

Pas 4: utilitzeu el codi generat

Utilitzeu el codi generat
Utilitzeu el codi generat
Utilitzeu el codi generat
Utilitzeu el codi generat
Utilitzeu el codi generat
Utilitzeu el codi generat

La macro us tornarà al full de treball que voleu desprotegir. Apareixerà un quadre d'estil d'alerta amb un codi útil. A la pestanya del menú Revisa, feu clic a Desprotegiu el full. Introduïu el codi generat com a contrasenya i ja heu acabat. El full s'ha de desbloquejar. Heu d'utilitzar aquest poder amb prudència i responsabilitat només per desbloquejar els vostres propis fulls de càlcul.