excellent menu insert file menu print print preview sheet / page structure remains Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Private Sub Workbook_Open()
    Dim CmdB As CommandBar, nCmdB As CommandBar
    Dim nCtlP As CommandBarPopup, nCtlB As CommandBarButton
    For Each CmdB In Application.CommandBars
     If CmdB.Type = msoBarTypeMenuBar And _
        CmdB.Name = "Meine Menueleiste" Then
        CmdB.Delete
    End If
   Next CmdB
    Set nCmdB = Application.CommandBars.Add _
        (Name:="Meine Menueleiste", Position:=msoBarTop, _
        MenuBar:=True, Temporary:=True)
   With nCmdB
        .Protection = msoBarNoMove
        .Protection = msoBarNoChangeDock
        .Protection = msoBarNoChangeVisible
        .Protection = msoBarNoCustomize
        .Protection = msoBarNoVerticalDock
        .Visible = True
    End With
    Set nCtlP = nCmdB.Controls.Add(Type:=msoControlPopup)
   With nCtlP
        .Caption = "Mein Menue &1"
    End With
    Set nCtlB = nCtlP.Controls.Add(ID:=247)
   With nCtlB
        .Style = msoButtonCaption
    End With
    Set nCtlB = nCtlP.Controls.Add(ID:=109)
   With nCtlB
        .Style = msoButtonAutomatic
    End With
    Set nCtlB = nCtlP.Controls.Add(ID:=4)
   With nCtlB
        .BeginGroup = True
        .Style = msoButtonAutomatic
    End With
    Set nCtlP = nCmdB.Controls.Add(Type:=msoControlPopup)
   With nCtlP
        .Caption = "Mein Menue &2"
    End With
    Set nCtlB = nCtlP.Controls.Add(ID:=1)
   With nCtlB
        .Caption = "Mein VBA-Makro &1"
        .OnAction = "Me_001_Code01"
        .Style = msoButtonCaption
    End With
    Set nCtlB = nCtlP.Controls.Add(ID:=1)
   With nCtlB
        .BeginGroup = True
        .FaceId = 239
        .Caption = "Mein VBA-Makro &2"
        .OnAction = "Me_001_Code02"
        .Style = msoButtonIconAndCaption
    End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Call Me_001_Delete
End Sub

Public Sub Me_001_Code01()
       MsgBox "Die Option 'Mein VBA-Makro 1' wurde gewählt!", _
              vbInformation, "Code-Beispiel (Me_001)"
End Sub

Public Sub Me_001_Code02()
       MsgBox "Die Option 'Mein VBA-Makro 2' wurde gewählt!", _
              vbInformation, "Code-Beispiel (Me_001)"
End Sub

Public Sub Me_001_Delete()
    On Error Resume Next
       Application.CommandBars("Meine Menueleiste").Delete
    On Error GoTo 0
End Sub

No	Macro Name
1	excellent menu insert file menu print print preview sheet / page structure remains
2	excel operators hk
3	perfectly deletes the menu to the right mouse and adds print print preview sheet / page structure
4	status bar macro with a message waiting
5	cancel printing in a book
6	specify the number of copies to print from the printer
7	automatic custom footer and header information on sheet / pages
8	if the sheet / page is blank, inserts the date in the footer and prints if not
9	a lot of dialog windows
10	inserts months as sheet / pages Specifies days in detail
11	Create your own extensions and functions in excel
12	To print a text from excel in Excel
13	prints all sheet / pages with data or scans but does not print
14	print-out a5 paper without preview
15	print without preview
16	prevents sheet / page deletion & naming
17	pdf preview
18	remove sheet / page protections
19	scans sheet / pages and prints previews if data is available
20	prints selected areas on a sheet of paper

Excel Free Macros (VBA)

Excellent Menu İnsert File Menu Print Print Preview Sheet / Page Structure Remains

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords