Desbloquear Hoja Protegida de Excel

-
Esta en una macro que te ayuda a desbloquear cualquier hoja que este protegida de Excel, hay varios Códigos que te desbloquean las hojas pero este fue el primero que encontré.

Sub Descubrir_contraseña()
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
Contraseña = 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 Contraseña
If ActiveSheet.ProtectContents = False Then
MsgBox "¡Enorabuena!" & vbCr & "La hoja ha sido desbloqueada"
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub


Comentarios

Publicar un comentario

Entradas populares de este blog

Macro para convertir Mayusculas a Minusculas y Viceversa en TextBox

-
Una macro interesante que a varios les puede interesar, esta macro no necesita códigos ascii. La primera es para que en un textbox solo sean letras Mayúsculas al escribir sobre esté. Private Sub TextBox1_Change() Dim I As Integer TextBox1.Text = UCase(TextBox1.Text) I = Len(TextBox1.Text) TextBox1.SelStart = I End Sub y esta otra es para letras Minúsculas aunque en el teclado este activado la letra de Mayúsculas Private Sub TextBox2_Change() Dim I As Integer TextBox2.Text = LCase(TextBox2.Text) I = Len(TextBox2.Text) TextBox2.SelStart = I End Sub Espero y les sirva, Saludos.
Leer más

Varias Formas de Cerrar Un Libro de Excel

-
Buscando en Internet me encontré con otras macros interesantes de varias formas de Cerrar un Libro de Excel, cada una tiene un botón diferente. Cerrar Excel con un botón: Private Sub CommandButton1_Click() Application.Quit End Sub Cerrar Excel sin Notificaciones: Private Sub CommandButton2_Click() Application.DisplayAlerts = False Application.Quit End Sub Guardar Libro Activo y Cerrarlo: Private Sub CommandButton3_Click() ActiveWorkbook.Save Application.Quit End Sub Guardar Todos los Libros Abiertos y Cerrar Excel: Private Sub CommandButton4_Click() Dim wb As Workbook For Each wb In Workbooks     wb.Save Next Application.Quit End Sub Esta es un macro que cierra el libro en un tiempo, este código esta para que el libro se cierre en 2 horas 30 minutos, el tiempo se lo pueden modificar, si lo quieren en 1 minuto solo ponen  ("00:01:00") , por 10 minutos  ("00:10:00") , a si sucesivamente. Este código va en los eventos del libro (This...
Leer más