VBA Worksheet Protection = T/F

[Nickalas]

Hi All,

I'm trying to learn VBA but i need a little help

I'm trying to check whether a worksheet is protected and return a value of "True" or "False" in a cell on a different worksheet. I also need the result to be always live/up to date.

This is what I have so far. Any help would be greatly appreciated.

Private Sub Worksheet_CheckProtect()
 
    If TargetSheet.ProtectContents = True Then
    
        Worksheets("Dashboard").Range("B4") = "True"
    Else
        Worksheets("Dashboard").Range("B4") = "False"
    End If
 
End Sub

Thank you

 

[VoG]

Should it be?

If ActiveSheet.ProtectContents = True Then

 

[Nickalas]

Aha...now I get a result, thank you

One final question....I have it working using Worksheet_Activate(). What's the best way to ensure the result is always up to date? I was thinking maybe every time a different worksheet is selected or alike?

Thanks

 

[VoG]

Try in the ThisWorkbook module

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.Range("B4").Value = Sh.ProtectContents
End Sub