Blattschutz aufheben ohne Erfolg...
02.03.2005 09:52:15
Simon
ich habe mal wieder ein kleines Problem, welches mich fast zur Verzweiflung bringt *grrr*. Ich hoffe ihr könnt mir da aus der Patsche helfen....
Ich habe ein Sheet, dessen Zellen meist geschützt sind, jedoch vom User her durch ComboBoxen mit Inhalt gefüllt werden sollen. Nun wollte ich das ganze per VBA folgendermaßen lösen:
Private Sub cbo1_Change()
ActiveSheet.Unprotect "password"
ActiveSheet.Calculate
Range("J10").Select
Selection.Copy
Range("D16").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
ActiveSheet.Calculate
ActiveSheet.Select
ActiveSheet.Protect "password"
End Sub
Feld D16 ist folgendermaßen das Feld mit den Auswahlmöglichkeiten. Nun passiert jedoch folgendes: Wenn das Blatt ungeschützt ist, kann ich aus der ComboBox einen Eintrag wählen und er wird auch in die Zelle übernommmen und der Blattschutz daraufhin aktiviert. So weit so gut. Das wars dann aber auch schon. Wenn ich nun (im geschützen Blatt) erneut eine Auswahl treffe: "Blatt ist geschützt und kann nicht geändert werden....." D.h. der Schutz wird nicht rausgenommen :-(
Könnt ihr mir da evtl. weiterhelfen? Langsam zweifle ich an mir selbst :-)
Viiiielen Dank schonmal im voraus und viele Grüße
Simon