datei schließen wenn datum =.......
23.12.2003 01:11:08
thomas
ich habe folgenden Code geschrieben:
Sub Workbook_open()
If Date > DateValue("01.02.2005") And _
ThisWorkbook.Sheets(".").Range("H10") <> "123456" Then _
a = MsgBox("Dieses Produkt wurde nicht registriert. Die Testversion ist nun abgelaufen." & vbCrLf & _
"Das Arbeiten mit diesem Produkt ist erst wieder möglich, wenn der Produkt-Key eingegeben wurde. Haben Sie diesen nicht vorliegen, wenden Sie sich bitte an den Urheber." & vbCrLf & vbCrLf & _
"Die Datei wird nun geschlossen", _
0 + 48, "Liebe(r) " & Application.UserName)
If Date > DateValue("01.02.2005") And _
ThisWorkbook.Sheets(".").Range("H10") <> "123456" Then _
ThisWorkbook.Save
ThisWorkbook.Close
End Sub
Nun verstehe ich eins nicht:
egal welche Vorraussetzungen gegeben sind, die datei wird geschlossen. wenn die Vorraussetzungen zum schließen nichtgegeben sind, wird die Datei nicht gespeichert und die msgBox erscheint nicht, jedoch wirde sie geschlossen.......
Versteht ihr warum?
Mfg