¿Cómo proteger todos los libros de trabajo en una carpeta a la vez en Excel?
En Excel, puede proteger un libro de trabajo para evitar que otros usuarios lo editen, pero ¿alguna vez ha creado imágenes para proteger varios libros de trabajo a la vez? Aquí presento algunos trucos para proteger todos los libros de trabajo en una carpeta y varias hojas en un libro de trabajo en Excel.
Proteja los libros de trabajo en una carpeta a la vez con VBA
Proteja varias hojas a la vez con Kutools para Excel
Proteja los libros de trabajo en una carpeta a la vez con VBA
Para proteger los libros de trabajo en una carpeta específica, puede aplicar un código de macro para resolver.
1. Habilite un nuevo libro de trabajo y presione Alt + F11 teclas para abrir el Microsoft Visual Basic para aplicacionesns y haga clic en recuadro > móduloe, y pegue el código siguiente en el Módulo guión.
VBA: proteja los libros de trabajo en 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. Prensa F5 clave, y una Seleccione una carpeta aparece una ventana para que seleccione una carpeta para proteger todas sus hojas de trabajo.
3. Hacer clic en OK y aparece un cuadro de diálogo para ingresar la contraseña para proteger los libros de trabajo.
4. Hacer clic en OK, aparece un cuadro de diálogo para recordarle que todos los libros de trabajo de la carpeta seleccionada se han protegido correctamente con una contraseña.
Cuando abre los libros de trabajo que protegió con el código anterior, aparece un cuadro de diálogo para ingresar la contraseña. Ver captura de pantalla:
Consejo: Este código funciona para la versión de Excel 2007 o superior, si desea aplicarlo para proteger la versión inferior, puede cambiar xFile = "* .xls" a xFile = "* .xlsx" en el código.
Proteja varias hojas a la vez con Kutools para Excel
De hecho, será más frecuente proteger varias hojas de un libro en nuestro trabajo diario. Pero en Excel, debe proteger las hojas una por una con su función incorporada. Sin embargo, existe una herramienta poderosa: Kutools for Excel, su Proteger la hoja de trabajo La utilidad puede ayudarlo a proteger todas las hojas o hojas seleccionadas del libro de trabajo a la vez.
Kutools for Excel, con más de 120 prácticas funciones de Excel, mejoran su eficiencia de trabajo y ahorran tiempo de trabajo. | ||
Después instalación gratuita Kutools para Excel, haga lo siguiente:
1. Habilite el libro de trabajo cuyas hojas desea proteger y haga clic en Empresa > Proteger la hoja de trabajo. Ver captura de pantalla:
2. En el Proteger la hoja de trabajo cuadro de diálogo, puede comprobar las hojas que desea proteger como necesite de la lista. Ver captura de pantalla:
3. Hacer clic en Ok, y aparece otro cuadro de diálogo para que ingrese y vuelva a escribir la contraseña, vea la captura de pantalla:
4. Hacer clic en Ok, y aparece un cuadro de diálogo para recordarle que ha protegido correctamente las hojas de trabajo.
Para desproteger estas hojas, solo necesita hacer clic en Empresa > Desproteger hoja de trabajo para ingresar la contraseña para desproteger.
Las mejores herramientas de productividad de oficina
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...
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!