BLOQUEAR OPCIÓN ELIMINAR DE UNA HOJA EN PARTICULAR

[Leonardo Briceño]

Hola amigos de Ayuda Excel

Quería consultar si hay alguna opción en VBA de bloquear la opción de "ELIMINAR" una hoja en particular de un libro. La opción de proteger el libro no me sirve pues necesito que otras opciones del menú de la hoja estén activas.

Gracias

[Antoni]

Protege la hoja.

[tierra_pampa]

Hola @Leonardo Briceño

Intenta insertando este código en la misma hoja que quieres proteger.

Prueba y coméntanos.

Qué tengas un buen día! Suerte!

Private Sub Worksheet_Activate()
ThisWorkbook.Protect "No_Se_Puede_Eliminar_La_Hoja", True, False
End Sub

Private Sub Worksheet_Deactivate()
ThisWorkbook.Protect "No_Se_Puede_Eliminar_La_Hoja", False, False
End Sub

 

[Leonardo Briceño]

Hace 5 horas, Antoni dijo:

Protege la hoja

Buenos días @Antoni. Tengo la hoja protegida pero la opción de ELIMINAR sigue activa en el menú de la hoja. 

[Leonardo Briceño]

Hace 5 horas, tierra_pampa dijo:

Intenta insertando este código en la misma hoja que quieres proteger

Hola @tierra_pampa gracias por la respuesta. Hice la prueba pero protege todo el libro. La opción ELIMINAR no está activa en todas las hojas. Necesito que sea una hoja determinada que tenga bloqueada esa opción.

[Antoni]

 

Hace 1 hora, Leonardo Briceño dijo:

Hola @tierra_pampa gracias por la respuesta. Hice la prueba pero protege todo el libro. La opción ELIMINAR no está activa en todas las hojas. Necesito que sea una hoja determinada que tenga bloqueada esa opción.

Pues es verdad, pon estas macros en la hoja en la que quieras evitar su eliminación.

Private Sub Worksheet_Activate()
ThisWorkbook.Protect
End Sub
 
Private Sub Worksheet_Deactivate()
ThisWorkbook.Unprotect
End Sub

 

[Leonardo Briceño]

Excelente @Antoni gracias!!!??