Hallo und eine schöne restliche Weihnachtszeit an alle.
Bei der weihnachtlichen Ruhe brühte ich momentan vor einem Problem
welches ich noch nicht so richtig gelöst bekomme.

Wenn meine Exceltabelle gespeichert wird, werden alle
beschrieben Zellen gesperrt. Das funktioniert mit dem
unten stehenden Script ganz gut. Nun muss ich noch ein paar
Ausnahmen definieren, wenn in einer Zelle einer Spalte der Wert "a"
auftaucht darf diese Zelle nicht gesperrt sein.
Hat jemand eine Idee wie ich das Script anpassen muss?


Im Detail betrifft dies die Spalte "L" für die Buchstaben "a"; "s",
und die Spalte "W" für den Buchstaben "s"

Vielen Dank!

 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

 Dim wsTab As Worksheet
 Dim rngWerte As Range
 Dim rngFormeln As Range
 Set wsTab = Worksheets("Korrekturen")

On Error Resume Next


  With wsTab
     If .ProtectContents = True Then .Unprotect Password:="record"
     With .Range("A:X")
       .Locked = False
       On Error Resume Next
       Set rngWerte = .SpecialCells(xlCellTypeConstants)
       Set rngFormeln = .SpecialCells(xlCellTypeFormulas)
       On Error GoTo 0
     End With
     If Not rngWerte Is Nothing Then rngWerte.Locked = True
     If Not rngFormeln Is Nothing Then rngFormeln.Locked = True

     .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
              , AllowSorting:=True, AllowFiltering:=True, Password:="record"

   End With

End Sub