How to disable (Record Macro) menu (by macro codes) - vba

Question

In (Microsoft Excel) In (Tools > Macro) There is a menu with name of (Record Macro)
How to disable (Record Macro) menu by a macro code?

Answer 1

You can use a loop like this:
Dim ctl As CommandBarControl
For Each ctl In Application.CommandBars.FindControls(ID:=184)
ctl.Enabled = False
Next ctl

Answer 2

For Excel 2007+, you need to manipulate the ribbon. This is as good as I can come up with, the problem as Rory and I discussed in comments to his answer is that the MacroRecord command can be added to the Status Bar, and the Status Bar is not part of the ribbon model. The hack is to disable the status bar, but since that is an application-level property, you need an event handler to re-enable it for other workbooks.
Ribbon XML to disable the controls:
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="ribbonOnLoad">
<commands>
<command idMso="MacroRecord"
enabled="false"
/>
</commands>
<ribbon>
<tabs>
<tab>
<group idMso="GroupMacros">
<button idMso="MacroRecord"
enabled="false"
/>
</group>
<group idMso="GroupCode">
<button idMso="MacroRecord"
enabled="false"
/>
</group>
</tab>
</tabs>
</ribbon>
</customUI>
VBA in a standard module to handle the ribbon callbacks and associated procedures:
Option Explicit
Option Private Module
Public XLEvents As New cEventClass
'Callback for customUI.onLoad
Sub ribbonOnLoad(ribbon As IRibbonUI)
Call SetEventHandler
Call ToggleStatusBar(ThisWorkbook)
End Sub
Sub SetEventHandler()
If XLEvents.appevent Is Nothing Then
Set XLEvents.appevent = Application
End If
End Sub
Sub ToggleStatusBar(wb As Workbook, Optional ret$)
If (wb.Name = ThisWorkbook.Name) Then
Application.StatusBar = "Status Bar Disabled"
Else
Application.StatusBar = False
End If
End Sub
VBA in a Class module called "cEventClass" to do application event-handling:
Option Explicit
Public WithEvents appevent As Application
Dim ret As String
Private Sub appevent_WorkbookActivate(ByVal wb As Workbook)
Call ToggleStatusBar(wb, ret)
End Sub