数据自动传输系统

在Excel中在给工作簿文档添加密码时，需要通过选项一个一个的设置，比较麻烦。下面，我们利用一个自动运行的宏，让软件自动给文档添加密码。

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

·用Excel制作自动记录的考勤表
·禁止CTFMON.EXE自动加载
·解决IE自动关闭故障一例
·自动限制电脑功能的小窍门
·录入数据时让Excel自动插入当前时间
·巧设置让电脑实现自动开关机
·电脑自动重新启动现象全面剖析
·有福之人不用忙 常用软件自动学会更新
·用C# 实现C/S模式下软件自动在线升级
·Excel中用宏和VBa自动统计成绩

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

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

4、将下述代码输入到右侧的代码编辑窗口中：

Sub Auto_close()
　　ActiveWorkbook.Password = "123456"
　　ActiveWorkbook.Save
　　End Sub

退出VBA编辑状态。

注意：这是一个退出Excel时自动运行的宏，其宏名称(Auto_close)不能修改。

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