Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
29 lines (25 sloc) 969 Bytes
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
END
Attribute VB_Name = "DieseArbeitsmappe"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Private Sub Workbook_Open()
' Rainer Winkler CubeServ 13.March.2012
' Add menut items to the context menu
RequirementFunctions.AddSimpleReqMenuToConextMenu
RequirementFunctions.NeuesMenue
' Der Schutz muss so sein, dass das Makro die ID ändern darf
' Darum wird der Schutz hier auch dann gesetzt, wenn er dieses bereits ist
RequirementFunctions.BlattEinstellungenSchuetzen
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' Rainer Winkler CubeServ 13.March.2012
' Remove the menu items when the workbook is closed
' It is save to run this method manually. But it may remove context menu items from other projects too
RequirementFunctions.ResetContextMenuChanges
RequirementFunctions.NeuesMenueLoeschen
End Sub