如何通过vba在关闭Excel时弹出对话框?

Private Sub Workbook_BeforeClose(Cancel As Boolean)Dim arr, j arr = Me.Sheets(1).UsedRange.Resize(2)For j = 1 To UBound(arr, 2)If arr(1, j) <> "" And arr(2, j) = "" Then Application.Goto Me.Sheets(1).Cells(2, j)MsgBox "关闭前请输入【" & arr(1, j) & "...

你可以换一个思路，就是在打开工作表的时候对控件状态进行初始化，这样的话关闭的时候就无须再考虑要不要保存控件的状态了，可以一律保存，这样问题是不是就简单得多了呢？补充：你可以在Workbook_Open事件中对控件进行初始化

1.在userfomr1窗口的UserForm_QueryClose事件中添加弹出代码：2.这样VBA窗体并关闭时，就会自动出现弹窗：

打开EXCEL，按Alt+F11，点开Thisworkbook，复制以下代码到程序窗口：Private Sub Workbook_BeforeClose(Cancel As Boolean)Application.DisplayAlerts = True If Not ThisWorkbook.Saved Then Answer = MsgBox("是否保存？", vbYesNo + vbDefaultButton2, "你要的效果")If Answer = vbYes Then ThisWorkboo...

1、首先我们打开一个excel，这里建议使用office excel，因为wps的excel开发工具中的VBA是灰色的，还需要下载相关的插件，如下图所示：2、接着我们在最上边的菜单栏中找到开发工具，然后找到Visual Basic，我们点击一下，就会出现一个新的页面，如下图所示：3、当然出现新页面也有一个快捷键就是alt+f11，...

不保存直接退出？刚才搞了一下，不是很成功，逻辑上有点儿问题。如果你想保存，这时候出现提示，然后不保存退出，这和一开始需要保存产生了循环。如果直接在你的代码中增加ThisWorkbook.Close False，会产生保存后就可能不保存的退出的问题。或者你将Cancel = False，这样就会保存退出，感觉比较安全 ...

1、首先打开需要编辑的Excel表格，右键单击工作表选择打开“查看代码”。2、然后在弹出来的窗口中点击打开“通用”。选择Terminate 事件。3、然后在弹出来的窗口中点击输入下方的代码，Private Sub UserForm_Terminate()ThisWorkbook.Saved = True Application.Quit End Sub 4、然后运行程序，这样就可以设置...

步骤 1、首先我们打开一个工作样表作为例子。2、我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：Option Explicit Sub setcap()ThisWorkbook.Close False End Sub 3、close方法必须有一个对象，对象为workbooks，在这里我们使用的thisworkbook可以直接使用参数。而workbooks...

有宏或者VBA代码。确认宏和VBA代码有无用处。如无用，可以到工具-宏-宏里面删除无用的宏。按下alt+F11键，删除所有的代码

1、打开Excel 2003或2007或2010或2013完整版版本。2、进入“开发工具”一栏。3、点选“Visual Basic”选项卡中的“编辑器”。4、双击“ThisWorkBook”或“工作表1”。5、在空白区域填写代码：Sub 保存所有已打开的工作簿()，Dim i As Workbook，For Each i In Workbooks， If i.Path <> "" ...