Dateischutz über VBA

Hallo,
das letzte mal wurde mir so gut geholfen hier, da habe ich direkt noch eine Frage.
Ich suche nun schon etwas, finde aber nicht mal eine Information ob es überhaupt möglich ist was ich vorhabe.
Es geht darum, das mein Makro, ab einem bestimmten Datum (01.01.2017) die gesamte Excel Datei mit einem Kennwort schützen soll. So soll vermieden werden das die Excel Liste nach dem 01.01.2017 weiterhin verwendet wird. Ich rede nicht von einem Schreibschutz, sondern von einem Dateischutz.
So wie er manuell über den Weg Datei -> Speichern unter -> Tools -> Allgemeine Optionen, eingerichtet werden kann.
Ich beginne mit dem Code:


Private Sub Workbook_Open()
If Date > CDate("01.01.2017") Then
'hier benötige ich eine Lösung zum Dateischutz
End If
End Sub

nur um das Datum abzufragen.
Doch der eigentlich Code zum Schutz den finde ich nicht.
Effektiv kann ich das auch nur dann verwenden wenn auch beim Kopieren einer Excel Datei die Schutzfunktion aktiv bleibt. Beim Schreibschutz ist das z.B. ja nicht der Fall. Liste kopiert und sie kann sofort beschrieben werden. Jetzt ist der Schreibschutz ja nun auch nicht dafür gedacht eine Datei vor Manipulation zu schützen, sondern eher um versehentliches überschreiben zu vermeiden.
Ich habe mir gedacht das Makro sollte wie folgt funktionieren:
Beim öffnen der Datei
Frage das Datum 01.01.2017 ab
Wenn das Datum 01.01.2017 kleiner ist als heute
dann setze ein Kennwort für den "Dateischutz" und Speicher die Datei unter gleichem Namen im gleichem Verzeichnis.
Im Anschluss soll der Dateischutz auch bestehen wenn die Datei kopiert wird oder gar ohne Makros ausgeführt wird. Denn nur weil ein Makro nicht ausgeführt wird, kann ja der Schutz nicht plötzlich weg sein!? Oder habe ich einen Denkfehler?
Ich danke euch schon mal für eure Hilfe.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_Open() Dim dat As Date dat = Format(CDate(Now), "07.04.2016") If dat > ThisWorkbook.Sheets("Tabelle1").Range("A1") Then ' "A1" .. in A1 stünde dann das Gü _ ltigkeitsdatum und Name anpassen! MsgBox "Diese Arbeitsmappe schimmelt schon!" ThisWorkbook.Close End If End Sub

Private Sub Workbook_Open() If Date >= CDate("07.04.2016") Then MsgBox "Dies ist eine Testdatei, sie können bis zum 7.4.2016 lernen ! Danach kein Einstieg _ mehr möglich !" ThisWorkbook.Close End If End Sub

Hallo,
danke für deine Antwort und entschuldige bitte meine späte Rückmeldung.
Deinen Ansatz hatte ich bereits in Erwägung gezogen, denn was nicht offen ist kann ich auch nicht ändern oder kopieren. Ich hatte es nur mit dem Befehl Application.Close geschrieben.
Problem bei dem ganzen ist, das wenn die Makrosicherheit hochgestellt wird, das Makro erst manuell wieder aktiviert werden muss bevor sich Excel schließt. Das heißt, bis dahin kann ich in der Tabelle arbeiten.
Anders gesagt, wenn ich die Tabelle kopiere, werde ich wieder gefragt ob ich die Makros ausführen will. Drücke ich ja, schließt sich Excel. Aber den Fehler macht man wohl nur ein mal.
Daher wäre für mich die optimalste Lösung eben ein Dateischutz. Den wiederum werde ich aber scheinbar nicht über VBA aktivieren können. Zu mindestens habe ich noch keine annehmbare Lösung gefunden.

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread