Excel工作簿相关操作

1、正确学会Excel VBA的16堂课Excel工作簿相关操作工作簿相关操作新建与打开工作簿保存与关闭工作簿工作簿的实际应用新建与打开工作簿新建与打开工作簿 新建空白工作簿 新建仅包含一张工作表的工作簿 在指定位置新建工作簿 打开指定工作簿 打开设置保护的工作簿 判断一个工作簿是否已打开打开设置保护的工作簿打开设置保护的工作簿具体的操作步骤如下：步骤1：在Excel工作簿中选择【文件】【另存为】菜单项，即可打开【另存为】对话框，在“保存位置”下拉列表中选择文件的存放位置，如图3-6所示。步骤2：单击【工具】下拉按钮，在其下拉菜单中选择【常规】选项，即可打开【常规选项】对话框，在“打开权限密码”栏

2、中输入要设置的密码“123456”，如图3-7所示。打开设置保护的工作簿打开设置保护的工作簿具体的操作步骤如下：步骤3：单击【确定】按钮，即可打开【确认密码】对话框，在“重新输入密码”栏中输入前面设置的密码“123456”，如图3-8所示。步骤4：单击【确定】按钮返回【另存为】对话框，单击【保存】按钮，即可将其保存。对于已设置密码保护的工作簿，如果用“Workbooks.Open+工作簿地址”的方法打开，系统会弹出一个【密码】对话框，提示用户输入打开密码，如图3-9所示。保存与关闭工作簿保存与关闭工作簿 保存对工作簿的更改 将工作簿进行另存 对工作簿另存并添加打开密码 关闭所有工作簿 关闭指定

3、位置的工作簿 关闭前是否保存对工作簿另存并添加打开密码对工作簿另存并添加打开密码 例如将当前文件另存到D盘，文件名为“wodebook”，设置打开密码为“123456”。步骤1：在代码窗口中输入如下代码，如图3-12所示。Sub 另存并加密()ActiveWorkbook.SaveAs D:wodeobook.xls, Password:=123456End Sub步骤2：在运行该程序后，即可在指定位置处保存当前文件并为其添加密码。当在次打开该文件时，即可弹出一个【密码】对话框，必须在其中输入正确密码后才可打开该文件，如图3-13所示。关闭前是否保存关闭前是否保存（1）关闭指定工作簿并保存更改

4、利用VBA关闭指定名称的工作簿并保存其更改的代码格式为：Workbooks(工作簿名称).Close savechanges:=True（2）关闭指定工作簿不保存更改利用VBA关闭指定名称的工作簿但是不保存对该工作簿的更改的代码格式如下：Workbooks(工作簿名称).Close savechanges:=False（3）关闭当前工作簿并保存更改利用VBA关闭当前工作簿并保存的代码格式如下：ActiveWorkbook(工作簿名称).Close savechanges:=True（4）关闭当前工作簿不保存更改利用VBA关闭当前工作簿但不保存对其更改的代码格式如下：ActiveWorkbook

5、(工作簿名称).Close savechanges:=False工作簿的实际应用工作簿的实际应用 示例1：打开工作簿时提示当前日期和时间 示例2：禁止打印工作簿文件内容 示例3：禁止编辑工作簿中的所有单元格 示例4：禁止使用关闭按钮 示例5：访问工作簿的属性打开工作簿时提示当前日期和时间打开工作簿时提示当前日期和时间步骤1：在代码窗口中双击【工程】列表中的“ThisWorkbook”选项，进入该选项对应的代码窗口，从中输入如下代码，如图3-16所示。Private Sub Workbook_Open()MsgBox 当前日期 & Date & ,当前时间： & Time

6、End Sub步骤2：保存并关闭该文件，当再次打开该工作簿时，即可自动运行上述程序，并弹出显示当前日期和时间的提示框，如图3-17所示。禁止打印工作簿文件内容禁止打印工作簿文件内容步骤1：在VBA代码窗口中双击【工程】窗口中的“ThisWorkbook”选项，在其对应代码窗口“对象”下拉列表中选择“Workbook”选项，在“过程”下拉列表中选择“BeforePrint”选项，在其代码框架中输入相应的程序代码，如图3-18所示。步骤2：在代码输入完毕后，当在工作表中对该文件进行打印时，系统则会弹出相应的提示信息，如图3-19所示。禁止编辑工作簿中的所有单元格禁止编辑工作簿中的所有单元格步骤1：

7、在代码窗口中输入如下程序，如图3-20所示。Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)MsgBox 您好，该文档不能修改在单元格内容发生改变时提示不能更改单元格内容Application.EnableEvents = False 当Application对象的EnableEvents属性为False时，可以禁止其他所有事件程序运行。Target.Value = i 使单元格清空Application.EnableEvents = True 由于还要使其他事件程序发作用，所以设置Appli

8、cation.EnableEvents = True让所有事件程序重新有效。End Sub禁止编辑工作簿中的所有单元格禁止编辑工作簿中的所有单元格步骤2：在代码输入完毕后，当更改单元格内容时，系统则弹出禁止修改单元格内容的提示，如图3-21所示。在关闭提示信息后，单元格内容将被清空。禁止使用关闭按钮禁止使用关闭按钮禁止使用Excel自带的退出功能具体操作步骤如下：步骤1：在代码窗口中输入如下代码，如图3-22所示。Private Sub Workbook_BeforeClose(Cancel As Boolean)Cancel = TrueEnd Sub禁止使用关闭按钮禁止使用关闭按钮禁止使用

9、Excel自带的退出功能具体操作步骤如下：步骤2：此时Excel的【关闭】按钮 已失效，用户要想退出Excel工作簿，则可在代码窗口中继续输入如下程序，如图3-23所示。Sub 退出() Application.EnableEvents = False 强行中止事件程序的运行 ActiveWorkbook.Close 在中止事件程序的运行后执行关闭工作簿的功能 Application.EnableEvents = True 恢复事件程序的运行End Sub禁止使用关闭按钮禁止使用关闭按钮 在VBA代码窗口中输入程序时，为了使用户方便程序设计操作，可以对【编辑器】进行相应的设置。具体的操作步骤如

10、下：步骤1：在VBA代码窗口中选择【工具】【选项】菜单项，即可打开【选项】对话框，在【编辑器】选项卡中勾选“自动列出成员”复选项，如图3-24所示。步骤2：单击【确定】按钮，即可保存设置。当用户在代码窗口中编辑某些对象的属性或方法时，系统就会自动为用户提供相关信息列表框，如图3-25所示。专家课堂（常见问题与解答）专家课堂（常见问题与解答）点拨点拨1：在Excel VBA代码窗口中要打开已设置了密码的工作簿，路径和文件名均正确的情况下，运行代码为何总弹出错误提示信息？解答：解答：在路径和文件名均正确的情况下，弹出错误提示信息时，请先检查使用的程序语法是否正确，特别要检查的是，password后跟“:=”，而不是等号。点拨点拨2：在使用代码程序保存多个已打开的工