新建一个EXCEL文件，按“Alt”+"F11"，在出现的树状菜单中点击“ThisWorkBook”，在弹出的空白窗口中输入以下代码：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("ttt").Delete
End Sub

Private Sub Workbook_Open()
Set cbr = Application.CommandBars.Add(Name:="ttt", Position:=msoBarTop, Temporary:=True)
cbr.Visible = True
For k = 1 To 4000
  On Error Resume Next
  cbr.Controls.Add ID:=k
Next
On Error GoTo 0
End Sub

保存后，退出EXCEL.

重新打开这个EXCEL文件，点击"启用宏".

评论