Sobre celdas bloqueadas

Gracias KL por la reflexión:

A ver, sobre la probabilidad que un usuario seleccione o utilice celdas
mediante esta barra veo que (en mi empresa todos son usuarios bajos) es
minima y es más una cuestión personal de fastidio, he pensado en usar
Displayformulabar = false en el mismo procedimiento que me has dado
anteriormente y el contrario al salir del archivo, para que cualquier otro
archivo tenga esta barra.

De todas formas este era un paso no tan importante, más de estetica. El
importante me lo has dado tú, el cual me había sido imposible de encontrar.
Gracias por tu ayuda, un saludo y Felices Fiestas. Juan Carlos.

un saludo y Felices Fiestas. Juan Carlos.

Lo mismo digo!

KL

A ver, sobre la probabilidad que un usuario seleccione o utilice celdas
mediante esta barra veo que (en mi empresa todos son usuarios bajos) es
minima y es mas una cuestion personal de fastidio, he pensado en usar
Displayformulabar = false en el mismo procedimiento que me has dado
anteriormente

Se me ocurre q el usario q sepa usar la barra de formulas para ir a rangos
denominados, probablemente sabria ir Herramientas>Opciones...etc y
restablecer la barra :)

...y el contrario al salir del archivo, para que cualquier otro

archivo tenga esta barra.

Solo una cosa: ?que pasa si por alguna razon el usuario no suele tener la
barra de formulas a la vista (yo q se, tal vez para tener mas espacio o
quizas porque le deprima verla)? Creo q le va a fastidiar mogollon el tener
q ocultarla cada vez q cierre tu fichero, eh! Lo que podrias hacer, es, al
abrir el fichero, tomar nota del estado de la barra de formulas y luego
actuar segun la situacion:

Private Sub Workbook_Open()
'Apuntamos el estado de la barra de formulas del usuario
Me.Sheets("Hoja2").Cells(1, 2).Value = _
Application.DisplayFormulaBar

'Ocultamos la barra de formulas
Application.DisplayFormulaBar=True

'Sustituye Hoja1 con el nombre de la
'hoja q quieres proteger.
Me.Sheets("Hoja1").EnableSelection = _
xlUnlockedCells
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Restablecemos el estado inicial de la barra de formulas del usuario
If Me.Sheets("Hoja2").Cells(1, 2).Value = True Then _
Application.DisplayFormulaBar = True
End Sub

Saludos,
KL