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

Aunque esta idea no es a través de una macro pero consigues lo mismo si
protejes el libro.


Fer wrote:

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

El codigo q me has mandado donde lo copio podrias ayudarme
donde es donde tengo q ponerlo gracias

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