シートが保護されているときにタブの色を変更する

Question

シートが保護されているかどうかによってタブの色が変わる方法はありますか？例えば。保護=緑、保護されていない=赤。

私は、どのシートが保護されているかを目視で確認する簡単な方法を見つけようとしています。私は複数のシートを持っています。私は保護が必要なものと、保護されていないものがあります。保護されたシートを毎日編集しますが、保存する際に保護する必要があるので、他のユーザーが誤ってデータを編集することはありません。

Answer 1

@BruceWayneが言ったことを使って。すべてのワークシートをループして、保護されているかどうかを確認するだけです。下のコードは、保護されている場合はすべて緑、保護されていない場合は赤をループします。必要なアクションが発生したときにトリガーするように、イベントを変更することができます。モジュールではなくブックにこのコードを入れてください。

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