Projektschutz über Makro aufheben geht nicht
02.03.2008 17:21:00
Thomas
ich habe meine Datei mit vielen vielen Makros mit einem Projektschutz belegt. Ich weis das man diesen auch mit einem Makro automatisch aufheben kann.
wenn ich aber nachfolgende Prozedur starte, dann funzt das nicht und ich erhalte als Antowrt immer
Laufzeitfehler 50289
Die Operation kann nicht durchgeführt werden, solange das Projekt geschützt ist
Hier das Makro und die Reihenfolge des Ablaufes
Public Sub intern_viewer()
Call Eigenschaften 'siehe Makro Eigenschaften
Sheets("Hauptblatt").Select
Call Schutz_rein
Application.Dialogs(xlDialogSaveAs).Show Range("a1") & "_Viewer(intern)"
Call alle_Makros_loeschen
End Sub
Sub Eigenschaften()
SendKeys ("%{f11}")
SendKeys ("%xi")
SendKeys ("test") 'VBA Kennwort
SendKeys ("{Enter}")
SendKeys ("{Enter}")
End Sub
Wer weis einen Rat? Normalerweise funktioniert das doch aber.
Gruß Thomas
Anzeige