怎么用vba给excel 加密

Posted 2023-04-26

操作步骤：

1、打开Excel2007启用宏的Excel文件。

2、同时按下ALT+F11键，打开VBA编辑器窗口。

3、查看对应的代码窗口，左侧VBA工程 PROJECT属性框中对应相应的SHEET表或者模块。

4、点击对应的SHEET表或者模块名称，鼠标右键放在其上，选择VBAPROJECT属性。

5、在弹出的VBAPROJECT工程属性窗口中-保护选项卡-选中查看时锁定工程，“查看工程属性的密码”内输入自己要设定的密码。

6、点击确认，然后点击文件工具栏内的保存按钮。

7、下次打开Excel文件时再同时按下ALT+F11进入VBA代码编辑器，鼠标左键双击左侧VBA工程中的VBAPROJECT文件名称，弹出VBAPROJECT密码输入窗口，输入密码才可进入，否则无法查看工程密码。

注意事项：

ALT+F11键必须同时按下。

选择对象必须明确是模块设置密码还是SHEET表文件整个设置密码，看代码输入是在哪个对象内。

参考技术A 　　打开Excel2007启用宏的Excel文件

　　同时按下ALT+F11键，打开VBA编辑器窗口。

　　查看对应的代码窗口，左侧VBA工程 PROJECT属性框中对应相应的SHEET表或者模块。
　　步骤阅读
　　点击对应的SHEET表或者模块名称，鼠标右键放在其上，选择VBAPROJECT属性。

　　在弹出的VBAPROJECT工程属性窗口中-保护选项卡-选中查看时锁定工程，“查看工程属性的密码”内输入自己要设定的密码。

　　点击确认，然后点击文件工具栏内的保存按钮。

　　7
　　下次打开Excel文件时再同时按下ALT+F11进入VBA代码编辑器，鼠标左键双击左侧VBA工程中的VBAPROJECT文件名称，弹出VBAPROJECT密码输入窗口，输入密码才可进入，否则无法查看工程密码，呵呵。本回答被提问者采纳

Excel 怎样在VBA中打开带有密码的excel文件

参考技术A 如果Excel文件的打开密码忘记了，且密码是6位数以内的数字，可用以下步骤解开（关掉所有程序，为了速度）：
新开一Excel，同时按Alt和F11，进入VBA界面，点菜单上的插入，模块，在新出来的窗口粘贴一下代码：
Sub crack()
Dim i As Long
Dim FileName As String
i = 0
FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xlsx）,*.xls;*.xlsx", , "VBA破解")
FileName = Right(FileName, Len(FileName) - InStrRev(FileName, "\"))
Application.ScreenUpdating = False
line2: On Error GoTo line1
Workbooks.Open FileName, , True, , i
MsgBox "Password is " & i
Exit Sub
line1: i = i + 1
Resume line2
Application.ScreenUpdating = True
End Sub

然后在此界面直接按F5运行此宏，选择文件，等啊等（看密码长度了）本回答被提问者采纳 参考技术B 发红包可帮解密。