Come verificare se un foglio di lavoro o una cartella di lavoro è protetto in Excel?

Se desideri verificare se un determinato foglio di lavoro o una cartella di lavoro è protetto o meno in Excel, questo articolo può aiutarti.

Verifica se il foglio di lavoro è protetto con il codice VBA
Verifica se la cartella di lavoro è protetta con il codice VBA

Verifica se il foglio di lavoro è protetto con il codice VBA

Il seguente codice VBA può aiutarti a verificare facilmente quali fogli di lavoro sono protetti o non protetti nella cartella di lavoro corrente. Procedi come segue.

1. Premi contemporaneamente i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Nella finestra Microsoft Visual Basic for Applications, clicca su Inserisci > Modulo. Dopodiché, copia e incolla il seguente codice VBA nella finestra del Codice.

Codice VBA: Verifica se il foglio di lavoro è protetto o meno

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. Premi il tasto F5 per eseguire il codice, quindi apparirà una finestra di dialogo di Kutools per Excel. Seleziona una cella per posizionare i risultati della verifica e infine clicca sul pulsante OK.

Note:

1. Se la cella che hai selezionato si trova in un foglio di lavoro protetto, apparirà un'altra finestra di dialogo di Kutools per Excel; clicca sul pulsante OK e il risultato della verifica verrà salvato in un nuovo foglio di lavoro creato.

2. Se la cella selezionata si trova in un foglio di lavoro non protetto, il risultato della verifica verrà visualizzato immediatamente nell'intervallo selezionato.

Puoi vedere il risultato della verifica come mostrato nello screenshot qui sotto:

Verifica se la cartella di lavoro è protetta con il codice VBA

Inoltre, puoi utilizzare il codice VBA per verificare se una cartella di lavoro attiva è protetta. Procedi come segue.

1. Premi contemporaneamente i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Nella finestra Microsoft Visual Basic for Applications, clicca su Inserisci > Modulo. Dopodiché, copia e incolla il seguente codice VBA nella finestra del Codice.

Codice VBA: Verifica se la cartella di lavoro è protetta o meno

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. Premi il tasto F5 per eseguire il codice.

Otterrai una delle seguenti finestre di dialogo in base alla tua cartella di lavoro.