Как отключить (Record Macro) меню (по макрокодов)

Question

В (Microsoft Excel) в (Tools> Macro) Существует меню с именем (Record Macro)

Как отключить меню (Record Macro) с помощью макрокода?

Answer 1

Вы можете использовать цикл как это:

Dim ctl As CommandBarControl 

For Each ctl In Application.CommandBars.FindControls(ID:=184) 
    ctl.Enabled = False 
Next ctl 

Answer 2

Для Excel 2007+, вам нужно управлять лентой. Это так хорошо, как я могу придумать, проблема в том, что Рори и я обсуждали в комментариях к его ответу, что команда MacroRecord может быть добавлена ​​в строку состояния, а строка состояния не является частью ленточной модели. Хак должен отключить строку состояния, но поскольку это приложение -level, вам нужен обработчик события для его повторного включения для других книг.

ленты XML- отключить элементы управления:

<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 в стандартном модуле для обработки ленты обратные вызовы и связанные с ними процедуры:

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 в модуле класса называемый «cEventClass» для обработки событий приложения:

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