如何利用宏给Excel工作簿文档自动添加密码

Question

如题所述

Answer 1

启动Excel，执行“工具→宏→Visual Basic 编辑器”命令，进入VBA编辑状态(如图1)。进入VBA编辑状态

在左侧的“工程资源管理器”窗口中，选中“VBAproject(PERSONAL.XLS)”(个人宏工作簿)选项。

执行“插入→模块”命令，插入一个模块(模块1)。

将下述代码输入到右侧的代码编辑窗口中：
　　Sub Auto_close()
　　ActiveWorkbook.Password = "123456"
　　ActiveWorkbook.Save
　　End Sub
　　退出VBA编辑状态。
　　注意：这是一个退出Excel时自动运行的宏，其宏名称(Auto_close)不能修改。

以后在退出Excel时，软件自动为当前工作簿添加上密码(123456，可以根据需要修改)，并保存文档。

Answer 2

步骤/方法

启动Excel，执行“工具→宏→Visual Basic 编辑器”命令，进入VBA编辑状态(如图1)。进入VBA编辑状态

在左侧的“工程资源管理器”窗口中，选中“VBAproject(PERSONAL.XLS)”(个人宏工作簿)选项。

3
执行“插入→模块”命令，插入一个模块(模块1)。

4
将下述代码输入到右侧的代码编辑窗口中：
　　Sub Auto_close()
　　ActiveWorkbook.Password = "123456"
　　ActiveWorkbook.Save
　　End Sub
　　退出VBA编辑状态。
　　注意：这是一个退出Excel时自动运行的宏，其宏名称(Auto_close)不能修改。

5
以后在退出Excel时，软件自动为当前工作簿添加上密码(123456，可以根据需要修改)，并保存文档。本回答被提问者采纳