Blattschutz bei freigegebenen Arbeitsmappen

Ich benutze folgendes Coding, um den Blattschutz für mehrere Blätter zu aktivieren bzw. zu deaktivieren!
Dies funktioniert, solange ich die Arbeitsmappe nicht freigebe! Gebe ich sie frei, erhalte ich beim aus-
führen eine Anwendungs- oder objektdefinierten Fehler (1004)!

Wie kann man den Fehler umgehen, oder ist diese Funktionalität bei freigegebenen Arbeitsmappen nicht
möglich?

Public Sub SchutzAktivieren()  

Dim wks As Worksheet  
'---------------------

Application.ScreenUpdating = False

strName = ActiveSheet.Name

'Schutz aktivieren
For Each wks In Application.Worksheets  
    If Right(wks.Name, 1) = "#" Then  
        wks.Activate
        ActiveSheet.Protect
    End If  
Next wks
   
Worksheets(strName).Activate
   
Application.ScreenUpdating = True

End

Gruss Stephan