ich habe eine geschützte tabelle (in den ungeschützten zellen ist das einfügen von kommentare erlaubt) nach ausführen meines makros, entsperre ich zuerst die tabelle und in einem zweiten schritt sperre ich es wieder. die folge ist, dass in den ungeschützten zellen das einfügen von kommentare nicht mehr erlaubt ist. was mache ich falsch?
danke für eure unterstützung :-)
hier mein makro:
Private Sub CommandButton1_Click()
If ActiveSheet.CommandButton1.Caption <> "Speichern" Then
UserForm1.Show
Else
ActiveSheet.Unprotect Password:="xxx"
'VOD
Range("B7:AF7").Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True Password:="xxx"
ActiveSheet.EnableSelection = xlUnlockedCells
ActiveSheet.CommandButton1.Caption = "Öffnen"
End If
End Sub