Excel工作簿相关操作题稿.pptx

Excel工作簿相关操作 ♂新建与打开工作簿 ♂保存与关闭工作簿 ♂工作簿的实际应用 新建与打开工作簿 新建空白工作簿 新建仅包含一张工作表的工作簿 在指定位置新建工作簿 打开指定工作簿 打开设置保护的工作簿 判断一个工作簿是否已打开 打开设置保护的工作簿 具体的操作步骤如下： 步骤1：在Excel工作簿中选择【文件】→【另存为】菜单项，即可打开【另存为】对话框，在“保存位置”下拉列表中选择文件的存放位置，如图3-6所示。 步骤2：单击【工具】下拉按钮，在其下拉菜单中选择【常规】选项，即可打开【常规选项】对话框，在“打开权限密码”栏中输入要设置的密码“123456”，如图3-7所示。 打开设置保护的工作簿 具体的操作步骤如下： 步骤3：单击【确定】按钮，即可打开【确认密码】对话框，在“重新输入密码”栏中输入前面设置的密码“123456”，如图3-8所示。 步骤4：单击【确定】按钮返回【另存为】对话框，单击【保存】按钮，即可将其保存。对于已设置密码保护的工作簿，如果用“Workbooks.Open+工作簿地址”的方法打开，系统会弹出一个【密码】对话框，提示用户输入打开密码，如图3-9所示。 保存与关闭工作簿 保存对工作簿的更改 将工作簿进行另存 对工作簿另存并添加打开密码 关闭所有工作簿 关闭指定位置的工作簿 关闭前是否保存 对工作簿另存并添加打开密码 例如将当前文件另存到D盘，文件名为“wodebook”，设置打开密码为“123456”。 步骤1：在代码窗口中输入如下代码，如图3-12所示。 Sub 另存并加密() ActiveWorkbook.SaveAs D:\wodeobook.xls, Password:=123456 End Sub 步骤2：在运行该程序后，即可在指定位置处保存当前文件并为其添加密码。当在次打开该文件时，即可弹出一个【密码】对话框，必须在其中输入正确密码后才可打开该文件，如图3-13所示。 关闭前是否保存 （1）关闭指定工作簿并保存更改 利用VBA关闭指定名称的工作簿并保存其更改的代码格式为： Workbooks(工作簿名称).Close savechanges:=True （2）关闭指定工作簿不保存更改 利用VBA关闭指定名称的工作簿但是不保存对该工作簿的更改的代码格式如下： Workbooks(工作簿名称).Close savechanges:=False （3）关闭当前工作簿并保存更改 利用VBA关闭当前工作簿并保存的代码格式如下： ActiveWorkbook(工作簿名称).Close savechanges:=True （4）关闭当前工作簿不保存更改 利用VBA关闭当前工作簿但不保存对其更改的代码格式如下： ActiveWorkbook(工作簿名称).Close savechanges:=False 工作簿的实际应用 示例1：打开工作簿时提示当前日期和时间 示例2：禁止打印工作簿文件内容 示例3：禁止编辑工作簿中的所有单元格 示例4：禁止使用关闭按钮 示例5：访问工作簿的属性 打开工作簿时提示当前日期和时间 步骤1：在代码窗口中双击【工程】列表中的“ThisWorkbook”选项，进入该选项对应的代码窗口，从中输入如下代码，如图3-16所示。 Private Sub Workbook_Open() MsgBox 当前日期 Date ,当前时间： Time End Sub 步骤2：保存并关闭该文件，当再次打开该工作簿时，即可自动运行上述程序，并弹出显示当前日期和时间的提示框，如图3-17所示。 禁止打印工作簿文件内容 步骤1：在VBA代码窗口中双击【工程】窗口中的“ThisWorkbook”选项，在其对应代码窗口“对象”下拉列表中选择“Workbook”选项，在“过程”下拉列表中选择“BeforePrint”选项，在其代码框架中输入相应的程序代码，如图3-18所示。 步骤2：在代码输入完毕后，当在工作表中对该文件进行打印时，系统则会弹出相应的提示信息，如图3-19所示。 禁止编辑工作簿中的所有单元格 步骤1：在代码窗口中输入如下程序，如图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 = Tru