Eliminar encabezados de filas y columnas y etiquetas de hojas

Hola:

Se me ocurre hacer esto en ThisWorkbook (para el tema de etiquetas, con lo
otro es lo mismo)

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)
If ActiveWindow.DisplayWorkbookTabs = True Then
ActiveWindow.DisplayWorkbookTabs = False
End If
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveWindow.DisplayWorkbookTabs = True Then
ActiveWindow.DisplayWorkbookTabs = False
End If
End Sub

Pero tiene algunos inconvenientes: (seguro que hay una solución mucho mejor)
1º se relentiza
2º si entro sin habilitar macros, las puedo poner sin problemas

Saludos, fer



"Daniel Padilla" escribió en el
mensaje news:79ce01c49525$4e62e890$

Alguein sabe com puedo elimimar los encabezados de filas y
columnas y ocultas las etiquetas de hojas de un libro de
excel mediante una macro pero q quede bloqueado para q
cuando vayan a herramientas opciones no puedan activar
dichas opciones escribir por favor si alguien me puede
ayudar al correo

Gracias de antemano