Mit Kennwortschutz einer Arbeitsmappe werden Makros nicht ausgeführt

[chris-ka]

Hallo,

zuerst mal an Peter alles Gute!

Zum Thema:
es ist nicht nötig zuerst den Blattschutz aufzuheben und dann wieder zu setzen :)
dafür gibt es den Parameter UserInterfaceOnly:=true beim Blattschutz.

siehe https://www.youtube.com/watch?v=q2WBP1bjZZk

anbei noch die Datei vom Video

  passwortschutz.xlsm (Größe: 20,42 KB / Downloads: 8)

[mdt8ws]

Hallo,

auch von mir alles Gute an Peter !

Vielen Dank für den Videolink und die beigefügte Excel-Datei.
Werde ich heute Abend testen und anschließend Feedback geben.

MfG
Gerhard

[mdt8ws]

Hallo Chris,

zunächst erstmal vielen Dank für die tolle Anleitung mit Video und Excel-Datei. Das ist schon sehr professionell und funktioniert auch perfekt im Beispiel.

Bei meiner Mitgliederdatei ist es jedoch so, dass die 11 Tabellen keinen Blattschutz haben, sondern nur für die Arbeitsmappe ein Kennwort mit 11 Zeichen (Buchstaben, Zahlen und Sonderzeichen) vergeben wurde.
Wie schon zu Anfang beschrieben, habe ich für 8 Tabellen Makros vergeben, die beim Öffnen der Tabellen ausgeführt werden sollen. Das hat auch einige Tage funktioniert, dann aber nicht mehr. Ich kann diese Makros aber ohne Probleme über eine Schaltfläche in den Tabellen ausführen.

Ich habe dann mal ein neues Passwort mit nur 3 Zeichen (Zahlen) für diese Arbeitsmappe vergeben.
Und seitdem werden diese 8 Tabellen beim Öffnen wieder automatisch aktualisiert, schon kurios.

Gibt es eventuell hierfür eine Erklärung/Lösung ?


MfG
Gerhard

[chris-ka]

Hallo Gerhard,

Wenn du einen Arbeitsmappenschutz vergeben hast sollten Makros eigentlich funktionieren ohne das der Schutz aufgehoben wird!
Es sei den du blendest Blätter ein/aus oder fügst neue Blätter(Tabellen) ein oder willst diese verschieben oder kopieren.


Bei Workbook.protect gibt es auch keinen Parameter welcher erlaubt Makros auszuführen.
da musste so vorgegangen werden.

Code:

Sub MeinMakro()
'Arbeitsmappenschutz aufheben
ThisWorkbook.Unprotect Password:="Hallo1!"
'was Auch immer hier gemacht wird
Sheets.Add After:=Sheets(1)
'Arbeitsmappenschutz setzen
ThisWorkbook.Protect Password:="Hallo1!", structure:=True
End Sub

Warum es mit 3 Zeichen als PW auf einmal klappen sollte!?
Ist für mich nicht verständlich und  hat normalerweise auch damit nichts zu tun.

lg
Chris

[mdt8ws]

Hallo Chris,

sorry aber ich kenne mich nicht so gut aus im Thema VBA.
Wohin muss dieser Code jetzt kopiert werden ?

MfG
Gerhard

[mdt8ws]

Hallo,

das Thema hat sich für mich erledigt.
Ich habe den Passwortschutz komplett entfernt.
Jetzt funktioniert alles so wie es soll.


MfG
Gerhard