Makrostart bei geschützten AB verhindern?

Bild

Betrifft: Makrostart bei geschützten AB verhindern? von: Selma
Geschrieben am: 22.03.2005 09:34:12

Hallo Leute,

ich habe eine Excel-Datei die ich über "Extras - Schutz - Blatt schützen"
geschützt habe. Die Benutzung von Gliederungen und Auto-Filter ist durch diesen Code erlaubt:

Private Sub Workbook_Open()
Sheets("Produkte").Protect userinterfaceonly:=True, Password:="selma2005"
Sheets("Produkte").EnableOutlining = True ' Für Gliederung
Sheets("Produkte").EnableAutoFilter = True ' Für AutoFilter
End Sub


Mein Problem ist jetzt, dass jeder die Makros, die ich in der Datei habe, starten kann, obwohl die Arbeitsblätter geschützt sind. Die Makros dürfen nur dann ausgeführt werden, wenn der AB ungeschützt ist.

Lässt sich dies verhindern?

Danke im Voraus....

Liebe Grüße
SELMA
Bild


Betrifft: AW: Makrostart bei geschützten AB verhindern? von: ANdreas
Geschrieben am: 22.03.2005 10:18:36

Hallo Selma,

ergänze in den betreffenden Makros ganz am Anfang folgende Zeile:
If ThisWorkbook.ActiveSheet.ProtectContents = True Then Exit Sub

Wenn das aktive Sheet in der Mappe geschützt ist, wird das Makro beendet.

Gruß
Andreas


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Makrostart bei geschützten AB verhindern?"