|
#6
|
||||
|
||||
|
In Word?
Mit VBA. Dazu kannst du eine recht einfache Routine benutzen die die Open Funktion verwendet und abfragt ob das gewünschte Datum schon gekommen ist. Code:
Private Sub Document_Open()
Dim TheDate As Date ' Declare variables.
TheDate = "07.02.05"
varx = DateDiff("d", Now, TheDate)
If varx > 0 Then
MsgBox "Datum nicht erreicht!"
ThisDocument.Close
End If
End Sub
Abhilfe kannst du schaffen in dem du, ebenfalls per Makro, den Text zunächst ausblendest - der kann ja dann nur dargestellt werden wenn der Anwender die Frage, ob er die Makros aktivieren will mit 'Ja' beantwortet.
__________________
Zitat:
Geändert von Sven (07-02-2005 um 12:44 Uhr). |