ResetAllCommandBars @ VBA

sample1.bas

Sub ResetAllCommandBars()
    Dim objCommandBar As Office.CommandBar
   
    For Each objCommandBar In Application.CommandBars
        If objCommandBar.BuiltIn Then
            objCommandBar.Reset
        End If
    Next
End Sub

sample2.bas

Sub ResetAllCommandBars()
    Dim objCommandBar As Office.CommandBar
   
    For Each objCommandBar In Application.CommandBars
            On Error Resume Next 'Reset()で発生するエラーはなかったことに
            objCommandBar.Reset
    Next
End Sub