1. vba宏加密
从VBA编辑窗口工具栏的：工具→VBAProject属性→保护→锁定工程（点中查看时锁定工程）→查看工程属性密码→密码（在此框中输入密码）→确认密码（在此框中再次输入密码）→确定→保存退出，下次打开的时候就要输入正确的密码，才能看到代码
2. Excel宏加密
在日常工作中，您是否遇到过这样的情况：您用Excel编制的报表、表格、程序等，在单元格中设置了公式、函数等，为了防止其他人修改您的设置或者防止您自己无意中修改，您可能会使用Excel的工作表保护功能，但时间久了保护密码容易忘记，这该怎么办？有时您从网上下载的Excel格式的小程序，您想修改，但是作者加了工作表保护密码，怎么办？您只要按照以下步骤操作，Excel工作表保护密码瞬间即破！
1、打开您需要破解保护密码的Excel文件；
2、依次点击菜单栏上的工具---宏----录制新宏，输入宏名字如:aa；
3、停止录制(这样得到一个空宏)；
4、依次点击菜单栏上的工具---宏----宏,选aa,点编辑按钮；
5、删除窗口中的所有字符(只有几个),替换为下面的内容；ViewCode6、关闭编辑窗口；7、依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,运行,确定两次；等一会,再点击确定。哈哈哈,没有密码了吧!!
3. vba宏命令
1.首先，你要有一个保存常用VBA方法的文件。
・代码存放的位置：放到【模块】中。
・方法声明为：public sub
2.按照上面的操作，我们可以在宏中，看到这个方法。
（即使时其他的excel文件，也可以看到。
我抽出宏对应的代码有两个，
一个是为了公用
另外一个就是不想在作业对象文件中，加入宏代码）
选择这个函数，然后点击【选项】
3.点击【选项】后，弹出下面的窗口，这时，就可以指定自己想要的快捷键了
4. vba加密破解
准备工具：表格，电脑，OFFICE密码破解软件（OfficeToolbox软件）
1.打开BOX软件，在软件页面中找到文件选择选项，点击该选项进入到文件选择页面中。
2.在文件选择页面中找到需要修改的表格，鼠标左键点击选中该表格。
3.选中完毕后，在该页面中找到打开选项，点击该选项进入到破解页面中。
4.在破解页面中找到移除密码选项，点击该选项进行密码移除功能，等待功能完成。
5.功能完成后在新弹出的页面中找到确定选项，点击该选项进行操作确认。
6.确认完成，在原表格所在的文件夹中会出现一个新生成的表格，该表格即为原表格解除密码后的表格。
5. vba 字符串加密
在VBA编辑器的"工具”菜单里点“VBAProject属性"，在“保护”页中把“查看时缩定工程”的勾选上，然后输入密码后确定即可。这样下次打开查看代码时就需要输入密码了。但这种加密方式的破解，早就有专用工具了，可以在网络上查找试试。比较好的方法是，把做好含有VBA代码的Excel编译成exe文件，这种工具也可以在网上找到，自己找一下吧。
6. vba 宏
方法如下，
1
我们先打开Excel2010，选择文件-选项，弹出excel选项卡。
2
在Excel选项卡里面，我们先将开发工具的功能区，调出来。选择自定义功能区-主选项卡-勾选“开放工具”-确认，这里宏的功能选项卡就在功能区里面了
3
一般Excel为了安全性，都会将宏功能禁用的。我们按照上述方法打开Excel选择卡，选择信用中心-信用中心设置-宏设置，这里我们可以按照自己需求选择。我们也可以从功能区的开放工具-代码-宏安全性，调出Excel选项卡，进行设置。
注意事项
宏的安全性设置，是指针对单签正在使用的office程序更改这些宏设置，而不会更改其他程序的宏设置。
禁用所以宏，并不通知：文件验证过程不会检查这些文件
禁用所以宏，并发出通知：文件验证过程如果存在宏，会显示安全警告，可根据情况启用
禁用无数字签署的所有宏：文件验证过程如果是受信任发布者发布，则允许该宏，否则就安全警告
启用所有宏：所有宏都可以运行（如果出现恶意代码，可能会被攻击）
7. vba宏加密破解
如果excel文件的打开密码忘记了，且密码是7位数以内的数字，可用以下步骤解开：
新开一excel，同时按alt和f11，进入vba界面，点菜单上的插入，模块，在新出来的窗口粘贴一下代码：
subcrack()
dimiaslong
dimfilenameasstring
application.screenupdating=false
i=1
filename=application.getopenfilename("excel文件（*.xls&*.xlsx）,*.xls;*.xlsx",,"vba破解")
filename=right(filename,len(filename)-instrrev(filename,"\"))
line2:
onerrorgotoline1
dowhiletrue
workbooks.openfilename,,,,i
msgbox"passwordis"&i
exitsub
loop
line1:
i=i+1
resumeline2
application.screenupdating=true
endsub
然后直接在此界面下按f5运行此宏
如果有字母，稍微复杂些，道理是类似的。太长的密码，基本解不开了。
若果还有读写密码，且与打开密码一样，将workbooks.openfilename,,,,i改为workbooks.openfilename,,,,i,i
8. 如何给vba加密
1.首先打开Excel表，然后点击【开发工具-VB编辑器】
2.打开VB编辑器，点击【插入-模块】
3.双击刚才创建的模块，然后输入
Sub 限时()
If Date > #2/28/2020# Then
End If
End Sub
表示如果当当下时间大于有效期时候
4.MsgBox "有效期已过"
表示如果超过有效期，那么当运行VBA时候就会弹出一个提示对话框，写着“有效期已过”
5.Exit Sub
则表示如果超过有效期就会自动退出VBA程序
6.最后当运行VBA时候，如果当下时间超过有效期，那么就会弹出提示对话框
9. vba宏代码加密
当然会出错：
因为你加密了VBA工程，而加密的VBA工程的里的代码就会被保护。
也就是说VBA工程加密后，不可以增加删除代码，不可以增加删除窗体，不可以增加删除模块和类模块。而你的代码中：
Set usForm =ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm)这个是增加一个窗体，这对受保护的工程来说是不被允许的。除了你这个，还有例如ThisWorkbook.VBProject.VBComponents.Remove XXXXX（删除代码）
ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).Name = "模块1"(增加模块）
等等都是不可以的。
如果你即要加密VBA工程，又想让程序在运行过程中去新增窗体，建议可以考虑一下sendkey方法，在程序开始运行时执行sendkey解锁工程密码。你可以试试代码：（在我电脑上测试了是可以输入或增加工程密码的）
你可以在你增加窗体的那句代码前先执行inputpw()解锁工程密码。
Sub inputpw() '输入密码解锁 Dim pw$ pw = "password" If ThisWorkbook.VBProject.Protection = vbext_pp_locked Then '判断工程是否解锁 '打开VBAProject工程属性 Application.VBE.CommandBars(1).Controls("工具(T)").Controls("VBAProject 属性(&E)...").Execute Application.SendKeys pw '输入密码 Application.SendKeys "{ENTER}" 'enter解锁 End If End If End Sub Sub addpw() '加工程密码 Dim pw$ pw = "password" If ThisWorkbook.VBProject.Protection = vbext_pp_none Then '判断是否加密码工程 '打开VBAProject工程属性 Application.VBE.CommandBars(1).Controls("工具(T)").Controls("VBAProject 属性(&E)...").Execute Application.SendKeys "^+{TAB}" 'ctrl+tab移动到保护 Application.SendKeys "{TAB}" 'tab移动到第一次输密码位置 Application.SendKeys pw '输入密码 Application.SendKeys "{TAB}" 'tab移动到第二次输密码位置 Application.SendKeys pw '输入密码 Application.SendKeys "{ENTER}" 'enter加锁 DoEvents End If End Sub
10. excel宏加密破解
首先打开加密的文件，此时会弹跳出输入密码的窗口。输入密码，将文件打开。点击右上角的“文件”。
点击“保护工作簿”。
选择“用密码进行加密”，然后会弹出窗口。即可在弹出的窗口看到有密码。
将密码删除，然后点击确定。
将表格关闭，并保存更改，再次打开时不便需要密码。
- 相关评论
- 我要评论
-
