¿Cómo crear una macro para bloquear y desbloquear la clave de las hojas de un libro?
Un amigo me enseño una macro para quitar la password de todas las hojas de un libro y luego volver a ponerla, funcionaba bien pero hace poco me arroja un error"se ha producido el error '1004'en tiempo de ejecución:Error en el método Select de la Clase worksheet" esta es la macro.
Sub DesprotegerHojas()
Dim i As Integer, HojaActual As Integer
Application.ScreenUpdating = False
HojaActual = ActiveSheet.Index 'es para después restaurar
For i = 1 To Sheets.Count
Sheets(i).Select
ActiveSheet.Unprotect "eeee"
Next i
Sheets(HojaActual).Select
Application.ScreenUpdating = True
End Sub
Sub ProtegerHojas()
Dim i As Integer, HojaActual As Integer
Application.ScreenUpdating = False
HojaActual = ActiveSheet.Index 'es para después restaurar
For i = 1 To Sheets.Count
Sheets(i).Select
ActiveSheet.Protect "eeee"
Next i
Sheets(HojaActual).Select
Application.ScreenUpdating = True
End Sub
1 respuesta
H o l a:
Supongo que tienes alguna hoja oculta, para eso te anexo las macro actualizadas:
Sub DesprotegerHojas() Dim i As Integer For i = 1 To Sheets.Count Sheets(i).Unprotect "eeee" Next i End Sub ' Sub ProtegerHojas() Dim i As Integer For i = 1 To Sheets.Count Sheets(i).Protect "eeee" Next i End Sub
' : ) 'S aludos. Dante Amor. R ecuerda valorar la respuesta. G racias ' : )
R ecuerda valorar la respuesta. G racias ' : )
