Question

如何用宏给EXCEL文件加密码

我想就是用一个宏来给文件加密码，就是说刚开始不需要密码，等运行这个宏后，就有密码了，每次打开了需要输入密码。
就是需要宏，我想它到了一定日期就自动保护起来

Answer 1

给Excel工作簿加密码是对工作簿保护的最基本操作，简单易学易上手。

Answer 2

1.启动Excel，执行“工具→宏→Visual Basic 编辑器”命令，进入VBA编辑状态(如图1)。进入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，可以根据需要修改)，并保存文档。

Answer 3

WBE中的工具功能中的VBAproject属性来处理完成

Excel版本参考：2010

1、ALT+F11组合键，调出VBE对话框

2、点工具-VBAproject属性

3、点击保护-勾选查看时锁定工程，输入密码，点击确定

4、保存后，关闭，重新打开

4、点击模块1，查看效果（未输入密码不可查看代码）

Answer 4

设置打开密码只有以下两句就好了
ActiveWorkbook.Password = "tt"
ActiveWorkbook.WritePassword = "yy"

对于保护密码设置可以参考如下内容。

对Excel工作表实现口令保护利用VBA调用Worksheet对象的Protect方法对工作表进行保护。
Protect带有以下参量：Password 用于保护工作表的口令。Drawingobjects 若为True，则对工作表中的Drawingobjects对象进行保护,缺省值为True。Contents 若为True，则对单元格内容进行保护，缺省值为True。下面程序代码完成对工作表“基础数据表”的保护：

Sub 保护工作表（）
Worksheets（〃基础数据表〃）.Protect Password:="1234"
End sub

对工作表实现隐藏保护，使他人无法看到工作表：利用VBA设置Worksheet对象的Visible属性来隐藏工作表；Visible属性的值为以下三个值中的一个：

True 工作表为显示状态。
False 工作表为隐藏状态。
XlVerHidden 工作表为隐藏状态，且用户不能通过“取消隐藏”对话框将其改为显示状态。当Visible的值为XlVerHidden时，只能利用VBA将其重新设置为True。

Sub 隐藏工作表（）
Worksheets("基础数据表").Visible=False
End sub

Answer 5

可以不用宏这么麻烦，EXCEL自身可以设置密码，分打开密码，和改写密码

选定EXCEL表格，然后另存为，另存为对话框右上角有个“工具（L）”，下拉选“常规选项”就可以设置密码了