在thisworkbook下加如下代码：
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Call auto_open
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.CommandBars(1).Controls("日升消防专用(&T)").Delete
Application.CommandBars("cell").Reset
End Sub
你可以先判断一下工作簿名称再执行代码
If ActiveWorkbook.Name = "xxxx.xls" Then
'执行的代码
End If
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024