Ich habe eine Tabelle1 mit Schreibschutz ohne Kennwort.
Ich rufe mit Doppelclick auf eine Zelle in Spalte 3 eine Userform1 auf. Das klappt.
Mit dem Commandbutton1 trage ich erledigt ein und markiere die Zelle gelb,und möchte die Userform wieder verschwinden lassen- das geht.
Aber am Ende der Sub bekomme ich die Meldung:
Die Zelle ist geschützt und somit schreibgeschützt.
Den Schreibschutz mache ich aber erst am Ende der Sub "scharf".
Private Sub CommandButton1_Click()
If ActiveCell.Column = 3 And ActiveCell = "" Then
Tabelle1.Unprotect
ActiveCell.Select
Selection.Value = "Erledigt"
With Selection.Interior
.ColorIndex = 6
End With
UserForm1.Hide
Tabelle1.Protect
End If
End Sub
Wo steckt mein Denkfehler?
Schönes Wochenende noch
Egon