Datei nach festgelegtem Datum nur mit PW öffnen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Oiso,
das ganze funktioniert folgendermaßen:
1.
Wir brauchen besagten Workaround, der sicherstellt, dass Makros aktiv sind; das Problem hierbei ist, dass ja kein Code ausgeführt werden kann, wenn keine Makros aktiv sind. Der Umweg sieht deshalb so aus:
Standard-mäßig sind alle Tabellenblätter ausgeblendet (xlSheetVeryHidden, dann können sie auch manuell nicht wieder eingeblendet werden), nur eines nicht. Auf diesem einen steht ein Hinweis, dass die Mappe nur genutzt werden kann, Makros aktiv sind. Wenn man die Mappe nun ohne Makros öffnet, dann sieht man nur dieses eine Blatt, sonst nix.
Wenn man die Mappe mit Makros öffnet, dann werden im Open-Ereignis automatisch alle Tabellen ein- und die eine mit dem Hinweis ausgebelndet.
Im Before-Close-Ereignis wird dies dann wieder rückgänig gemacht, damit beim nächsten Öffnen ohne Makros wieder der Hinweis erscheint. Dies ist auch der Grund, warum die Mappe beim schliessen gespeichert werden muss. Damit der user davon nicht überrumpelt wird, gibt's im Before_Close-Ereignis zusätzlich noch einen Hinweis darauf mit Abfrage, ob er das wirklich will.
Das war jetzt erstmal nur die Vorgeschichte, jetzt kommen wir zu Deiner Aufgabe:
2.
Es gibt zwei Möglichkeiten, ein Passwort über VBA abzufragen. Die einfachere ist die, über eine InputBox. Das Problem dabei: man kann das Passwort nur als Klartext eingeben. Ich habe deshalb ein UserForm verwendet, da kann man ein Sternchen als Passwort-Char einstellen (in VBA-Editor in Eigenschaftsfenster)
Dieses UserForm wird im Workbook_Open-Ereignis dann aufgerufen, wenn das Datum überschritten wurde. Jetzt hat man drei 'Möglichkeiten':
entweder man gibt das richtige Passwort ein, dann verschwindet das UserForm und die Mappe bleibt offen.
oder man gibt ein falsches Passwort ein, dann bekommt man einen Hinweis und kann es nochmal versuchen (sooft man will)
oder man klickt auf 'Abbrechen', dann wird die Mappe nach einem entsprechenden Hinweis geschlossen.
Dies stellt beim schliessen insofern einen Sonderfall dar, weil der user ja noch nicht an der Mappe arbeiten konnte, also auch noch nichts geändert haben kann. Außerdem soll er in diesem Fall das Schliessen nicht verhindern können. Dafür gibt es die Globale Variable Abfrage_bei_Schliessen, die normalerweise auf True steht, in diesem speziellen Fall aber auf False gesetzt wird. Dadurch wird durch eine entsprechende if-Abfrage - ob wirklich gescheichert und geschlossen werden soll - im Before_Close-Ereignis die Abfrage verhindert.
So, und zur fertigen Beispiel-Mappe geht's jetzt hier entlang:
https://www.herber.de/bbs/user/40482.xls
Relevanter Code steht in den Modulen:
DieseArbeitsmappe
UserForm1
Modul1 (Deklaration der Globalen Variable)
Wenn das ganze wirklich sicher sein soll, dann müsstest Du noch im VBA-Explorer ein Passwort für den Code vergeben: Rechts-Klick auf das Projekt (links im Projektexplorer), Eigenschaften, Schutz, Projekt für Anzeige sperren, und Kennwort vergeben.
Achja, das Kennwort zum Öffnen der Mappe ist servus.
Ändern kannst Du es im Modul des UserForm im CommandButton1_Click-Ereignis.
Schönen Gruß,
Andi

Beliebteste Forumthreads (12 Monate)

Datei nach festgelegtem Datum nur mit PW öffnen

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datei nach festgelegtem Datum nur mit PW öffnen

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread