新建一个EXCEL文件，按“Alt”+"F11"，在出现的树状菜单中点击“ThisWorkBook”，在弹出的空白窗口中输入以下代码： Private Sub Workbook_BeforeClose(Cancel As Boolean)On Error Resume NextApplication.CommandBars("ttt").DeleteEnd Sub Private Sub Workbook_Open()Set cbr = Application.CommandBars.Add(Name:="ttt", Position:=msoBarTop, Temporary:=True)cbr.Visible = TrueFor k = 1 To 4000  On Error Resume Next  cbr.Controls.Add ID:=kNextOn Error GoTo 0End Sub 保存后，退出EXCEL. 重新打开这个EXCEL文件，点击"启用宏".

评论