怎么在EXCEL中禁用所有的菜单?

在EXCEL中只留下一个"保存"菜单:~~~

^_^

Sub test()
For i = Application.CommandBars.Count To 1 Step -1
    For j = Application.CommandBars(i).Controls.Count To 1 Step -1
       If Application.CommandBars(i).Controls(j).Caption<>"保存(&S)" Then
            Application.CommandBars(i).Controls(j).enable=false
        End If
    Next
Next
End Sub