Hallo liebe Experten,
folgendes Problem lässt mich fast vom "exel Glauben" abfallen.
Ich hab eine Tabelle erstellt, auf die meine Kollegen und ich gemeinsam nutzen.
(Buttons mit Makros belegt zum anklicken u.s.w.)
Auf der rechten Seite des Tabellenblattes hab ich einen Bereich, den nur ich nutzen möchte. Ich habe also meine Buttons mit einem Rechteck (shapes) überzogen und ihm den Namen Schutzschild gegeben. Ein Makro erledigt das mit folgendem Code:
Sub shapes_erstellen()
'
ActiveSheet.Unprotect ("sicher")
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 529.62, 96.23, 165.46, 141.23). _
Select
Selection.Name = "Schutzschild"
ActiveSheet.Protect Password:="sicher", userinterfaceonly:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Das Passwort zum anschließenden Schutz des Tabellenblattes lautet: "sicher"
Ein weiteres Makro
Sub shapes_löschen()
ActiveSheet.Unprotect
ActiveSheet.Shapes("Schutzschild").Select
Selection.Delete
End Sub
soll das shape verschwinden lassen mit dem Passwort "sicher" was natürlich nur ich kenne.
Jetzt mein Problem:
Wenn ich den Button betätige, der das shapes entfernen soll, erscheint das Feld zur Eingabe des Passwortes und wenn ich da auf abbrechen klicke, ist das Schutzschild über meinen Button`s weg!
Das Makro führt die Aktion aus, obwohl das das Tabellenblatt noch geschützt ist, was meiner Meinung nicht gehen kann - aber ich bin ratlos, ich hoffe Ihr nicht.
Gruß Kurt