Libro de Excel SE DESBLOQUEA tras ejecutar Macro

Tengo un libro de Excel, el cual se bloquea desde el inicio con:
Private Sub Workbook_Open()
ActiveSheet.Protect "123456"
End Sub
Si voy a REVIEW-->UNPROTECT SHEET, efectivamente, está bloqueado por el password: 123456.
Para que las macros de filtrado e inserción datos etc, lo que hago es desproteger y proteger en cada función:
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Private Sub CheckBox3_Click()  '<--- este POR EJEMPLO me filtra
ActiveSheet.Unprotect "123456"     '<-----aqui desproteje para que la macro funcione
If CheckBox1 = True And CheckBox2 = False And CheckBox3 = False Then
    Call macro1
    End If
If CheckBox1 = True And CheckBox2 = True And CheckBox3 = False Then
    Call macro5
    End If
     .....
     ..... 'etc,etc
     ......
    ActiveSheet.Protect "123456"    '<----Aqui vuelve a bloquear la hoja
    With ActiveSheet
    .Protect , AllowFiltering:=True
    .EnableSelection = xllockedCells
    End With
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
El problema es que en teoría debe quedar bloqueado con el password, pero después de ejecutar el macro el libro queda bloqueado pero SIN CONTRASEÑA
esto lo compruebo porque voy a la pestaña REVIEW-->UNPROTECT SHEET
y me la desbloquea sin pedirme ningún password!
Por favor espero su AYUDA! .. Mil gracias!

1 respuesta

Respuesta
1
Con esta instrucción al iniciar tu userform desactivas la hoja solo para los macros
ActiveSheet.Protect UserInterfaceOnly:=True, Password:="*.123456"

Añade tu respuesta

Haz clic para o
El autor de la pregunta ya no la sigue por lo que es posible que no reciba tu respuesta.

Más respuestas relacionadas