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
Verfalldatum = #12/2/2015#
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