1. vba 关闭表格不保存
excel中使用vba关闭excel的两种方法，有需要的朋友可以参考本文，来看看吧!
步骤
1、首先我们打开一个工作样表作为例子。
2、使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：
Sub SendKeysSample()
Application.SendKeys ("%fx")
End Sub
3、这个代码很简单，sendkeys是应用程序中的一个方法，作用是依次顺序发送几个按键值。对应的键值可以看出%号是alt键，fx则是键盘上对应的fx键。我们可以在excel中手动运行一下按下这三个键的作用。
4、按下alt+f键后会进入excel文件菜单，再次按下x，则会提示是否保存excel工作薄，选择相应属性后，关闭excel工作薄，完成退出操作。
5、这种是借用excel的快捷键组合操作完成的退出命令。还有一种是使用vba函数完成的操作。同样是输入对象application，并使用quit方法完成退出excel的目的。
Sub 关闭Excel()
MsgBox "Excel将会关闭"
Application.Quit
End Sub
6、直接运行这个过程，弹出一个msgbox提示信息，excel将会关闭。同样会在退出前提示是否保存工作薄。大家按需要选择即可。
以上就是excel使用vba关闭表格的两种方法介绍，操作很简单的，大家学会了吗?希望这篇文章能对大家有所帮助!
2. vba 关闭不保存
可以先打开指定的工作簿，然后将要保存的的公式的单元格用复制或者剪裁方式进行操作，在指定工作簿的工作表的指定位置用选择性粘贴，然后保存指定的工作簿并关闭。将源工作簿的单元格设为空即可。你要用的关键字：rang().select(选择）
;select.copy（拷贝）;rang().PasteSpecial（选择性粘贴）;
3. vba 关闭提示保存
Workbooks("book1").CloseTrue关闭并且保存名称为book1的工作簿Workbooks("book1").CloseFalse关闭并且不保存名称为book1的工作簿
4. vba保存时不弹出对话框
Pf = Application.GetOpenFilename 上句执行后，如果选择了文件，r返回的就是带路径的文件名字符串，如果选择了取消，返回 False
5. vba关闭excel文件不保存
在宏里面设置一个全局变量，在函数里面对全局变量设置有效跟无效，并判定执行 dim mysave BooleanPrivate Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)call mysavesub '调用函数确认保存密码if mysave = false then '如果布尔类型mysave=false 则不能保存 msgbox "本工作薄禁用保存及另存。" Cancel = Trueend ifEnd Sub public sub mysavesub()psw = "123456" '保存密码if inputbox("请输入保存密码:) = psw then mysave = true '临时设置 为可以保存end if end sub
6. vba文件保存时不弹出提示框
1.Excel 2007（含Excel 2007）以上版本引入了一个新的文件类型，叫做XML文件类型，这种文件类型默认是以XLSX为后缀名的。以该后缀名命名的文件类型当在内部写入了VBA或者宏代码时，在保存的过程中将会弹出如下图所示的提示。
2.由于VBA或者宏代码有一定的危害性，为了提高安全意识，凡是以XLSX为后缀名的文件都不能含有宏代码，这样收到文件的人就可以一目了然地了解文件是否含有宏。当在弹出的提示框中直接选择“是”时，保存的文件将自动删除所有的宏代码。
3.如果需要保存为含有宏代码的文件，则可以单击按钮“否”然后选择其中一个文件类型。如下图所示
4.在弹出的保存的文件类型中可以选择“启用宏的文件类型，然后单击保存按钮，如下图所示，最后文件的后缀名为XLSM。
5.其中后缀名为XLSM的文件表示该文件内含有VBA或者宏代码，使得文件的接收者可以一目了然地先获得内部的文件概括。如果需要保存为可以被EXCEL 2003打开的文件，则可以另存为”EXCEL 97-2003 工作簿“，当保存为该文件类型时，是可以含有宏代码的，所以2003的文件格式具有安全隐患，文件的接收者无法从后缀名获得该文件的内部概括。
7. vba不弹出保存对话框
这个对话框需要你自己做一个用户窗体，插入组合框控件。然后通过代码控制窗体的显示与隐藏。
先设置窗体隐藏，在该出现对话框的时候控制窗体显示，确定按钮赋值并隐藏，取消按钮不赋值并隐藏。
赋值只要带上完整对象名就行了，比如:
a = UserForm.ComboBox1.Value
简言之，就是不要用默认的对话框msgbox
- 相关评论
- 我要评论
-