Makro zur Sicherung der Arbeitsmappe

folgendes Makro kommt in das Codemodul der Arbeitsmappe. Es hebt in allen Tabellenblättern der   _
_
Arbeitsmappe nacheinander den Blattschutz auf, sperrt dann alle Zellen, die konstante Werte  _
enthalten und anschließend auch alle Zellen, die Formeln enthalten und setzt schließlich den Blattschutz wieder. Das Makro läuft bei jeder Speicherung der Arbeitsmappe automatisch ab.
Vorher muss sichergestellt werden, dass in allen Tabellenblättern der Mappe sämtliche Zellen  _
entsperrt werden. Standardeinstellung für die Zellen ist ja, dass sie gesperrt sind.
'#                  Code einfügen in:                  #
'#   das Klassenmodul der betreffenden Arbeitsmappe    #
________________________________________
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim ws As Worksheet
'Alle Tabellenblätter der Arbeitsmappe abarbeiten
For Each ws In ThisWorkbook.Worksheets
With ws
'Blattschutz aufheben (Blattschutz ohne Passwort)
.Unprotect
'Zellen mit konstanten Werten (Zahlen, Text, Datumsangaben) sperren
.Cells.SpecialCells(xlCellTypeConstants).Locked = True
'Zellen mit Formeln sperren
.Cells.SpecialCells(xlCellTypeFormulas).Locked = True
'Blattschutz wieder setzen (Blattschutz ohne Passwort)
.Protect
End With
Next 'ws
End Sub
________________________________________