Visuellt Visar skyddsstatus

Todd har utvecklat en arbetsbok som används av andra. För att förhindra att data förstört, han skyddade kalkylbladet samt arbetsboken. Problemet är, Todd glömmer ibland att skydda kalkylbladet och arbetsboken efter att ha gjort ändringar. Han undrar om det finns ett sätt att skapa en visuell indikator som visar om bladet / arbetsboken skyddad eller oskyddad.

Naturligtvis för att det enklaste sättet att kontrollera om något är oskyddad är att bara börja titta på de verktyg om de olika menyflikar. Om hela utbudet av verktyg finns där, då kalkylbladet och arbetsboken är oskyddade. Om det finns ett stort antal verktyg som är tillgängliga ("nedtonade"), därefter skydd är påslagen.

En annan enkel lösning är att skapa en användardefinierad funktion som returnerar ett värde som anger om arbetsboken eller kalkylbladet är skyddade. Följande kommer att göra susen:

Funktion WksProtected (RNG Som Range) As String
Application.Volatile
Om rng.Parent.ProtectContents Därefter
WksProtected = "Skyddad"
Else
WksProtected = "Not Protected"
End If
End Function

Funktion WkbProtected (RNG Som Range) As String
Application.Volatile
Om rng.Parent.Parent.ProtectStructure Sedan
WkbProtected = "Skyddad"
Else
WkbProtected = "Not Protected"
End If
End Function

För att använda makron, omfattar bara formler som följande helst i kalkylbladet:

= WksProtected (A1)
= WkbProtected (A1)

Resultatet av formlerna är antingen "Skyddad" eller "Not Protected", beroende på läget i kalkylblad och arbetsbok. Du kan använda villkorsstyrd formatering för att markera de celler som bygger på vad som returneras av funktionerna.

ExcelTips är din källa för kostnadseffektiv Microsoft Excel utbildning. Detta tips (9639) gäller för Microsoft Excel 2007 och 2010. Du kan hitta en version av detta tips för den äldre menygränssnittet i Excel här: Visuellt Visar en skyddsstatus.