bloqueo archivo excel
Publicado por josito (7 intervenciones) el 09/06/2019 20:48:08
Buenas tardes,
He cargado en Thisworkbook este código para proteger las hojas, proteger las protege pero cuando quiero desbloquear y pongo la clave COCO, no se desbloquea ninguna de las hojas, ¿cual puede ser el problema?
Un saludo,
Josito
He cargado en Thisworkbook este código para proteger las hojas, proteger las protege pero cuando quiero desbloquear y pongo la clave COCO, no se desbloquea ninguna de las hojas, ¿cual puede ser el problema?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Workbook_Open()
Permanecer = True: Mensaje_Inicial: ChecarActividad
Application.ScreenUpdating = False
Set wb = ThisWorkbookFor Each ws In ThisWorkbook.Worksheetsws.Protect Password:="COCO", UserInterfaceONly:=True
Next
ActiveWorkbook.Sheets("Area 1").Select
ActiveWindow.Zoom = 85
ActiveWindow.Zoom = 86
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayHeadings = False
Application.DisplayFullScreen = True
Application.ScreenUpdating = True
End Sub
Un saludo,
Josito
Valora esta pregunta
0