|
Das Problem ist, daß Dein CommanButton NICHT ComandButton1 zu heißen scheint. Wenn das der Fall ist, muß nicht nur der Prozedurname "Private Sub CommandButton1_Click()" geändert werden (auf die Name-Eigenschaft des Buttons) sondern auch der Code "With ThisDocument.CommandButton1": auch hier muß dann statt .CommandButton1 der Bezeichner .Name stehen, sonst kann der Button nicht entfernt werden. Außerdem wird dann hier ein Fehler ausgelöst, der den Schreibschutz des Dokuments verhindert.
Handelt es sich bei den Feldern tatsächlich um "Formularfelder"? Und stimmen die Bezeichner: rechter Mausklick->Eigenschaften->Textmarke
BTW: Hat das Dokument schon vor dem Ausführen des Codes einen Schreibschutz?
|