Thema Datum  Von Nutzer Rating
Antwort
02.12.2015 19:37:18 Günter
NotSolved
Blau Datumsanzeige in VBA bei Passwortabfrage
 02.12.2015 22:38:14 BigBen
NotSolved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
02.12.2015 22:38:14		 Views:
609		 Rating:
     
Antwort:
  Ja
Thema:
Datumsanzeige in VBA bei Passwortabfrage

Hallo,

es fehlte ein Befehl für di Deklaration der Variablen "HEUTE" und "VERFALLDATUM":

Option Explicit
 
Private Sub Workbook_Activate()
 
Call prcVisibilityMenus
 
End Sub
 
Private Sub Workbook_Deactivate()
 
Call prcVisibilityMenus(opvblnVisible:=True)
 
End Sub
 
Private Sub prcVisibilityMenus(Optional ByVal opvblnVisible As Boolean)
 With Application
    If Val(.Version) < 12 Then
       .CommandBars("Worksheet Menu Bar").Enabled = opvblnVisible
       .CommandBars("Formatting").Visible = opvblnVisible
       .CommandBars("Standard").Visible = opvblnVisible
    Else
       Call .ExecuteExcel4Macro("Show.Toolbar(""Ribbon"", " & opvblnVisible & ")")
    End If
End With
End Sub

Private Sub Workbook_Open()
Dim Heute As Date, Verfalldatum As Date
Application.DisplayAlerts = False
Heute = Now ' (hier liegt der Hund  begraben)
Verfalldatum = #12/2/2015#  'Hier Verfalldatum im Format MM/TT/JJJJ eintragen

If Verfalldatum < Heute Then
Dim passwort As String
    passwort = InputBox("Die Testphase ist abgelaufen," & Chr(13) & Chr(13) & "  bitte geben Sie Ihre Registrierungs-Nr.:", "Testphase abgelaufen, Reg.Nr. erforderlich")
    If passwort <> "XXX" Then
    MsgBox "     Das Kennwort ist ungültig," & Chr(13) & Chr(13) & "der Vorgang wird abgebrochen !"
    ThisWorkbook.Close
End If
MsgBox ("Registrierung erfolgreich")
Application.DisplayAlerts = True
End If
End Sub

VG, BigBen

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
02.12.2015 19:37:18 Günter
NotSolved
Blau Datumsanzeige in VBA bei Passwortabfrage
 02.12.2015 22:38:14 BigBen
NotSolved