Hallo zusammen,
dieses kleine Makro funktioniert , meine Frage ist, wie kann ich das Workbook noch erreichen , wenn diese Testzeit abgelaufen ist ?
Ändere ich auf dem Rechner das Systemdatum komme ich zwar an die Datei, mein Kaspersky macht dann aber nicht mehr mit....das ist also nicht die Lösung.
Bitte euch um Hilfe ...eventuell gibt es eine andere Art das Makro zu schreiben.
Private Sub Workbook_Open()
'If Date >= "15.08.2011" Then
' MsgBox "Ihre Testphase ist abgelaufen," _
' & vbCr & "bitte wenden Sie sich an Ihren Administrator."
' ActiveWorkbook.Close savechanges:=False
'End If
Gruß
Matthias