CommNews Forum Home  

Zurück   CnC Foren > Verschiedenes > Tech-Support / Tech-Talk

 
 
Themen-Optionen Thema bewerten Ansicht
  #6  
Alt 07-02-2005, 12:41
Benutzerbild von Sven
Sven Sven ist offline
Tech-Admin

 
Registriert seit: Dec 2000
Ort: Neuss
Beiträge: 37.844
Sven ist ein C...
OL Nick: xysvenxy
Style: cncboard
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
Allerdings wird der Benutzer das abfangen können in dem er die Makros deaktiviert.
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:
Wir sind im Augenblick dabei, zu prüfen, ob es im öffentlichen Interesse liegt, ihnen mitzuteilen, ob wir die Informationen haben, die Sie erbitten, und ob es, sollte das der Fall sein, im öffentlichen Interesse liegt, Ihnen diese Informationen zur Verfügung zu stellen.

Geändert von Sven (07-02-2005 um 12:44 Uhr).
Mit Zitat antworten
 

Lesezeichen


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)
 
Themen-Optionen
Ansicht Thema bewerten
Thema bewerten:

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge hochzuladen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

BB-Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist Aus.
Gehe zu


Alle Zeitangaben in WEZ +2. Es ist jetzt 15:22 Uhr.


Powered by vBulletin Version 3.7.3 (Deutsch)
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Template-Modifikationen durch TMS

Affiliates
United Forum GetBoinKeD cnc.onlinewelten.de