Necesito un botón para bloquear todas las hojas y otro para desbloquear todas las hojas de un documento de excel
Quisiera un botón para bloquear Todas las hojas del documento, que al hacer click me pida la contraseña y se bloqueen todas las hojas.
Y otro botón que al darle click me pida la contraseña para desbloquear todas las hojas del documento y si la contraseña colocada es errónea de un mensaje de error de contraseña.
1 respuesta
Respuesta de Dante Amor
5
H o l a: Te anexo las macro.
Pon el siguiente código en un módulo:
Sub DesbloquearHojas()
'Por.Dante Amor
Call TratarHojas("DESBLOQUEAR", "u")
End Sub
'
Sub BloquearHojas()
'Por.Dante Amor
Call TratarHojas("BLOQUEAR", "p")
End Sub
'
Sub TratarHojas(texto, tipo)
'Por.Dante Amor
clave = InputBox("Escribe la clave: ", texto & " HOJAS")
If clave = "" Then Exit Sub
'
If clave = "abc" Then
For Each h In Sheets
If tipo = "u" Then h.Unprotect clave Else h.Protect clave
Next
MsgBox "Hojas Actualizadas", vbInformation, texto & " HOJAS"
Else
MsgBox "Clave incorrecta", vbExclamation, texto & " HOJAS"
End If
End SubAsigna la macro DesbloquearHojas al botón para desbloquear. Asigna la macro BloquearHojas al botón para Bloquear.
Cambia en la macro TratarHojas la clave "abc" por la contraseña que desees.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
