Come verificare se il foglio di lavoro o la cartella di lavoro sono protetti in Excel?
Se vuoi verificare se un determinato foglio di lavoro o cartella di lavoro è protetto o meno in Excel, questo articolo può aiutarti.
Controlla se il foglio di lavoro è protetto con codice VBA
Controlla se la cartella di lavoro è protetta con codice VBA
Controlla se il foglio di lavoro è protetto con codice VBA
Il seguente codice VBA può aiutarti a controllare facilmente quale foglio di lavoro è protetto o non protetto nella cartella di lavoro corrente. Si prega di fare quanto segue.
1. Stampa altro + F11 tasti contemporaneamente per aprire il file Microsoft Visual Basic, Applications Edition finestra.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Moduli. Quindi copia e incolla il codice VBA sottostante nella finestra del codice.
Codice VBA: controlla 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 F5 chiave per eseguire il codice, quindi un Kutools for Excel si apre la finestra di dialogo, selezionare una cella per individuare i risultati del controllo e infine fare clic su OK pulsante.
Note:
1. Se la cella selezionata in un foglio di lavoro protetto, un'altra Kutools for Excel verrà visualizzata la finestra di dialogo, fare clic su OK pulsante, il risultato del controllo verrà salvato in un nuovo foglio di lavoro creato.
2. Al contrario, se la cella selezionata si trova in un foglio di lavoro non protetto, il risultato del controllo verrà visualizzato immediatamente nell'intervallo selezionato.
Puoi vedere il risultato del controllo come nell'immagine sottostante:
Controlla se la cartella di lavoro è protetta con codice VBA
Inoltre, puoi verificare se una cartella di lavoro attiva è protetta o meno con codice VBA. Si prega di fare quanto segue.
1. Stampa altro + F11 tasti contemporaneamente per aprire il file Microsoft Visual Basic, Applications Edition finestra.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Moduli. Quindi copia e incolla il codice VBA sottostante nella finestra del codice.
Codice VBA: controlla 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 F5 chiave per eseguire il codice.
Otterrai una delle seguenti finestre di dialogo in base alla tua cartella di lavoro.
Proteggi o rimuovi facilmente più fogli di lavoro in una cartella di lavoro contemporaneamente in Excel:
Il Kutools for Excel's Proteggi foglio di lavoro ed Rimuovi la protezione del foglio di lavoro le utilità possono aiutarti a proteggere o rimuovere facilmente più fogli di lavoro nella cartella di lavoro attiva contemporaneamente in Excel. Vedi lo screenshot qui sotto:
Scarica subito il percorso gratuito completo di 30 giorni di Kutools per Excel!
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!