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!
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 de bacter582
1