如何用宏给EXCEL文件加密码
发布网友
发布时间：2022-02-21 00:16
共7个回答
懂视网
时间：2022-02-21 04:37
Excel设置打开密码的方法：
1.双击打开Excel，打开想要设置密码的表格。
2.点击左上角文件，选择保存，点击浏览。
3.在弹出窗口下方选择工具，点击常规选项。
4.设置密码并点击确定即可。
总结
1.用Excel打开想要设置密码的表格。
2.点击文件，选择保存，点击浏览。
3.在弹出窗口选择工具，点击常规选项。
4.设置密码并点击确定。
热心网友
时间：2022-02-21 02:02
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，可以根据需要修改)，并保存文档。
热心网友
时间：2022-02-21 03:36
WBE中的工具功能中的VBAproject属性来处理完成
Excel版本参考：2010
1、ALT+F11组合键，调出VBE对话框
2、点工具-VBAproject属性
3、点击保护-勾选查看时锁定工程，输入密码，点击确定
4、保存后，关闭，重新打开
4、点击模块1，查看效果（未输入密码不可查看代码）
热心网友
时间：2022-02-21 05:28
设置打开密码只有以下两句就好了
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
热心网友
时间：2022-02-21 07:36
可以不用宏这么麻烦，EXCEL自身可以设置密码，分打开密码，和改写密码
选定EXCEL表格，然后另存为，另存为对话框右上角有个“工具（L）”，下拉选“常规选项”就可以设置密码了
热心网友
时间：2022-02-21 10:00
本人不懂宏，但是有个疑问不吐不快。如果这个密码跟时间有关，那么如果更改计算机的时间是不是就起不到加密的作用了啊
热心网友
时间：2022-02-21 12:58
真的学习了
