利用宏给Excel工作簿文档自動添加密码

在Excel中在给工作簿文档添加密码时，需要通过选項一个一个的设置，比较麻烦。下面，我们利用一個自动运行的宏，让軟件自动给文档添jia(加)密码。
　　1、启dong(动)Excel，执行“工具→宏→Visual Basic 編辑器”命令，进入VBA編辑状态(如图1)。


                                


　　2、在左侧的“工程资源管理器”窗口中，选中“VBAproject(PERSONAL.XLS)”(个人宏工作簿)选項。
　　3、执行“插入→模块”命令，插入一个模块(模块1)。
　　4、将下述代码输入到右侧的代码编輯窗口中：
　　Sub Auto_close()
　　ActiveWorkbook.Password = "123456"
　　ActiveWorkbook.Save
　　End Sub
　　退出VBA编辑狀态。
　　注意：这是一个退出Excel时自动運行的宏，其宏ming(名)称(Auto_close)不能修改。
　　5、以后zai(在)退出Excel时，软件自动为当前工zuo(作)簿添加上密码(123456，可以根据需要修改)，并保存文档。