¡Al Fin! Ya Puedes Desbloquear Tu Hoja Excel.
¡Al Fin! Ya Puedes Desbloquear Tu Hoja Excel.
¡Al Fin! Ya Puedes Desbloquear Tu Hoja Excel.
YA PUEDES DESBLOQUEAR
TU HOJA EXCEL.
Te ha pasado que el anterior empleado dej una planilla de Excel que haca
varios
clculos,
pero
la
hoja
est bloqueada
con
contrasea?
El cdigo
A continuacin te dejo el cdigo que debes pegar en la
ventana del editor de Visual Basic. Cpialo tal cual lo tienes
dentro del siguiente recuadro y pgalo donde corresponde,
siguiendo las instrucciones.
Option Explicit
Sub DesbloquearHoja()
Dim Contrasenia As String
Dim a As Integer, b As Integer, c As Integer
Dim d As Integer, e As Integer, f As Integer
Dim a1 As Integer, a2 As Integer, a3 As Integer
Dim a4 As Integer, a5 As Integer, a6 As Integer
On Error Resume Next
For a = 65 To 66: For b = 65 To 66: For c = 65 To 66
For d = 65 To 66: For e = 65 To 66: For a1 = 65 To 66
For a2 = 65 To 66: For a3 = 65 To 66: For a4 = 65 To 66
For a5 = 65 To 66: For a6 = 65 To 66: For f = 32 To 126
Contrasenia = Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(a1) _
& Chr(a2) & Chr(a3) & Chr(a4) & Chr(a5) & Chr(a6) & Chr(f)
ActiveSheet.Unprotect Contrasenia
If ActiveSheet.ProtectContents = False Then
MsgBox "Lo he logrado!" & vbCr & _
"La Contrasea es:" & vbCr & Contrasenia
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
debe
considerarse
una
medida
de
seguridad