Todd ha desarrollado un libro de trabajo utilizado por otros. Para evitar que los datos se arruinen, ha protegido tanto la hoja de trabajo como el libro de trabajo. El problema es que Todd a veces se olvida de proteger la hoja de trabajo y el libro de trabajo después de realizar cambios. Se pregunta si hay una manera de crear un indicador visual que muestre si la hoja de trabajo / libro de trabajo está actualmente protegido o desprotegido.

Por supuesto, la forma más fácil de verificar si algo está desprotegido es simplemente comenzar a mirar las herramientas en las distintas pestañas de la cinta. Si la gama completa de herramientas está allí, la hoja de trabajo y el libro de trabajo están desprotegidos. Si hay una cantidad significativa de herramientas que no están disponibles («atenuadas»), la protección está activada.

Otra solución sencilla es crear una función definida por el usuario que devuelva un valor que indique si el libro o la hoja de trabajo están protegidos. Lo siguiente hará el truco:

Function WksProtected(rng As Range) As String     Application.Volatile     If rng.Parent.ProtectContents Then         WksProtected = "Protected"

Else         WksProtected = "Not Protected"

End If End Function
Function WkbProtected(rng As Range) As String     Application.Volatile     If rng.Parent.Parent.ProtectStructure Then         WkbProtected = "Protected"

Else         WkbProtected = "Not Protected"

End If End Function

Para usar las macros, simplemente incluya fórmulas como las siguientes en cualquier lugar de la hoja de trabajo:

=WksProtected(A1)

=WkbProtected(A1)

El resultado de las fórmulas es «Protegido» o «No protegido»

dependiendo del estado de las hojas de trabajo y el libro de trabajo. Puede usar formato condicional para resaltar las celdas en función de lo que devuelven las funciones.

Recuerde: el valor de las funciones solo se actualiza si se recalcula la hoja de trabajo. Si todo lo que hace es proteger (o desproteger) la hoja de trabajo, eso no da como resultado que la hoja de trabajo se vuelva a calcular. Entonces, para ver los resultados correctos después de cambiar el estado de protección, deberá asegurarse de volver a calcular la hoja de trabajo.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (9639) se aplica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 y Excel en Office 365. Puede encontrar una versión de este consejo para la interfaz de menú anterior de Excel aquí:

link: / excel-Visually_Showing_a_Protection_Status [Visualización visual de un estado de protección].