Note: The other languages of the website are Google-translated. Back to English

¿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

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
pestaña kte 201905

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!
officetab parte inferior
Comentarios (21)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Genial, entonces, ¿cómo desprotegerlos a todos a la vez? Soy un aficionado, así que necesito más información.
Este comentario fue minimizado por el moderador en el sitio
[cita] Genial, entonces, ¿cómo desprotegerlos a todos a la vez? Soy un aficionado, así que necesito más información.Por Kristin Dzugan[/quote] :-) Puedes desprotegerlos fácilmente como http://www.extendoffice.com/product/kutools-for-excel/excel-unprotect-multiple-sheets.html
Este comentario fue minimizado por el moderador en el sitio
Sub unprotect_all_sheets() top: pass = InputBox("contraseña?") repass = InputBox("Verificar contraseña") If Not (pass = repass) Then MsgBox "hiciste un boo boo" GoTo top End If For i = 1 To Worksheets .Contar a continuación para cada correo electrónico en ActiveWorkbook.Hojas de trabajo s.Desproteger Contraseña:=pasar Siguiente Salir Sub Vaya: MsgBox "Creo que tiene algunas hojas que ya están protegidas. Desproteja todas las hojas B4 que ejecutan esta macro". Finalizar sub
Este comentario fue minimizado por el moderador en el sitio
Muchas gracias :-)
Este comentario fue minimizado por el moderador en el sitio
Como dijo Kristin, ¿cómo los desproteges a todos a la vez?
Este comentario fue minimizado por el moderador en el sitio
Entonces, ¿cómo desprotejo sin kutools?
Este comentario fue minimizado por el moderador en el sitio
[quote] Entonces, ¿cómo desprotejo sin kutools?por cz[/quote] Puede desproteger la hoja de trabajo sin Kutools para Excel. Solo necesita hacer clic con el botón derecho en la pestaña de la hoja que desea desproteger y hacer clic en el comando Desproteger hoja y luego ingresar su contraseña. :-)
Este comentario fue minimizado por el moderador en el sitio
cuando introduzco el código aparece "run time error 1004?? resaltando lo siguiente en amarillo... s.Protect Password:=pass
Este comentario fue minimizado por el moderador en el sitio
De repente también tengo el error 1004. He estado usando la macro durante meses, pero ahora no se ejecuta.
Este comentario fue minimizado por el moderador en el sitio
Hola, yo también estaba teniendo este problema. Resulta que no se puede ejecutar si tiene todas las hojas seleccionadas en el libro de trabajo. Intente seleccionar solo una hoja y luego ejecute.
Este comentario fue minimizado por el moderador en el sitio
De repente tengo el problema del error 1004. He estado usando la macro durante meses y ahora falla aleatoriamente.
Este comentario fue minimizado por el moderador en el sitio
De repente también tengo el error 1004. ¿Alguien encuentra una solución?
Este comentario fue minimizado por el moderador en el sitio
cuando activé este VBA, hiperenlace no funciona ¿Cómo puedo hacer que funcionen? gracias :)
Este comentario fue minimizado por el moderador en el sitio
¡Gracias! ¡Esto es increíble, incluso pude modificar el código VBA para poder desproteger todas las hojas a la vez! :) Sub unprotect_all_sheets() top: pass = InputBox("contraseña?") repass = InputBox("Verificar contraseña") Si no (pass = repass) Entonces MsgBox "hiciste un boo boo" GoTo top End If For i = 1 A Worksheets.Count Next For Each s In ActiveWorkbook.Worksheets s.Unprotect Password:=pass Next Exit Sub ups: MsgBox "Creo que tiene algunas hojas que ya están protegidas. Desproteja todas las hojas B4 que ejecutan esta macro". Finalizar sub
Este comentario fue minimizado por el moderador en el sitio
Oye, necesito ayuda, el código anterior fue muy útil, pero bloquea la ordenación (también el filtro automático). ¿Puedes proporcionar el código para resolver ese problema y también dónde se insertaría? Gracias de antemano.
Este comentario fue minimizado por el moderador en el sitio
Tengo fichas de gráficos y hojas de cálculo en mi libro de Excel 2013. La codificación VBA anterior funciona para proteger las hojas de trabajo, pero no las pestañas de gráficos separadas. ¿Cómo protejo con contraseña las múltiples pestañas del gráfico y las múltiples hojas de trabajo en mi libro de trabajo? ¡Gracias!
Este comentario fue minimizado por el moderador en el sitio
¡Hola, utilicé este código ahora, no aceptaré mi contraseña para volver a mi hoja de cálculo!
Este comentario fue minimizado por el moderador en el sitio
¿Cómo enmascaro la contraseña usando el método VBA? No puedo encontrar esta información a través de google o archivos de ayuda F1. ¡Gracias por adelantado!
Este comentario fue minimizado por el moderador en el sitio
Gracias por la maravillosa herramienta completa para proteger y desproteger todas las hojas a la vez. Por favor, guíeme. Puedo desproteger todas las hojas en mi libro de trabajo a la vez, pero cuando ejecuto proteger todas las hojas Código VBA, solo las primeras 4 hojas están protegidas y el resto o quedan desprotegidas. Por favor, ayúdame a resolver el problema.
Este comentario fue minimizado por el moderador en el sitio
Estoy tratando de usar esto en un libro de trabajo compartido, pero aparece un error de Microsoft Visual Basic "Error en tiempo de ejecución '1004": error definido por la aplicación o definido por el objeto" Solo estoy buscando sugerencias sobre cómo evitar esto. Cualquiera la ayuda sería apreciada
Este comentario fue minimizado por el moderador en el sitio
Ocurre cuando la hoja ya está bloqueada
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL