直接复制就可以用 DialogResult result =MessageBoxShowquot您确认关闭当前窗口吗quot，quot操作提示quot，MessageBoxButtonsYesNo，MessageBoxIconQuestionif result == DialogResultYes 关闭当前窗口 thisClose。

DoCmdCloseaccess操作显示，access关闭当前窗体的命令代码是DoCmdCloseMicrosoftOfficeAccess是由微软发布的关系数据库管理系统，结合了MicrosoftJetDatabaseEngine和图形用户界面两项特点。

‘下面是启动后，关闭计算器的VBS代码 set WshShell = WScriptCreateObjectquotWScriptShellquotWshShellRun quotcalcquotWScriptSleep 1000 WshShellAppActivate quotCalculatorquotWScriptSleep 100 WshShellSendKeys quot%F4quotWshShell。

3然后在弹出来的窗口中点击输入下方的代码，Private Sub UserForm_TerminateThisWorkbookSaved = True ApplicationQuit End Sub 4然后运行程序，这样就可以设置关闭窗体同时关闭EXCEl了。