1、Sub Macro1()With Application.VBE.CommandBars("Menu Bar").Enabled = TrueEnd WithEnd Sub
2、输入以上代码点击运行
3、 b = .Enabled 'True b = .Vis坡纠课柩ible 'True i = .Index '1 s = .Name 'Menu Bar p = .Protection '8 r = .RowIndex '1 to 3 t = .Type '1 h = .Height '26 w = .Width '1127 l = .Left '0 tp = .Top '0 '.Left = 0 '.Top = 0 '.Reset '.Enabled = True '.Visible = True