Where to protect sheet in this code?

[MeaclH]

G'day all,
Just wondering where to put the code to protect the sheet in this code?
Many thanks all!
Hayden

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Resp As String

If Target.CountLarge = 1 And Not Intersect(Target, Range("G10:T172")) Is Nothing Then
ActiveSheet.Unprotect
    With Target
      Select Case .Value
        Case "SDO", "STFN", "CDO", "CTFN" '<- Add more trigger values here if required
          Resp = Application.InputBox("Please insert details of absenteeism", _
          Title:="Absenteeism Details")
          If Len(Resp) > 0 And Resp <> "False" Then
            If Not .Comment Is Nothing Then
              .Comment.Text .Comment.Text & vbLf & Resp
            Else
              .AddComment Text:=Resp
            End If
          End If
      End Select
    End With
  End If

 

[Micron]

Assuming it was protected to begin with, I'd say between End With and the End If that follows that. That will take care of the situation where the outer if is True for both parts AND the Case is one of those cases. Also, if the outer if is True but the Case is not True, code exits the Case block but will still encounter the protection line if placed as suggested. The only situation where the protection will not be removed is if the outer If evaluates to False.

If you put the protection before End Sub, then you'll be protecting the sheet even if it is already protected. I suppose that would not be an issue - it's just not real efficient in terms of writing code.