Office: (Office 2010) Excel VBA blattschutz Problem

Hallo.
Ich habe seit ein paar tagen folgendes Problem.
Ich habe eine excel tabelle mit mehreren Tabellenblättern. Die Tabellenblätter sind mit einem Blattschutz versehen. Der Blattschutz wurde mit folgendem makro aktiviert:
Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect
Next ws
End Sub
Seit neuesten funktioniert der blattschutz nicht mehr. wenn ich die tabelle neu starte ist der blattschutz nicht mehr aktiv, auch wenn ich den blattschutz per hand mit überprüfen, Blatt schützen aktiviere, und die tabelle speicher. nach einem neustart der tabelle ist der blattschutz nicht mehr aktiv.
Gibt es dazu ein Lösung??
Mein system:
Windows 10Pro 2004 Build 19041.906
Office 2010
Updates sind aktuell.
Danke im voraus für eure hilfe

 

Moin!
Nun, in Deinem Snippet wird ja nicht gespeichert.
Setze mal über End Sub Me.Save

Dass Excel 2010 den "End of support" überschritten hat, ist bekannt?
Ende des Supports für Office 2010

Gruß Ralf

 

Danke für eure Hilfe.
Ja. Office 2010 wird nicht mehr supportet, aber solange das ding noch läuft kann ich es ja noch benutzen. Ich habe office 2010 seit 6 jahren, und ich komme damit super zurecht. warum soll ich immer auf was neueres umstellen, solange das alte noch einwandfrei funktioniert.
Das Proiblem habe ich aber jetzt selbst gelöst. Ich bin ein wenig durcheinander(dumm) Ich hatte zwei Makros am laufen. Im ersten wollte ich die Blätter schützen, im anderen makro habe ich den Blattschutz aufgehoben. Schützen und gleichzeitig aufheben, das geht ja nicht.
Also danke nochmal für eure Hilfe.
Das wars mit meinem Problem.