Saltar al contenido principal

¿Cómo proteger varias hojas de trabajo a la vez en Excel?

Supongamos que tiene un libro de trabajo que contiene varias hojas de trabajo, y ahora necesita proteger todas las hojas de trabajo o algunas hojas de trabajo específicas, normalmente en Excel, solo puede proteger la hoja una por una con la función Proteger hoja, pero este método es tedioso y requiere mucho tiempo si hay que proteger numerosas hojas. ¿Cómo se protegen varias hojas a la vez en Excel de forma rápida y sencilla?

Proteja todas las hojas a la vez con código VBA

Proteja varias hojas a la vez con Kutools para Excel

Desproteja varias hojas a la vez con kutools para Excel


flecha azul burbuja derecha Proteja todas las hojas a la vez con código VBA

Con el siguiente código VBA, puede proteger todas las hojas del libro activo a la vez con la misma contraseña, haga lo siguiente:

1. Mantenga pulsado el ALT + F11 llaves, y abre el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Ventana de módulo.

Código de VBA: proteja todas las hojas de trabajo en un libro de trabajo a la vez:

Sub protect_all_sheets()
top: 
pass = InputBox("password?") 
repass = InputBox("Verify Password") 
If Not (pass = repass) Then 
MsgBox "you made a boo boo" 
Goto top 
End If 
For i = 1 To Worksheets.Count 
If Worksheets(i).ProtectContents = True Then Goto oops 
Next 
For Each s In ActiveWorkbook.Worksheets 
s.Protect Password:=pass 
Next 
Exit Sub 
oops: MsgBox "I think you have some sheets that are already protected. Please unprotect all sheets then running this Macro." 
End Sub

3. Entonces presione F5 para ejecutar el código e ingrese la contraseña para las hojas protegidas en el cuadro de solicitud, vea la captura de pantalla:

doc-proteger-varias-hojas1-1

4. Hacer clic OKy luego ingrese la contraseña nuevamente para confirmarla.

doc-proteger-varias-hojas2-2

5. Luego haga clic OK, y todas las hojas han sido protegidas con la misma contraseña.


flecha azul burbuja derecha Proteja varias hojas a la vez con Kutools para Excel

A veces, no desea proteger todas las hojas de su libro de trabajo y solo desea proteger algunas hojas específicas; en esta situación, el código anterior no funcionará. Pero con Kutools for Excel, Proteger la hoja de trabajo utilidad, puede proteger todas las hojas y hojas específicas de forma rápida y sencilla.

Kutools for Excel : con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 60 días

Después de instalar Kutools for Excel, siga los siguientes pasos:

1. Hacer clic Kutools Más > Proteger la hoja de trabajo, ver captura de pantalla:

2. En la Proteger la hoja de trabajo cuadro de diálogo, seleccione las hojas que desea proteger. (De forma predeterminada, todas las hojas de trabajo dentro del libro de trabajo actual están marcadas). Ver captura de pantalla:

doc-proteger-varias-hojas4-4

3. Y haga clic en OKy luego escriba y confirme la contraseña en el cuadro de diálogo Proteger hoja de trabajo. Ver captura de pantalla:

doc-proteger-varias-hojas5-5

4. Luego haga clic OK, las hojas de trabajo seleccionadas han sido protegidas.

Haga clic en Proteger hoja de trabajo para obtener más información sobre esta función.


flecha azul burbuja derecha Desproteja varias hojas a la vez con kutools para Excel

¿Cómo podría desproteger varias hojas de trabajo protegidas en un libro al mismo tiempo? Por supuesto, Kutools for Excel también proporciona el Desproteger hoja de trabajo utilidad para desprotegerlos de una vez.

Siga los siguientes pasos:

1. Abra su libro de trabajo que contiene las hojas de trabajo protegidas.

2. Luego haga clic Kutools Más > Desproteger hoja de trabajo, ver captura de pantalla:

3. En la Desproteger hoja de trabajo cuadro de diálogo, las hojas protegidas se enumeran en el cuadro de lista, luego haga clic en Ok botón, ver captura de pantalla:

doc-proteger-varias-hojas7-7

4. Y luego un Desproteger hoja de trabajo Aparece el cuadro de diálogo para recordarle que ingrese la contraseña que ha creado para proteger las hojas de trabajo, vea la captura de pantalla:

doc-proteger-varias-hojas8-8

5. Después de escribir la contraseña, haga clic en Ok, todas las hojas de trabajo marcadas en el cuadro de lista han sido desprotegidas.

Nota: Las hojas de trabajo deben tener la misma contraseña.

Para saber más sobre esta función Desproteger hoja de trabajo.

¡Descargue y pruebe Kutools para Excel ahora!


flecha azul burbuja derecha Demostración: proteja o desproteja todas las hojas de trabajo a la vez con Kutools para Excel

Kutools for Excel: con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. ¡Descarga y prueba gratis ahora!

Artículo relacionado:

¿Cómo desproteger varias hojas de trabajo a la vez en Excel?

Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo.  Haga clic aquí para obtener la función que más necesita...

Descripción


Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
Comments (21)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I am trying to use this in a shared workbook but I get a Microsoft Visual Basic error "Run-time error '1004": Application-defined or object-defined error" I am just looking for suggestions on how to get around this. Any help would be appreciated
This comment was minimized by the moderator on the site
Occurs when sheet is already locked
This comment was minimized by the moderator on the site
Thanks for the wonder full tool to protect & unprotect all the sheets at a time. Please guide me I am able to unprotect all sheets in my work book at a time but when I run protect all sheets VBA Code then only first 4 sheets are protected & rest or left unprotected. Please help me to sort out the issue.
This comment was minimized by the moderator on the site
How do I mask the password using the VBA method? I can not find this information via google or F1 help files. Thanks in advance!
This comment was minimized by the moderator on the site
Hi I used this code now I it wont accept my password to get back into my spreadsheet !!
This comment was minimized by the moderator on the site
I have chart tabs and worksheets in my Excel 2013 workbook. The VBA coding above works for the protecting the worksheets but not the separate chart tabs. How do i password protect the multiple chart tabs and multiple worksheets in my workbook? Thanks!
This comment was minimized by the moderator on the site
Hey, I need some help, the above code was very helpful, but it locks the sort (auto filter as well) can you please provide code to solve that problem and also where it would be inserted. Thank you in advance.
This comment was minimized by the moderator on the site
Thank you! This is awesome, I was even able to modify the VBA code so that I could unprotect all sheets at once! :) Sub unprotect_all_sheets() top: pass = InputBox("password?") repass = InputBox("Verify Password") If Not (pass = repass) Then MsgBox "you made a boo boo" GoTo top End If For i = 1 To Worksheets.Count Next For Each s In ActiveWorkbook.Worksheets s.Unprotect Password:=pass Next Exit Sub oops: MsgBox "I think you have some sheets that are already protected. Please unprotect all sheets B4 running this Macro." End Sub
This comment was minimized by the moderator on the site
when i activated this VBA, hyperlink doesn't work. how can i make them work? tnx :)
This comment was minimized by the moderator on the site
I am suddenly having the 1004 error as well. Anyone find a solution?
This comment was minimized by the moderator on the site
I'm suddenly having the error 1004 issue. Have been using the macro for months now it randomly fails.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations