Macro para proteger todas las hojas
Cómo hago una macro para que al momento de cerrar el archivo, toda la información quede bloqueada. Tengo varias hojas y necesito que al cerrar el archivo todos los datos de todas las hojas queden protegidas.
Gracias por la ayuda
1 Respuesta
Respuesta de Dante Amor
1
Pon la siguiente macro en los eventos de Thisworkbook
Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Por.Dante Amor pwd = "abc" On Error Resume Next For Each h In Sheets h.Unprotect pwd h.Cells.Locked = False h.UsedRange.SpecialCells(xlCellTypeConstants, 23).Locked = True h.UsedRange.SpecialCells(xlCellTypeFormulas, 23).Locked = True ActiveSheet.Protect pwd, False, True, False, True, True, _ True, True, True, True, True, True, True, True, True Next ThisWorkbook.Save End Sub
Instrucciones para poner la macro en los eventos ThisWorkbook
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a ThisWorkbook
- Del lado derecho copia la macro
Saludos. Dante Amor
