in einer Arbeitsmappe mit 3 Tabellen soll ein Makro beim Speichern einen Teil der 1. Tabelle (nennen wir sie "2019") sperren und zwar Teile der Zeilen deren Spalte 2 (B) nicht leer ist.
Bisher passierte dies direkt beim Eintrag eines Wertes in Spalte 2 der Tabelle über
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Value "" Then
With ActiveSheet
.Unprotect Password:="unser Passwort"
.Range(.Cells(Target.Row, 1), .Cells(Target.Row, 10)).Locked = True
.Protect Password:="unser Passwort"
End With
End If
End Sub
Der Versuch dies im Workbook als:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
"hier müsste Code stehen"
End Sub
zu verarbeiten ist bisher gescheitert.
Ich hoffe ihr habt einen Lösungsansatz für mich.
Grüße
Andreas