Using a Worksheet_BeforeDoubleClick

[ABabeNChrist]

I’m using a Worksheet_BeforeDoubleClick like so

Code: Select all

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Not Intersect(Target, Range("C1")) Is Nothing Then
   'Code here
  End If
End Sub

Can I add something that will do, If sheet is protected Then Exit sub, or something like that…
so as not to run code if sheet is protected.

[mbarron]

Something like this at the begining should do it:

Code: Select all

If ActiveSheet.ProtectContents = True Then Cancel = True

[ABabeNChrist]

Something like this at the begining should do it:

Code: Select all

If ActiveSheet.ProtectContents = True Then Cancel = True

Thank you mbarron
I was at first trying

Code: Select all

If ActiveSheet.Protect = True then

but of course that was incorrect.
I then realized i needed to add Contents as you have
so now i have

Code: Select all

        If ActiveSheet.ProtectContents = True Then
            MsgBox ("Sheet is protected")
            Exit Sub
        End If