如何用宏给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

真的学习了