¿Cómo verificar si la hoja de trabajo o el libro de trabajo está protegido en Excel?
Si desea verificar si una determinada hoja de trabajo o libro de trabajo está protegido o no en Excel, este artículo puede ayudarlo.
Verifique si la hoja de trabajo está protegida con código VBA
Compruebe si el libro de trabajo está protegido con código VBA
Verifique si la hoja de trabajo está protegida con código VBA
El siguiente código de VBA puede ayudarlo a verificar fácilmente qué hoja de trabajo está protegida o desprotegida en el libro de trabajo actual. Haz lo siguiente.
1. Prensa otro + F11 teclas simultáneamente para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo. Y luego copie y pegue el código VBA a continuación en la ventana Código.
Código de VBA: compruebe si la hoja de trabajo está protegida o no
Sub GetProtectedSheets()
Dim sh As Worksheet
Dim xSaveSht As Worksheet
Dim xSaveToRg As Range
Dim xSaveToRg1 As Range
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xSaveToRg = Application.InputBox("Please select a cell for saving the checking result:", "Kutools for Excel", xTxt, , , , , 8)
If xSaveToRg Is Nothing Then Exit Sub
If xSaveToRg.Worksheet.ProtectContents Then
If MsgBox("This worksheet is protected, would you like to create a new sheet to save the checking result?", vbInformation + vbYesNo, "Kutools for Excel") = vbYes Then
Set xSaveSht = ThisWorkbook.Worksheets.Add
Set xSaveToRg = xSaveSht.Cells(1)
Else
Exit Sub
End If
End If
Set xSaveToRg = xSaveToRg.Cells(1)
Set xSaveToRg1 = xSaveToRg.Offset(0, 1)
xSaveToRg.Value = "Protected worksheet"
xSaveToRg1.Value = "Unprotected worksheet"
Set xSaveToRg = xSaveToRg.Offset(1)
Set xSaveToRg1 = xSaveToRg1.Offset(1)
For Each sh In Worksheets
If sh.Name <> xSaveSht.Name Then
If sh.ProtectContents Then
xSaveToRg.Value = sh.Name
Set xSaveToRg = xSaveToRg.Offset(1)
Else
xSaveToRg1.Value = sh.Name
Set xSaveToRg1 = xSaveToRg1.Offset(1)
End If
End If
Next
End Sub
3. presione el F5 clave para ejecutar el código, luego una Kutools for Excel aparece el cuadro de diálogo, seleccione una celda para ubicar los resultados de la verificación y finalmente haga clic en el OK del botón.
Notas:
1. Si la celda que seleccionó en una hoja de trabajo protegida, otra Kutools for Excel aparecerá el cuadro de diálogo, haga clic en el OK , el resultado de la verificación se guardará en una nueva hoja de trabajo creada.
2. Por el contrario, si la celda seleccionada está en una hoja de trabajo desprotegida, el resultado de la verificación se mostrará en el rango seleccionado inmediatamente.
Puede ver el resultado de la verificación como la siguiente captura de pantalla:
Compruebe si el libro de trabajo está protegido con código VBA
Además, puede verificar si un libro de trabajo activo está protegido o no con el código VBA. Haz lo siguiente.
1. Prensa otro + F11 teclas simultáneamente para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo. Y luego copie y pegue el código VBA a continuación en la ventana Código.
Código de VBA: compruebe si el libro de trabajo está protegido o no
Sub IsWorkbookProtected()
With ActiveWorkbook
If .ProtectWindows Or .ProtectStructure Then
MsgBox "This workbook is password protected"
Else
MsgBox "This workbook is not password protected"
End If
End With
End Sub
3. presione el F5 clave para ejecutar el código.
Obtendrá uno de los siguientes cuadros de diálogo según su libro de trabajo.
Proteja o desproteja fácilmente varias hojas de trabajo en un libro a la vez en Excel:
La Kutools for Excel's Proteger la hoja de trabajo y Desproteger hoja de trabajo Las utilidades pueden ayudarlo a proteger o desproteger fácilmente varias hojas de trabajo en un libro activo a la vez en Excel. Vea la siguiente captura de pantalla:
¡Descargue la función completa de prueba gratuita de 30 días de Kutools para Excel ahora!
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!