Ändern Sie die Registerkartenfarbe, wenn das Blatt geschützt ist

Question

Gibt es eine Möglichkeit, die Tab-Farbe zu ändern, abhängig davon, ob ein Blatt geschützt ist oder nicht? Z.B. protected = grün, ungeschützt = rot.

Ich versuche eine einfache Möglichkeit zu finden, visuell zu erkennen, welche Blätter geschützt sind. Ich habe mehrere Blätter, einige brauche ich geschützt und einige brauche ich ungeschützt. Ich bearbeite die geschützten Blätter täglich, aber ich muss sie beim Speichern schützen, damit andere Benutzer die Daten nicht versehentlich bearbeiten.

Answer 1

Mit was @BruceWayne sagte. Sie müssen nur alle Ihre Arbeitsblätter durchlaufen und prüfen, ob sie geschützt sind. Der unten stehende Code wird alle durchlaufen und dann grün, wenn es geschützt ist, oder rot, wenn es nicht geschützt ist. Sie können das Ereignis so ändern, dass es bei jeder gewünschten Aktion ausgelöst wird. Stellen Sie sicher, dass Sie diesen Code in die Arbeitsmappe und nicht in ein Modul einfügen.

Private Sub Workbook_Open() 

    Dim wbk As Workbook 
    Dim ws As Worksheet 

    Set wbk = ThisWorkbook 

    For Each ws In wbk.Worksheets 
     If ws.ProtectContents = True Then 
      ws.Tab.Color = vbGreen 
     Else 
      ws.Tab.Color = vbRed 
     End If 
    Next 

End Sub