Come proteggere contemporaneamente tutte le cartelle di lavoro presenti in una cartella in Excel?
In Excel puoi proteggere una cartella di lavoro per evitare che altri utenti la modifichino, ma hai mai pensato di poterne proteggere più di una contemporaneamente? In questo articolo ti svelo alcuni trucchi per proteggere tutte le cartelle di lavoro presenti in una stessa cartella e per proteggere più fogli all’interno di una singola cartella di lavoro in Excel.
Proteggi contemporaneamente le cartelle di lavoro in una cartella con VBA
Proteggi più fogli contemporaneamente con Kutools per Excel
Proteggi contemporaneamente le cartelle di lavoro in una cartella con VBA
Per proteggere le cartelle di lavoro all’interno di una cartella specifica, puoi utilizzare un codice macro apposito.
1. Apri una nuova cartella di lavoro e premi Alt + F11 per aprire la finestra di Microsoft Visual Basic for Applications, quindi fai clic su Inserisci > Modulo e incolla il codice seguente nel Modulo.
VBA: Proteggi tutte le cartelle di lavoro presenti in una specifica cartella.
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
2. Premi F5 e verrà visualizzata una finestra di Seleziona una cartella che ti consente di selezionare una cartella per proteggerne tutti i fogli di lavoro.
3. Fai clic su OK e apparirà una finestra di dialogo per inserire la password con cui proteggere le cartelle di lavoro.
4. Fai clic su OK e apparirà una finestra di dialogo per confermare che tutte le cartelle di lavoro nella cartella selezionata sono state protette correttamente con un’unica password.
Quando apri le cartelle di lavoro protette con il codice indicato sopra, viene visualizzata una finestra di dialogo per inserire la password. Vedi screenshot:
Suggerimento: Questo codice funziona con Excel 2007 o versioni successive. Se desideri applicarlo a versioni precedenti, puoi modificare nel codice xFile = «*.xls» in xFile = «*.xlsx».
Proteggi più fogli contemporaneamente con Kutools per Excel
Nella nostra attività quotidiana, capita molto spesso di dover proteggere più fogli all'interno della stessa cartella di lavoro. Tuttavia, in Excel è necessario proteggerli uno alla volta utilizzando la funzione integrata. Fortunatamente, esiste uno strumento potente –Kutools per Excel– la cui funzionalità Proteggi foglio ti permette di proteggere tutti i fogli o quelli selezionati contemporaneamente.
Dopo aver installato gratuitamenteKutools per Excel, procedi come segue:
1. Apri la cartella di lavoro di cui desideri proteggere i fogli e fai clic su KUTOOLS PLUS > Proteggi foglio > Proteggi schede.
2. Nella finestra di dialogo Proteggi foglio, puoi selezionare dall'elenco i fogli che desideri proteggere. Vedi screenshot:
3. Fai clic su Ok e apparirà un'altra finestra di dialogo in cui inserire e confermare la password. Vedi screenshot:
4. Fai clic su Ok e verrà visualizzata una finestra di dialogo che ti conferma il successo dell'operazione Proteggi schede.
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- 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 all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi