Messagebox und Blattschutz
30.08.2016 18:19:46
Phia
vielleicht kann mir jemand mit meinem kleinen VBA Problem helfen. Meine leider nicht ganz so ausgeprägten VBA-Kenntnisse (learning by doing :-) ) reichen leider nicht mehr aus.
1. Problem
Ich habe gesperrte Zellen, die durch einen Makro gefüllt werden sollen. Dafür habe ich
ActiveSheet.Protect UserInterfaceOnly:= True, Password:="123456"
Das funktioniert soweit auch ganz gut. Nur wenn ich das Blatt entsperre um darin zu arbeiten kann ich nur eine Aktion ausführen z.B. einen Zelleninhalt löschen und dann sperrt sich das Blatt wieder automatisch. Leider weiß ich nicht warum das passiert oder was ich machen muss, damit dieses Problem nicht auftritt.
2. Problem
Ein weiteres Problem habe ich mit Messageboxen. Ist eine bestimmte Bedingung erfüllt soll eine Messagebox erscheinen.
Sub Worksheet_Change (ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column 90 Then Exit Sub
If Target.Row >=35 And Target.Row Wenn der Inhalt diese Bedingung erfüllt erscheint auch die MsgBox. Soweit funktioniert meine Idee. Wenn jedoch der Zelleninhalt gelöscht wird, erscheint die Box erneut. Da die Datei auch von anderen Mitarbeiter genutzt wird, möchte ich diesen doch unschönen Effekt vermeiden.
Fall jemand eine Idee hat, wie man eines der Probleme lösen könnte, würde ich mich über eine Antwort sehr freuen.
Phia