1. vba保存文件并关闭
以下代码基本满足了你的要求，还有个别简单细节你自己完善吧：
Dim Bo As Boolean Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheets("用户管理").Range("I2").Value = 1 Then
If Bo = False Then
MsgBox "该文件不允许直接保存，只能在关闭时另存为……"
Cancel = True
End If
ElseIf Sheets("用户管理").Range("I2").Value = 2 Then
Else
MsgBox "该文件不允许保存!"
Cancel = True
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim PaFi$
If Sheets("用户管理").Range("I2").Value = 1 Then
If MsgBox("本文档无法保存，是否“另存为……”其他文件？", vbYesNo) = vbYes Then
PaFi = Application.GetSaveAsFilename(fileFilter:="启用宏的工作簿文件, *.xlsm")
If PaFi <> "" Then
Bo = True
Me.SaveAs PaFi
End If
Else
Me.Saved = True
End If
ElseIf Sheets("用户管理").Range("I2").Value = 2 Then
ThisWorkbook.Save
Else
Me.Saved = True
End If
End Sub
2. vba 关闭文件
加个on error resume next 语句啊
3. vba打开word文档并关闭
提供两种方法试试：
1 打开word，不打开任何文档，进入菜单： 工具→选项→安全性→宏安全性→安全级(或：工具→宏→安全性)，选择“非常高”； 可靠发行商里的“颁发对象”都删除，复选框也都不选，确定。 就再也没有提示了！ 如果设定后不能关闭word，从进程中关闭再开启就没有了。
2 进入控制面板，运行添加删除程序，找到office 2003，选中后点击更改按钮，然后点击添加或删除功能，在安装选项中勾选”选择应用程序的高级自定义”，下一步，选择”office共享功能“并安装。本人觉得，主要是重装“vba项目的数字证书”。 非原创，仅供参考，希望可以解决你的问题。 方法2对07或10版本的通用
4. vba关闭excel并保存
1、在新工作表的Sheet1上点击右键2、选择查看代码3、点击倒三角，选择Worksheet4、点击右边倒三角，选择触发方式，如BeforeDoubleClick表示在双击鼠标左键时触发5、点击候出现如下代码框架6、输入以下语句：Sheet1.Cells(1, 3) = Sheet1.Cells(1, 1) + Sheet1.Cells(1, 2)意为将A1、B1单元格求和并放在C1单元格7、点击保存，然后关闭VBA窗口8、由于A1,B1没有数据，所以C1为09、输入数据后，会发现即使按了回车，C1也不变，因为设置的是双击鼠标左键触发。
10、就可以用EXCELVBA保存文件了。
5. vba关闭word并保存修改
安装完整版的offiec2007不是精简版的，启动Word，选择“工具 → 宏 → 安全性”，将“安全级” 调到“最低”，再次打开word就可以。 Visual Basic for Applications（VBA）是Visual Basic的一种宏语言，是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程式功能，特别是Microsoft Office软件。也可说是一种应用程式视觉化的Basic 脚本。该语言于1993年由微软公司开发的的应用程序共享一种通用的自动化语言--------Visual Basic For Application(VBA)，实际上VBA是寄生于VB应用程序的版本。微软在1994年发行的Excel5.0版本中，即具备了VBA的宏功能。
6. vba 关闭并保存
在vbe编辑器中，有时候像本地窗口，监视窗口，对象浏览器窗口等等多个容易调整乱了。
我自己在使用这些窗口的过程中，甚至不知道什么原因把本地窗口整没了，就是说在视图 -——本地窗口 都无法弹出本地窗口。
碰到这样的情况我的解决办法一直是用修改注册表的方式：
按照以下步骤即可：
1.关闭Excel应用程序。
2.开始→运行→输入 regedit 打开注册表编辑器，进入HKEY_CURRENT_USER>Software>Microsoft>VBA>6.0>Common>Dock，双击它并删除“数值数据”下的数据。然后数据将显示为“长度为零的二进位值”。重新打开Excel，进入VBA您将发现窗格已经恢复默认设置了。这个名为Dock的二进制值保存着VBA窗口中各窗格的各种信息。
当然您也可以直接在vba中对注册表进行调用修改。
以上是我学习vba过程中的一点心得和体会。希望能和大家分享
7. vba关闭excel
你要隐藏哪个工作就写哪个工作表
如
Sub aa()
Sheets("sheet1").Visible
= 0
End Sub
这是隐藏sheet1这个工作表的，=2时尝试深度隐藏，=-1时显示工作表，=0时一般隐藏，可在工作表点右键取消隐藏，深度隐藏时，在工作表中不能取消隐藏。
8. vba保存并关闭文档
运行VBA程序的电脑都比较卡，按一次ESC可能没有反应，最好是一直按住ESC，直到程序中止
9. vba关闭excel文件并保存
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关闭表格的两种方法介绍，操作很简单的，大家学会了吗?希望这篇文章能对大家有所帮助!
10. vba关闭前保存文件
1、CurDir$是标识当前路径的函数，返回值为String类型。
激活磁盘并作为当前路径
2、ChDrive能够激活相应磁盘，并将磁盘根目录作为当前路径，即让CurDir$的返回值为被激活的磁盘根目录。如ChDrive "D"激活D盘，并将D盘根目录作为当前路径。
激活相应路径并将其作为当前路径
3、ChDir 路径（如ChDir “D:\新建 Microsoft Office Excel 工作表.xlsx”）激活相应路径，并将其作为当前路径。
彻底删除相应路径下的文件
1
Kill “D:\新建 Microsoft Office Excel 工作表.xlsx”——表示彻底删除相应文件，要删除的文件必须存在，否则会出错。
- 相关评论
- 我要评论
-
