Exce表格网

最新excelba密码破解(如何破解excel的vba密码)

来源:www.0djx.com  时间:2022-12-23 01:55   点击:51  编辑:表格网  手机版

1. 如何破解excel的vba密码

网上能找到一些专门破解Office密码的软件,一般都是使用字典和暴力两种方式,如果密码不长可以试出来,可以破解打开文件的密码和打开VBA的密码,不过一定要小心,这种软件不是正式软件,有很多都有毒或是木马,小心小心。

2. vba破解excel加密文件

excel表格密码忘记后的解密步骤如下:

1、按住快捷键ALT+F11,然后切换出VBA编辑窗口,在该窗口的左侧我们的选择那个忘记密码的工作表,比如sheet 1。

2、然后我们打出下图中的代码,双击刚才选中的sheet 1以后,在编辑窗口我们输入刚才的那段代码。

3、接下来依次点击“运行”-“运行宏”。

4、在弹出的宏对话框,我们再次点击“运行”,此时原先加密的工作表就被解除密码了,重新打开以后我们会发现可以直接进去。这样就解决了excel表格密码忘记后的解密问题了。

3. 如何解除Excel的VBA密码

不用给VBA代码就可以保护你的VBA代码啦~

第一种:在VBE窗口中单击菜单“工具”->“VBAProject属性”->“保护”->勾选“查看时锁定工程”输入密码->确认密码。保存关闭后重新打开就行了。

还有一种就是“工程不可查看”,先试一下第一种,不行再HI我。

4. vba破解excel保护密码

破解vbaproject密码

1.打开带密码的excel,视图---宏----录制宏---(保存到)“个人宏工作簿”---点“确认”。

2.查看宏----点“编辑”-----进入“microsofevisualbasic-personal.xlsb”页面;

3.点“模块1“,弹出“模块1代码”----清除“模块1代码”里面的东西-----复制如下东西:

publicsub工作表保护密码破解()

constdblspaceasstring=vbnewline&vbnewline

constauthorsasstring=dblspace&vbnewline&_

"作者:mccormickjemcgimpsey"

constheaderasstring="工作表保护密码破解"

constversionasstring=dblspace&"版本version1.1.1"

constrepbackasstring=dblspace&""

constzhengliasstring=dblspace&"hfhzi3—戊冥整理"

constallclearasstring=dblspace&"该工作簿中的工作表密码保护已全部解除!!"&dblspace&"请记得另保存"_

&dblspace&"注意:不要用在不当地方,要尊重他人的劳动成果!"

constmsgnopwords1asstring="该文件工作表中没有加密"

constmsgnopwords2asstring="该文件工作表中没有加密2"

constmsgtaketimeasstring="解密需花费一定时间,请耐心等候!"&dblspace&"按确定开始破解!"

constmsgpwordfound1asstring="密码重新组合为:"&dblspace&"$$"&dblspace&_

"如果该文件工作表有不同密码,将搜索下一组密码并修改清除"

constmsgpwordfound2asstring="密码重新组合为:"&dblspace&"$$"&dblspace&_

"如果该文件工作表有不同密码,将搜索下一组密码并解除"

constmsgonlyoneasstring="确保为唯一的?"

dimw1asworksheet,w2asworksheet

dimiasinteger,jasinteger,kasinteger,lasinteger

dimmasinteger,nasinteger,i1asinteger,i2asinteger

dimi3asinteger,i4asinteger,i5asinteger,i6asinteger

dimpword1asstring

dimshtagasboolean,wintagasboolean

application.screenupdating=false

withactiveworkbook

wintag=.protectstructureor.protectwindows

endwith

shtag=false

foreachw1inworksheets

shtag=shtagorw1.protectcontents

nextw1

ifnotshtagandnotwintagthen

msgboxmsgnopwords1,vbinformation,header

exitsub

endif

msgboxmsgtaketime,vbinformation,header

ifnotwintagthen

else

onerrorresumenext

do'dummydoloop

fori=65to66:forj=65to66:fork=65to66

forl=65to66:form=65to66:fori1=65to66

fori2=65to66:fori3=65to66:fori4=65to66

fori5=65to66:fori6=65to66:forn=32to126

withactiveworkbook

.unprotectchr(i)&chr(j)&chr(k)&_

chr(l)&chr(m)&chr(i1)&chr(i2)&_

chr(i3)&chr(i4)&chr(i5)&chr(i6)&chr(n)

if.protectstructure=falseand_

.protectwindows=falsethen

pword1=chr(i)&chr(j)&chr(k)&chr(l)&_

chr(m)&chr(i1)&chr(i2)&chr(i3)&_

chr(i4)&chr(i5)&chr(i6)&chr(n)

msgboxapplication.substitute(msgpwordfound1,_

"$$",pword1),vbinformation,header

exitdo'bypassallfor...nexts

endif

endwith

next:next:next:next:next:next

next:next:next:next:next:next

loopuntiltrue

onerrorgoto0

endif

ifwintagandnotshtagthen

msgboxmsgonlyone,vbinformation,header

exitsub

endif

onerrorresumenext

foreachw1inworksheets

'attemptclearancewithpword1

w1.unprotectpword1

nextw1

onerrorgoto0

shtag=false

foreachw1inworksheets

'checksforallclearshtagtriggeredto1ifnot.

shtag=shtagorw1.protectcontents

nextw1

ifshtagthen

foreachw1inworksheets

withw1

if.protectcontentsthen

onerrorresumenext

do'dummydoloop

fori=65to66:forj=65to66:fork=65to66

forl=65to66:form=65to66:fori1=65to66

fori2=65to66:fori3=65to66:fori4=65to66

fori5=65to66:fori6=65to66:forn=32to126

.unprotectchr(i)&chr(j)&chr(k)&_

chr(l)&chr(m)&chr(i1)&chr(i2)&chr(i3)&_

chr(i4)&chr(i5)&chr(i6)&chr(n)

ifnot.protectcontentsthen

pword1=chr(i)&chr(j)&chr(k)&chr(l)&_

chr(m)&chr(i1)&chr(i2)&chr(i3)&_

chr(i4)&chr(i5)&chr(i6)&chr(n)

msgboxapplication.substitute(msgpwordfound2,_

"$$",pword1),vbinformation,header

'leveragefindingpwordbytryingonothersheets

foreachw2inworksheets

w2.unprotectpword1

nextw2

exitdo'bypassallfor...nexts

endif

next:next:next:next:next:next

next:next:next:next:next:next

loopuntiltrue

onerrorgoto0

endif

endwith

nextw1

endif

msgboxallclear&authors&version&repback&zhengli,vbinformation,header

endsub

4.点保存,然后关闭“book1”

5.点运行即可。

5. 如何破解VBA密码

打开一个 Excel 的程序实例(无论待破解的是什么文档一律打开 Excel 实例),按 Alt + F11 打开 VBE,左侧“工程资源管理器”右键新建一个模块,复制下列代码粘贴进去后定位至过程 VBA_Password_remove 按 F5 运行选择要破解的包含工程密码的文件。

6. vba密码怎么破解

vba设置的密码是dcbjkk.dcvhj47855 88889

7. vba的密码怎么破

这是因为作者对文档进行了加密,这种加密估计是在workopen事件中写入的代码,要破解vba密码一般用Advanced VBA Password Recovery ,但是作者再打开文件时进行了文件路径的检查所以,你要先在打开文件的时候禁用“宏”,然后配合Advanced VBA Password Recovery软件估计可以搞定。

8. excel 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密码破解

Excel是一个专门用于整理数据的电子表格,为了保障表格的安全,用户可以为文档进行加密,可以设置以下类型密码:打开密码、编辑密码、工作表密码、共享账簿密码以及VBA密码。

VBA全称是VisualBasicforApplications,是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。VBA是VisualBasic的一种宏语言,主要能用来扩展Windows的应用程式功能,特别是MicrosoftOffice软件,特别是Excel表格。另外,也可说VBA是一种应用程式视觉化的Basic脚本。实际上VBA是寄生于VB应用程序的版本,可以具备VBA的宏功能。VBA密码就是为变成语言设置访问权限。破解VBA密码有两种方法:

1、使用宏代码,这种方法比较专业,不具有普遍的适用性;

2、使用专业的第三方密码破解工具,这个可以广泛被使用,传播比较广泛的是AdvancedOfficePasswordRecovery,使用软件打开Excel文档,程序会自动开始破解VBA密码的操作,一旦破解成功,用户可以更改Excel文档的VBA密码,重新获取权限。

顶一下
(0)
0%
踩一下
(0)
0%
相关评论
我要评论
用户名: 验证码:点击我更换图片