I'm running some Double Click actions. This works perfectly however if the user double clicks on a locked cell, then the worksheet unprotects itself. This obviously isn't ideal. Any help to solve would be amazing.
This is what I'm running:
This is what I'm running:
VBA Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rng As Range
Cancel = True
Set rng = ActiveSheet.Range("d8:dc77")
Worksheets("2021").Unprotect
If Intersect(Target, rng) Is Nothing Then Exit Sub
Select Case True
Case Target.Interior.Color = RGB(255, 255, 255): Target.Interior.Color = RGB(198, 239, 206)
Case Target.Interior.Color = RGB(198, 239, 206): Target.Interior.Color = RGB(255, 199, 206)
Case Target.Interior.Color = RGB(255, 199, 206): Target.Interior.Color = RGB(255, 255, 255)
End Select
Worksheets("2021").Calculate
Worksheets("2021").Protect
End Sub