Add Classic Excel Menu

'Module1


'Available References List

'1) Name: VBA, Description: Visual Basic For Applications, FullPath: C:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL
'2) Name: Excel, Description: Microsoft Excel 11.0 Object Library, FullPath: C:\Program Files (x86)\Microsoft Office\OFFICE11\EXCEL.EXE
'3) Name: stdole, Description: OLE Automation, FullPath: C:\Windows\SysWOW64\stdole2.tlb
'4) Name: Office, Description: Microsoft Office 11.0 Object Library, FullPath: C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE11\MSO.DLL

Option Explicit
Private CB As CommandBar
Private CBC As CommandBarControl
Private CEM As CommandBar 'Classic Excel Menu
Sub Auto_Open()

Call Make_CEM

End Sub
Sub Auto_Close()

Call Delete_CEM

End Sub
Private Sub Make_CEM()

On Error Resume Next
Application.CommandBars("Classic Menus").Delete
On Error GoTo 0
Set CEM = Application.CommandBars.Add("Classic Menus", , True)
With CommandBars("Built-in Menus")

.Controls("&File").Copy CEM
.Controls("&Edit").Copy CEM
.Controls("&View").Copy CEM
.Controls("&Insert").Copy CEM
.Controls("F&ormat").Copy CEM
.Controls("&Tools").Copy CEM
.Controls("&Data").Copy CEM
.Controls("&Window").Copy CEM
.Controls("&Help").Copy CEM

End With
Application.CommandBars("Classic Menus").Visible = True

End Sub
Private Sub Delete_CEM()

On Error Resume Next
Application.CommandBars("Classic Menus").Delete

End Sub
'Sub References_List()

' On Error Resume Next
' Dim Eleman, No
' No = 1
' For Each Eleman In ThisWorkbook.VBProject.References

' Sheets(1).Cells(No, 1) = No & ") Name: "
' Sheets(1).Cells(No, 2) = Eleman.Name
' Sheets(1).Cells(No, 3) = ", Description: "
' Sheets(1).Cells(No, 4) = Eleman.Description
' Sheets(1).Cells(No, 5) = ", FullPath: "
' Sheets(1).Cells(No, 6) = Eleman.FullPath
' No = No + 1

' Next Eleman

'End Sub