Worksheet_Activate & Workbook_SheetActivate events error 1004 when several sheets selected

I'm attempting to Protect/Unprotect worksheets based on various criteria when the user switches to them. When the user switches sheets everything works as expected. When the user right clicks on only 1 sheet tab (to hide/delete) everything works as expect. However, when multiple sheet tabs are selected, the event code throws a 1004 error at the Protect/Unprotect code.

Is there a better way of handling the Protection updates, or handling the multiple sheet tab error?


Code for reference:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
        If criteria Then
            Sh.Unprotect
        Else
            Sh.Protect
        End If
End Sub

Private Sub Worksheet_Activate()
        If criteria Then
            Me.Unprotect
        Else
            Me.Protect
        End If
End Sub

The criteria is a set of global values I use to hold project status. The workbook itself isn't protected, just the sheets.

I found a solution (work around?) by cycling through each of the selected sheets, protecting them, then reselecting them at the end. Here's the stripped down relevant code:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Dim selSheets As Variant: Set selSheets = ActiveWindow.SelectedSheets
    Dim ws As Worksheet
    
    If criteria Then
        For Each ws In selSheets
            ws.Select
            ws.Unprotect
        Next
    Else
        For Each ws In selSheets
            ws.Select
            ws.Protect
        Next
    End If
    
    For Each ws In selSheets
        ws.Select False
    Next
End Sub