Note: The other languages of the website are Google-translated. Back to English
Iniciar  \/ 
x
or
x
Registrarse  \/ 
x

or

¿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 buena idea3

Pestaña de Office Habilite la edición y navegación con pestañas en Office y haga su trabajo mucho más fácil
Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%
  • Reutiliza cualquier cosa: Agregue las fórmulas, gráficos y cualquier otra cosa más utilizados o complejos a sus favoritos y reutilícelos rápidamente en el futuro.
  • Más de 20 funciones de texto: Extraer número de la cadena de texto; Extraer o eliminar parte de los textos; Convierta números y monedas a palabras en inglés.
  • Combinar herramientas: Varios libros de trabajo y hojas en uno; Fusionar varias celdas / filas / columnas sin perder datos; Fusionar filas duplicadas y suma.
  • Herramientas divididas: Divida los datos en varias hojas según el valor; Un libro de trabajo para varios archivos Excel, PDF o CSV; Una columna a varias columnas.
  • Pegar saltando Filas ocultas / filtradas; Cuenta y suma por color de fondo; Envíe correos electrónicos personalizados a varios destinatarios de forma masiva.
  • Súper filtro: Cree esquemas de filtros avanzados y aplíquelos a cualquier hoja; Ordenar por semana, día, frecuencia y más; Filtrar por negrita, fórmulas, comentario ...
  • Más de 300 potentes funciones; Funciona con Office 2007-2019 y 365; Soporta todos los idiomas; Fácil implementación en su empresa u organización.

flecha azul burbuja derecha 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

 

doc proteger todos los libros de trabajo una carpeta 1

2. Prensa F5 clave, y una Seleccione una carpeta aparece una ventana para que seleccione una carpeta para proteger todas sus hojas de trabajo.
doc proteger todos los libros de trabajo una carpeta 2

3. Hacer clic OK y aparece un cuadro de diálogo para ingresar la contraseña para proteger los libros de trabajo.
doc proteger todos los libros de trabajo una carpeta 3

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.
doc proteger todos los libros de trabajo una carpeta 4

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:
doc proteger todos los libros de trabajo una carpeta 5

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.


flecha azul burbuja derecha 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:
doc proteger todos los libros de trabajo una carpeta 6

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:
doc proteger todos los libros de trabajo una carpeta 7

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:
doc proteger todos los libros de trabajo una carpeta 8

4. Hacer clic Ok, y aparece un cuadro de diálogo para recordarle que ha protegido correctamente las hojas de trabajo.
doc proteger todos los libros de trabajo una carpeta 9

Para desproteger estas hojas, solo necesita hacer clic en Empresa > Desproteger hoja de trabajo para ingresar la contraseña para desproteger.
doc proteger todos los libros de trabajo una carpeta 10

descarga de documentos 1


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.
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
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Martin · 1 years ago
    Brilliant. Saves me nearly an hour every month. Thank you.
  • To post as a guest, your comment is unpublished.
    Mary · 3 years ago
    can you do the same code but for unprotecting? with option to browse for the folder
  • To post as a guest, your comment is unpublished.
    P · 3 years ago
    I'm getting a syntax error for the following: <span style="background-color...
    • To post as a guest, your comment is unpublished.
      Jessica · 6 months ago
      Did you fix this ? How?

  • To post as a guest, your comment is unpublished.
    ckshah · 4 years ago
    workbook protect ...great program....
    very helpful