Private Sub Workbook_Open()
If ActiveSheet.Name = "表二" Then Call 建立右键
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'工作表激活时执行程序
If ActiveSheet.Name = "表二" Then '如果激活的工作表名,则
Call 建立右键 'Call 创建右键菜单的宏
Else '否则
Call 恢复右键 'Call 右键菜单复位的宏
End If
End Sub