¿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

¡Asombroso! ¡Uso de pestañas eficientes en Excel como Chrome, Firefox y Safari!

¡Ahorre el 50% de su tiempo y reduzca miles de clics del mouse todos los días!

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 OK y aparece un cuadro de diálogo para ingresar la contraseña para proteger los libros de trabajo.

4. Hacer clic 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.

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 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 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

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-2019 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Características completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.

Leer más ... Descarga gratis... Compra... 

---

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!

Leer más ... Descarga gratis... Compra...