Visuelt Viser en Beskyttelsesstatus

October 18  by Eliza

Todd har utviklet en arbeidsbok brukes av andre. For å forhindre at data blir ødelagt, er han beskyttet regnearket samt arbeidsboken. Problemet er, Todd noen ganger glemmer å beskytte regnearket og arbeidsbok etter å gjøre endringer. Han lurer på om det er en måte å skape en visuell indikator som viser om regnearket / arbeidsbok er beskyttet eller ubeskyttet.

Selvfølgelig, den enkleste måten å sjekke om noe er ubeskyttet er å bare begynne å se på de verktøyene på de ulike bånd kategoriene. Hvis hele spekteret av verktøy er der, så regnearket og arbeidsboken er ubeskyttet. Hvis det er et betydelig antall verktøy som er utilgjengelig ("nedtonet"), så beskyttelse er slått på.

En annen enkel løsning er å opprette en brukerdefinert funksjon som returnerer en verdi som angir om arbeidsboken eller regnearket er beskyttet. Følgende vil gjøre triks:

Funksjon WksProtected (RNG Som Range) As String
Application.Volatile
Hvis rng.Parent.ProtectContents Then
WksProtected = "Beskyttet"
Else
WksProtected = "Ikke Beskyttet"
End If
End Function

Funksjon WkbProtected (RNG Som Range) As String
Application.Volatile
Hvis rng.Parent.Parent.ProtectStructure Deretter
WkbProtected = "Beskyttet"
Else
WkbProtected = "Ikke Beskyttet"
End If
End Function

Å bruke makroer, bare inkludere formler som følgende hvor som helst i regnearket:

= WksProtected (A1)
= WkbProtected (A1)

Resultatet av formlene er enten "Beskyttet" eller "ikke beskyttet," avhengig av tilstanden i regneark og arbeidsbok. Du kan bruke betinget formatering for å markere cellene basert på hva som er returnert av funksjonene.

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (9639) gjelder for Microsoft Excel 2007 og 2010. Du kan finne en versjon av dette tipset for den eldre menygrensesnittet av Excel her: Visuelt Viser en beskyttelsesstatus.