Andre tiene un libro de trabajo que contiene 52 hojas de trabajo. Le gustaría proteger las hojas de trabajo, pero no el libro en sí. Actualmente protege individualmente las 52 hojas. Se pregunta si hay alguna forma de protegerlos a todos de una vez.

La única forma de hacer esto es usar una macro. Afortunadamente, la macro es bastante corta:

Sub ProtectAllSheets()

Dim ws As Worksheet

For Each ws In Worksheets         ws.Protect     Next End Sub

Cuando ejecuta esta macro, todas las hojas de trabajo del libro están protegidas, sin especificar una contraseña. (Esto significa que cualquiera puede desprotegerlos fácilmente). Si desea especificar una contraseña, puede hacerlo con una sencilla modificación:

Sub ProtectAllSheets()

Dim ws As Worksheet

For Each ws In Worksheets         ws.Protect Password:="MyPassword"

Next End Sub

La contraseña que especifique se utilizará para cada una de las hojas de trabajo, lo que significa que todas usarán la misma contraseña.

Puede modificar fácilmente estas macros para desproteger todas sus hojas de trabajo simplemente cambiando el método .Protect a .Unprotect.

También debe tener en cuenta que si su libro u hojas de trabajo utilizan algunas opciones que excluyen la protección de la hoja de trabajo (como compartir), las macros generarán un error.

Un enfoque completamente diferente es utilizar una utilidad de terceros para proteger. Puede encontrar estas utilidades con una búsqueda rápida en Internet; un ejemplo sería Asap Utilities (http://www.asap-utilities.com).

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

Este consejo (7511) se aplica a Microsoft Excel 2007, 2010, 2013 y 2016.