Arbeitsmappe bis Datum "X " öffnen

Question

Guten Abend
Erstmal möchte ich mich bei allen VBA - Freaks bedanken , die mir mit
ihren Makros weitergeholfen haben .
Jetzt suche ich aber noch ein Makro
das die Arbeitsmappe nur bis zu einem bestimmten Datum öffnet und
danach eine Passwortabfrage nötig ist
MfG

Answer 1

Hi,

was hälts du von diesem Makro? Einzufügen im Modul "DieseArbeitsmappe

Private Sub Workbook_Open()

Datum = "29.01.2017"
Passwort = "Hallo"

If Date > DateValue(Datum) Then
ActiveSheet.Rows.Hidden = True
pw = InputBox("Freier Zugang abgelaufen. Bitte geben Sie ein Passwort ein", ActiveWorkbook.Name)
If pw <> Passwort Then
ThisWorkbook.Close False
Else
ActiveSheet.Rows.Hidden = False
End If
End If


End Sub

Das VBA Projekt solltest du dann aber schützen, damit keiner das Passwort auslesen kann.

Answer 2

Hallo Community ^^

Vielleicht noch hilfreich!

Das Erstellungsdatum der Datei!

Gruss Nighty

Function DateiDatum() As Date
Dim FileO As Object
Set FileO = CreateObject("Scripting.FileSystemObject")
DateiDatum = Mid(FileO.GetFile(ThisWorkbook.Path & "\" & ThisWorkbook.Name).DateCreated, 1, 10)
End Function