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 dimentica di proteggere il foglio di lavoro e la cartella di lavoro dopo aver apportato 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 gli strumenti nelle varie schede della barra multifunzione. Se è presente l’intera gamma di strumenti, il foglio di lavoro e la cartella di lavoro non sono protetti. Se sono presenti un numero significativo di strumenti che non sono disponibili (“visualizzati 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.

Ricorda: il valore delle funzioni viene aggiornato solo se il foglio di lavoro viene ricalcolato. Se tutto ciò che fai è proteggere (o rimuovere la protezione) il foglio di lavoro, ciò non comporta il ricalcolo del foglio di lavoro. Quindi, per vedere i risultati corretti dopo aver modificato lo stato di protezione, è necessario assicurarsi di ricalcolare il foglio 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.

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

Questo suggerimento (9639) si applica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 ed Excel in Office 365. Puoi trovare una versione di questo suggerimento per la vecchia interfaccia del menu di Excel qui: