求VBA语言，打开excel自动弹一个对话框选择是否

Question

如题所述

Answer 1

在 ThisWorkbook 的 Open 事件，写入：
Private Sub Workbook_Open()
hh = MsgBox("是否打开此表？", vbOKCancel)
If hh = vbCancel Then Application.Quit
End Sub追问

不行呢？怎么设置open事件,右上角的框框里选吗？只有“Workbook_Open“
不行

追答

我试过，没有问题的，可以自动关闭。
打开 Excel，双击 ThisWorkbook，通用处选 Workbook，最右边选 Open
拷贝入上面两句代码，保存就可以了。

Answer 2

msgbox ("请确定！",VbYesNo,"确定界面")追问

开始那个sub怎么写，我希望一打开就跳出来

追答

你打开一个excel表，注意：如果你用的是office2007，先将文件保存为xlsm，不要是xlsx，然后按alt+f11，弹出vbe，在左上方有个“ThisWorkbook”，双击它，在上方有个“通用”的下拉菜单，选择“Workbook”，然后在空白的地方会出现
Private Sub Workbook_Open()
End Sub
在中间加上
hh = MsgBox("是否打开此表？", vbOKCancel)
If hh = vbCancel Then Application.Quit

变成
Private Sub Workbook_Open()
hh = MsgBox("是否打开此表？", vbOKCancel)
If hh = vbCancel Then Application.Quit
End Sub
然后保存，关闭excel文件，重新打开就行了