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

Ansicht des Beitrags:
Von:
Günter		 Datum:
02.12.2015 19:37:18		 Views:
1021		 Rating:
     
Antwort:
  Ja
Thema:
Datumsanzeige in VBA bei Passwortabfrage

Hallo, wer kann helfen ???

Ich weiß hier nicht wo der Fehler leigt.

 

 

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()
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

 

 

Wer kann mir sagen wo ich hier den Fehler mache!!

 

mfg

 

Günter
 

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
Rot Datumsanzeige in VBA bei Passwortabfrage
 02.12.2015 19:37:18 Günter
NotSolved
02.12.2015 22:38:14 BigBen
NotSolved