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
[
attachment=27404]
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
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
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
Hallo Chris,
sorry aber ich kenne mich nicht so gut aus im Thema VBA.
Wohin muss dieser Code jetzt kopiert werden ?
MfG
Gerhard
Hallo,
das Thema hat sich für mich erledigt.
Ich habe den Passwortschutz komplett entfernt.
Jetzt funktioniert alles so wie es soll.
MfG
Gerhard