Help with macro, automatical locking cells when excel is closed but only locking 1 sh

I have a macro that locks cells once excel is closed, the only problem is that it only works on the first sheet, is there a way for all the sheets to do this, or just one for the wookbook?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim SH As Worksheet
Dim rng As Range
Const PWORD As String = "ABC" '

Set SH = Me.Sheets("SS Record Sheet") '

With SH
.Unprotect Password:=PWORD
On Error Resume Next
Set rng = SH.Cells.SpecialCells(xlCellTypeConstants)
On Error GoTo 0

If Not rng Is Nothing Then
.Cells.Locked = False
rng.Cells.Locked = True
.Protect Password:=PWORD
End If
End With
End Sub
Private Sub Workbook_Open()
'check for filter, turn on if none exists
With Worksheets("SS Record Sheet")
  If Not .AutoFilterMode Then
    .Range("A1").AutoFilter
  End If
  .EnableAutoFilter = True
  .Protect Password:="ABC", _
  Contents:=True, UserInterfaceOnly:=True
End With
End Sub

Changes to your code are minimal but may look bigger because I added appropriate indentation.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

   Dim SH As Worksheet
   Dim rng As Range
   Const PWORD As String = "ABC" '
   
   'Set SH = Me.Sheets("SS Record Sheet") '
   For Each SH In Worksheets ' added
   
      With SH
         .Unprotect Password:=PWORD
         On Error Resume Next
         Set rng = SH.Cells.SpecialCells(xlCellTypeConstants)
         On Error GoTo 0
         
         If Not rng Is Nothing Then
            .Cells.Locked = False
            rng.Cells.Locked = True
            .Protect Password:=PWORD
         End If
      End With
   Next SH ' added

End Sub

[/quote]

Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution. Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.
To change a Title on your post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.