Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
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 se creó una imagen 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 libros de trabajo en una carpeta a la vez con VBA

Proteja varias hojas a la vez con Kutools para Excel buena idea3

Ficha Office Habilite la edición y navegación con pestañas en Office y haga su trabajo mucho más fácil ...
Kutools for Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%
  • Reutilizar cualquier cosa: Agregue las fórmulas más utilizadas o complejas, gráficos y cualquier otra cosa a sus favoritos, y reutilícelos rápidamente en el futuro.
  • Más de características de texto 20: Extraer número de la cadena de texto; Extraer o eliminar parte de los textos; Convertir números y monedas a palabras en inglés ...
  • Herramientas de fusión: Múltiples libros de trabajo y hojas en uno; Fusionar múltiples celdas / filas / columnas sin perder datos; Combinar filas duplicadas y sumar ...
  • Herramientas divididas: Dividir datos en varias hojas en función del valor; Un libro de trabajo para múltiples archivos Excel, PDF o CSV; De una columna a varias columnas ...
  • Saltar pasta Filas ocultas / filtradas; Cuenta y suma por color de fondo; Crear lista de correo y Enviar correos electrónicos por el valor de la celda...
  • Súper filtro: Cree esquemas de filtro avanzados y aplique a cualquier hoja; Tipo de Propiedad por semana, día, frecuencia y más; Filtrar por negrita, fórmulas, comentario ...
  • Más de potentes funciones de 300; 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 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 Applications ventana, y haga clic recuadro > móduloe, y pegue el código debajo del Módulo guión.

VBA: protege 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 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 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 una carpeta 3

4. Hacer clic OK, aparece un cuadro de diálogo para recordarle que todos los libros de la carpeta seleccionada se han protegido con éxito con una contraseña.
doc proteger todos los libros de una carpeta 4

Cuando abre los libros de trabajo protegidos por 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 una carpeta 5

Tip: Este código funciona para 2007 o una versión superior de Excel, si desea aplicarlo para proteger la versión más baja, 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

En realidad, será más frecuente proteger varias hojas en un libro de trabajo en nuestro trabajo diario. Pero en Excel, necesita proteger las hojas una por una con su función integrada. Sin embargo, hay una herramienta poderosa Kutools for Excel, su Proteger 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, mejore su eficiencia de trabajo y ahorre tiempo de trabajo.

Después de instalación gratuita Kutools para Excel, haz lo siguiente:

1. Active el libro de trabajo que desea proteger sus hojas y haga clic Empresa > Proteger hoja de trabajo. Ver captura de pantalla:
doc proteger todos los libros de una carpeta 6

2. En el Proteger hoja de trabajo cuadro de diálogo, puede consultar las hojas que desea proteger, según lo necesite de la lista. Ver captura de pantalla:
doc proteger todos los libros de una carpeta 7

3. Hacer clic Ok, y se abre 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 una carpeta 8

4. Hacer clic Oky aparece un cuadro de diálogo para recordarle que protege con éxito las hojas de trabajo.
doc proteger todos los libros de una carpeta 9

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

doc descarga 1


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

  • Reutilizar: Insertar rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita 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 células 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 Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Más de potentes funciones de 300. Admite Office / Excel 2007-2019 y 365. Soporta todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas de prueba gratuita de 30-day.
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

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
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 months ago
    Brilliant. Saves me nearly an hour every month. Thank you.
  • To post as a guest, your comment is unpublished.
    Mary · 1 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 · 2 years ago
    I'm getting a syntax error for the following: <span style="background-color...
  • To post as a guest, your comment is unpublished.
    ckshah · 2 years ago
    workbook protect ...great program....
    very helpful