Ocultar barra de fórmulas
Hola de nuevo
¿Cómo puedo hacer para que en un libro Nunca se pueda ver la barra de fórmulas por ningún usuario a excepción de mi?
Muchas gracias de antemano
¿Cómo puedo hacer para que en un libro Nunca se pueda ver la barra de fórmulas por ningún usuario a excepción de mi?
Muchas gracias de antemano
1 respuesta
Respuesta de valedor
1
Usa la siguiente macro...
Public Sub DeshabilitarBarraFormulas()
Dim cCtl As CommandBarControl
Application.DisplayFormulaBar = False
Set cCtl = CommandBars.FindControl(ID:=849)
If Not cCtl Is Nothing Then cCtl.Enabled = False
Set cCtl = Nothing
End Sub
Como la deshabilitamos con codigo, hay que habilitarla con codigo...
Public Sub HabilitarBarraFormulas()
Dim cCtl As CommandBarControl
Application.DisplayFormulaBar = True
Set cCtl = CommandBars.FindControl(ID:=849)
If Not cCtl Is Nothing Then cCtl.Enabled = True
Set cCtl = Nothing
End Sub
Public Sub DeshabilitarBarraFormulas()
Dim cCtl As CommandBarControl
Application.DisplayFormulaBar = False
Set cCtl = CommandBars.FindControl(ID:=849)
If Not cCtl Is Nothing Then cCtl.Enabled = False
Set cCtl = Nothing
End Sub
Como la deshabilitamos con codigo, hay que habilitarla con codigo...
Public Sub HabilitarBarraFormulas()
Dim cCtl As CommandBarControl
Application.DisplayFormulaBar = True
Set cCtl = CommandBars.FindControl(ID:=849)
If Not cCtl Is Nothing Then cCtl.Enabled = True
Set cCtl = Nothing
End Sub
