Saltar al contenido principal

¿Cómo establecer contraseñas para proteger las hojas de trabajo individuales de los usuarios en Excel?

En Excel, puede establecer diferentes contraseñas para diferentes hojas, lo que significa que un usuario puede realizar cambios en una hoja de trabajo con una contraseña y otro puede usar una contraseña diferente para realizar cambios en otra hoja de trabajo. Pero, a veces, solo desea que cada usuario pueda ver y acceder a su propia hoja. ¿Es posible resolver esto en Excel?


Para proteger cada hoja de trabajo individualmente y limitar el acceso a las hojas de trabajo por parte de los usuarios, aplique el siguiente código VBA:

1. Abra un nuevo libro de trabajo y cree una nueva hoja llamada "Principal", vea la captura de pantalla:

2. Entonces presione Alt + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana, haga doble clic ThisWorkbook desde la izquierda Proyecto-VBAProject panel para abrir un módulo de código en blanco, y luego copie y pegue el siguiente código VBA en la ventana de código, vea la captura de pantalla:

Código VBA: establezca contraseñas para proteger hojas individuales por parte de los usuarios

Option Explicit
Dim gUserName As String
Dim gUserPass As String
Private Sub Workbook_Open()
'Updateby ExtendOffice
Dim xWShs As Sheets
Dim xWSh As Worksheet
Dim xUserName As String
Dim xPass As String
Dim xBolH As Boolean
GTINPUT:
xUserName = InputBox("Enter the user name")
If TypeName(xUserName) = "String" Then
    If xUserName = "" Then
        Exit Sub
    End If
End If
xUserName = LCase(xUserName)
xPass = InputBox("User name:" & xUserName & Chr(13) & Chr(10) & "Enter the password:")
If TypeName(xPass) = "String" Then
    If xPass = "" Then
    MsgBox "The password is incorrect, please enter the user name and password again."
    GoTo GTINPUT
    End If
Else
    MsgBox "The password is incorrect, please enter the user name and password again."
    GoTo GTINPUT
End If
Set xWShs = Worksheets
xBolH = False
For Each xWSh In Worksheets
    If xWSh.Name = xUserName Then
    xBolH = True
    Exit For
    End If
Next
If xBolH Then
Set xWSh = xWShs(xUserName)
On Error GoTo GTINPUT2
xWSh.Unprotect (xPass)
xWSh.Visible = True
xWSh.Activate
Else
Set xWSh = xWShs.Add
xWSh.Name = xUserName
xWSh.Activate
End If
gUserName = xUserName
gUserPass = xPass
Exit Sub
GTINPUT2:
    MsgBox "The password is incorrect, please enter the user name and password again."
    GoTo GTINPUT
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim xWSh As Worksheet
On Error Resume Next
Set xWSh = Worksheets(gUserName)
xWSh.Protect Password:=gUserPass, DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
For Each xWSh In Worksheets
    If xWSh.Name <> "Main" Then
        xWSh.Visible = xlSheetVeryHidden
    End If
Next xWSh
ActiveWorkbook.Save
End Sub

3. Luego, coloque el cursor al final de la Private Sub Workbook_Open () guión y prensa F5 clave para ejecutar este código. Ahora, en el cuadro de aviso emergente, ingrese el nombre de usuario que desea crear una hoja para este usuario, vea la captura de pantalla:

4. Y luego, haga clic en OK botón, en el siguiente cuadro de aviso, ingrese una contraseña para proteger esta hoja, vea la captura de pantalla:

5. Sigue haciendo clic OK y una nueva hoja nombrada con el nombre de usuario se crea a la vez, y puede crear los datos para ese usuario según lo necesite. Ver captura de pantalla:

6. Repita el paso 3 – paso 5 anterior para crear otras hojas una por una que desee usar.

7. Después de crear las hojas, guarde el libro de trabajo actual haciendo clic en Archive > Guardar como., En el Guardar como cuadro de diálogo, especifique un nombre de archivo y luego elija Libro de Excel habilitado para macros (* .xlsm) formato de la Guardar como tipo lista desplegable, ver captura de pantalla:

8. Luego haga clic en el botón Guardar para guardar este archivo.

9. Y luego cierre el libro de trabajo y vuelva a abrirlo, luego, haga clic en Contenido disponible en la parte superior de la barra de fórmulas para activar el código, mira la captura de pantalla:

10. Ahora, aparecerá un cuadro emergente para recordarle que ingrese el nombre de usuario y la contraseña para abrir la hoja específica de cierto usuario.

11. Por último, al enviar este libro de trabajo a otros usuarios, debe enviar el nombre de usuario y la contraseña al usuario. Solo abrirán y editarán sus propias hojas, y no tienen autorización para ver otras hojas de trabajo.


  • 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 y conservación de datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... 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 ...
  • Fórmulas favoritas e insertar rápidamente, Rangos, gráficos e imágenes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • 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...
  • Agrupación de tablas dinámicas por número de semana, día de la semana y más ... Mostrar celdas bloqueadas y desbloqueadas por diferentes colores; Resalte las celdas que tienen fórmula / nombre...
pestaña kte 201905
  • 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
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How would you then allow for an admin user to see all of those password protected sheets?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations