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
|