Mahesh ha un numero di cartelle di lavoro di Excel, tutte archiviate nella stessa cartella.

Si chiede se sia possibile assegnare una password all’intera cartella in modo che tutte le cartelle di lavoro siano protette.

La risposta breve è no, non puoi farlo in Excel. Tuttavia, è possibile applicare una serie di tecniche diverse che forniranno il risultato desiderato. Il primo metodo consiste nell’utilizzare un programma come WinZip per combinare tutte le cartelle di lavoro in un unico file zip. Questo file può essere protetto da password (in WinZip) in modo che non tutti possano aprirlo. È quindi possibile aprire il file zip (utilizzando la password) e fare doppio clic su qualsiasi cartella di lavoro al suo interno per modificarlo con Excel. Il risultato, a tutti gli effetti, è che hai una “cartella” (il file zip) che è protetta, mentre i singoli file che contiene non lo sono.

Un altro approccio consiste nel posizionare la cartella della cartella di lavoro su un’unità di rete e quindi chiedere all’amministratore di rete di proteggere la cartella. La maggior parte dei sistemi operativi di rete consente agli amministratori di controllare chi può avere accesso a cartelle specifiche e al loro contenuto.

Un terzo approccio consiste nell’utilizzare un programma di terze parti per proteggere la cartella.

Una rapida ricerca sul Web farà senza dubbio trovare diversi candidati, come i seguenti:

http://www.folder-password-expert.com

È inoltre possibile utilizzare una macro di Excel per proteggere le cartelle di lavoro. Sebbene non offra una vera protezione a livello di cartella, ti consente di proteggere tutte le cartelle di lavoro nella cartella nel modo più semplice possibile.

Sub ProtectAll()

Dim wBk As Workbook     Dim sFileSpec As String     Dim sPathSpec As String     Dim sFoundFile As String

sPathSpec = "C:\MyPath\"

sFileSpec = "*.xls"



sFoundFile = Dir(sPathSpec & sFileSpec)

Do While sFoundFile <> ""

Set wBk = Workbooks.Open(sPathSpec & sFoundFile)

With wBk             Application.DisplayAlerts = False             wBk.SaveAs FileName:=.FullName, _               Password:="swordfish"

Application.DisplayAlerts = True         End With         Set wBk = Nothing         Workbooks(sFoundFile).Close False         sFoundFile = Dir     Loop End Sub

Assicurati di modificare le variabili sPathSpec e sFileSpec, vicino all’inizio del codice, per riflettere la cartella contenente le cartelle di lavoro e il modello per i nomi delle cartelle di lavoro che desideri proteggere. La macro presuppone che tutte le cartelle di lavoro non siano protette; in caso contrario, la macro richiederà la password della cartella di lavoro.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (2878) si applica a Microsoft Excel 97, 2000, 2002 e 2003. Puoi trovare una versione di questo suggerimento per l’interfaccia a nastro di Excel (Excel 2007 e versioni successive) qui:

Proteggere un’intera cartella di cartelle di lavoro.