¿Cómo proteger todos los libros de una carpeta de forma simultánea en Excel?
En Excel, puede proteger un libro para evitar que otros usuarios lo editen, pero ¿alguna vez ha pensado en proteger varios libros a la vez? A continuación, le mostramos algunos trucos prácticos para proteger todos los libros de una carpeta y varias hojas dentro de un mismo libro en Excel.
Proteger libros de una carpeta a la vez con VBA
Proteger varias hojas a la vez con Kutools para Excel
Proteger libros de una carpeta a la vez con VBA
Para proteger los libros de una carpeta específica, puede aplicar un código de macro y resolverlo de forma sencilla.
1. Abra un nuevo libro de trabajo y pulse Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones. A continuación, haga clic en Insertar > Módulo y pegue el siguiente código en el Módulo del script.
VBA: Proteger libros de una carpeta.
Sub ProtectAll()
Dim xWorkBooks As Workbook
Dim xExitFile As String
Dim xPassWord As Variant
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
On Error Resume Next
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect = False
xFileDialog.Title = "Select a folder [Kutools for Excel]"
If xFileDialog.Show = -1 Then
xStrPath = xFileDialog.SelectedItems(1)
End If
If xStrPath = "" Then
Exit Sub
Else
xStrPath = xStrPath + "\"
End If
xPassWord = Application.InputBox("Enter password", "Kutools for Excel", , , , , , 2)
If (xPassWord = False) Or (xPassWord = "") Then
MsgBox "Password cannot be blank!", vbInformation, "Kutools for Excel"
Exit Sub
End If xFile = «*.xls»
xExitFile = Dir(xStrPath & xFile)
On Error Resume Next
Application.ScreenUpdating = False
Do While xExitFile <> ""
Set xWorkBooks = Workbooks.Open(xStrPath & xExitFile)
Application.DisplayAlerts = False
xWorkBooks.SaveAs Filename:=xWorkBooks.FullName, Password:=xPassWord
Application.DisplayAlerts = True
Workbooks(xExitFile).Close False
Set xWorkBooks = Nothing
xExitFile = Dir
Loop
Application.ScreenUpdating = True
MsgBox "Successfully protect!", vbInformation, "Kutools for Excel"
End Sub
2. Pulse la tecla F5 y aparecerá una ventana de Seleccionar una carpeta para que seleccione una carpeta y proteja todas sus hojas de cálculo.
3. Haga clic en Aceptar y aparecerá un cuadro de diálogo para introducir la contraseña con la que protegerá los libros.
4. Haga clic en Aceptar y aparecerá un cuadro de diálogo informándole de que todos los libros de la carpeta seleccionada se han protegido correctamente con una única contraseña.
Al abrir los libros que ha protegido con el código anterior, aparecerá un cuadro de diálogo para introducir la contraseña. Vea la captura de pantalla:
Consejo: Este código funciona en Excel 2007 o versiones posteriores. Si desea aplicarlo para proteger archivos de versiones anteriores, puede cambiar xFile = «*.xls» por xFile = «*.xlsx» en el código.
Proteger varias hojas a la vez con Kutools para Excel
En realidad, en el trabajo diario suele ser más habitual necesitar proteger varias hojas de un libro. Sin embargo, en Excel hay que protegerlas una por una mediante su función integrada. Afortunadamente, existe una herramienta muy potente: Kutools para Excel, cuya utilidad Proteger hoja le permite proteger todas las hojas o las hojas de cálculo seleccionadas del libro de forma simultánea.
Tras instalar gratuitamenteKutools para Excel, siga estos pasos:
1. Abra el libro cuyas hojas desea proteger y haga clic en KUTOOLS PLUS > Proteger hoja > Proteger hojas de cálculo.
2. En el cuadro de diálogo Proteger hoja, puede seleccionar las acciones que desee permitir en la hoja protegida, según sus necesidades, en la lista. Vea la captura de pantalla:
3. Haga clic en Aceptar y aparecerá otro cuadro de diálogo para que introduzca y vuelva a escribir la contraseña. Vea la captura de pantalla:
4. Haga clic en Aceptar y aparecerá un cuadro de diálogo que le informará de que se ha completado correctamente la protección de hojas de cálculo.
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos