Todd ha sviluppato una cartella di lavoro usata da altri. Per evitare che i dati vengano rovinati, ha protetto il foglio di lavoro e la cartella di lavoro. Il problema è che a volte Todd si dimentica di proteggere il foglio di lavoro e la cartella di lavoro dopo aver apportato le modifiche. Si sta chiedendo se esiste un modo per creare un indicatore visivo che mostri se il foglio di lavoro / cartella di lavoro è attualmente protetto o non protetto.

Ovviamente, il modo più semplice per verificare se qualcosa non è protetto è iniziare semplicemente a guardare le scelte di menu disponibili. Se è presente l’intera gamma di scelte, il foglio di lavoro e la cartella di lavoro non sono protetti. Se ci sono parti significative che non sono disponibili (“visualizzate in grigio”), la protezione è attivata.

Un’altra semplice soluzione consiste nel creare una funzione definita dall’utente che restituisca un valore che indica se la cartella di lavoro o il foglio di lavoro sono protetti. Il seguente farà il trucco:

Function WksProtected(rng As Range) As String     Application.Volatile     If rng.Parent.ProtectContents Then         WksProtected = "Protected"

Else         WksProtected = "Not Protected"

End If End Function
Function WkbProtected(rng As Range) As String     Application.Volatile     If rng.Parent.Parent.ProtectStructure Then         WkbProtected = "Protected"

Else         WkbProtected = "Not Protected"

End If End Function

Per utilizzare le macro, includi semplicemente formule come le seguenti in qualsiasi punto del foglio di lavoro:

=WksProtected(A1)

=WkbProtected(A1)

Il risultato delle formule è “Protetto” o “Non protetto”,

a seconda dello stato dei fogli di lavoro e della cartella di lavoro. È possibile utilizzare la formattazione condizionale per evidenziare le celle in base a ciò che viene restituito dalle funzioni.

_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.

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

Questo suggerimento (3172) 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: