Poner contraseña a hojas con macro
Tengo las siguientes macros
Sub proteger() Dim sh As Worksheet For Each sh In Sheets sh.Protect Next End Sub
Para desproteger:
Sub DESproteger() Dim sh As Worksheet For Each sh In Sheets sh.Unprotect Next End Sub
necesito poner una contraseña que me la pida para desbloquear pero al bloquearla la ponga de manera automatica , la contraseña seria Beti2024
1 respuesta
Respuesta de Dante Amor
3
Prueba lo siguiente:
Sub proteger() Dim sh As Worksheet For Each sh In Sheets sh.Protect "Beti2024" Next End Sub
Sub DESproteger()
Dim sh As Worksheet
Dim contra As Variant
contra = InputBox("Entra contraseña: ")
If contra = "" Then Exit Sub
If contra = "Beti2024" Then
For Each sh In Sheets
sh.Unprotect contra
Next
Else
MsgBox "Contraseña incorrecta"
End If
End SubRecomendaciones:
Sal u dos
Dante Amor
Dante tengo un problema con una macro q me hiciste vos. Funcionaba perfecto pero tuve que reinstalar el Windows y el Office y ahora dejó de funcionar era una macro que guardaba el archivo en una carpeta específica no importara si lo habría en una PC o en otra pero ahora me tira un error 1004 existe la posibilidad de que te la pueda mandar por mail?
Cierra esta consulta y envíame tu archivo con la macro.
Sal u dos
Dante Amor
