Msgbox to unprotect worksheet on first activation only?

[Ironman]

Hello

I created a simple msgbox to remind me to unprotect a particular worksheet that is protected when the workbook is opened (there are 12 other tabs that aren't protected).

Private Sub Worksheet_Activate()

MsgBox "Unprotect Worksheet ", vbInformation, "Daily Tracking"

Is it possible for a line or two of code that stops any further (irrelevant) messages when I have unprotected the sheet, while the workbook is still open?

Thanks!

 

[John_w]

Private Sub Worksheet_Activate()
    If Me.ProtectContents Then
        MsgBox "Unprotect Worksheet ", vbInformation, "Daily Tracking"
    End If
End Sub

 

[Ironman]

Brilliant, it worked fine!

Many thanks to you!