Macro para permitir la eliminación de hojas en Excel
Tengo un libro de Excel con una macro en "thisworkbook" que no permite la eliminación de hojas:
Private Sub Workbook_SheetBeforeDelete(ByVal Sh As Object) ThisWorkbook.Protect Structure:=True
Este recurso es muy valido para los requisitos del libro. Pero me gustaria tambien que desde un formulario, apretando un boton, se quitase esta restriccion. He intentado mil maneras y no he dado con la solucion.
Lo ideal seria que por defecto no se pudiesen eliminar hojas del libro de Excel, y mediante un botón de un formulario de habilitase la opción.
1 respuesta
Puedes proteger el libro y poner un botón de formulario con la siguiente Macro:
Sub desproteger()
ThisWorkbook.Unprotect ("password")
End Sub
Luego puedes volver a proteger por menu o poner otro boton con la macro:
Sub desproteger()
ThisWorkbook.protect ("password")
End Sub
o poner en una macro para antes de cerrar que se proteja:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Protect ("password")
End Sub
¡Gracias Victor Rodriguez!
Lo que me comentas en la respuesta ya lo tenia en mente, no es del todo lo que buscaba, pero ahora que lo he releído he tenido un momento de lucidez y creo que me va a funcionar con un par de combinaciones. Muchísimas gracias.
Cordialmente,
Sergio
