Blattschutz im Makro

ich muss in einem Makro den Blattschutz aufheben, da es in einem Blatt Zellen einfügt. Wie funktioniert das per VB? Oder gibt es ne Möglichkeit, dass die Makros generell ausgeführt werden trotz Blattschutz und man nicht immer diese einzeln in den Prozeduren aufheben muss?

Hatte schon mal folgenden Tipp hier gelesen. Aber trotzdem klappt es damit nicht. Ich muss den Schutz in betreffendem Blatt vorher rausnehmen:

Private Sub Workbook_Open()
Dim Arbeitsblatt As Worksheet
Application.ScreenUpdating = False
For Each Arbeitsblatt In Worksheets
Arbeitsblatt.Protect Password:="orga", UserInterfaceOnly:=True
Next Arbeitsblatt
End Sub
Danke und Grüße...