在 ThisWorkbook 的 Open 事件，写入：Private Sub Workbook_Open() hh = MsgBox("是否打开此表？", vbOKCancel) If hh = vbCancel Then Application.QuitEnd Sub
msgbox ("请确定！",VbYesNo,"确定界面")
