当前位置:首页经验技巧Excel经验excel财务

EXCEL宏工程密码破解,电子表格EXCEL宏密码

2024-07-17 10:17:54

1. excel宏密码

从VBA编辑窗口工具栏的:工具→VBAProject属性→保护→锁定工程(点中查看时锁定工程)→查看工程属性密码→密码(在此框中输入密码)→确认密码(在此框中再次输入密码)→确定→保存退出,下次打开的时候就要输入正确的密码,才能看到代码

2. excel宏密码错误

照理是不会发生这种情况的,但是既然发生了,你看一下,首先,将密码全部取消,看看正常否? 提示宏已经禁用. 要看一下:工具—宏—安全性—(将宏的安全性设置为)【中】,应该你的宏就能打开了。

保存退出后重新进入,再设置打开密码就可以,修改密码其实是不用设置的,既然打不开,怎么能进行修改呢?

3. excel宏密码设置一直说无效

1、我们要先看一下文件的后缀,打开“我的电脑”在右上角找到“组织”点开,找到文件夹很搜索选项

2、在对话框中选择第二项“查看”,在高级选项中找到“隐藏已知文件类型的扩展名”把前面的勾去掉

3、现在我们就可以看到文件的后缀了,右键点击文件“重命名”把文件后缀改成“xls”

4. 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. excel宏密码输入

应该是你没保存为“启用宏的工作簿”,在EXCEL中按“另存为”,然后选“启用宏的工作簿就行了。

6. excel宏密码记不住怎么办

方法一:点击工具、宏、安全性降为低。如不行只有清除密码保护,如方法二 方法二:1、打开需要执行宏的Excel文件 2、点插入、新表单 3、右击新插入的表单(在下面)选查看代码 4、粘贴以下代码 SubMoveProtect() DimFileNameAsString FileName=Application.GetOpenFilename("Excel文件(*.xls&*.xla),*.xls;*.xla",,"VBA破解") IfFileName=CStr(False)Then ExitSub Else VBAPasswordFileName,False EndIf EndSub 5、点运行即可解除密码

7. excel 宏 设置密码

应该是你没保存为“启用宏的工作簿”,在EXCEL中按“另存为”,然后选“启用宏的工作簿就行了。

8. excel宏密码 不成功

在日常工作中,您是否遇到过这样的情况:您用Excel编制的报表、表格、程序等,在单元格中设置了公式、函数等,为了防止其他人修改您的设置或者防止您自己无意中修改,您可能会使用Excel的工作表保护功能,但时间久了保护密码容易忘记,这该怎么办?有时您从网上下载的Excel格式的小程序,您想修改,但是作者加了工作表保护密码,怎么办?您只要按照以下步骤操作,Excel工作表保护密码瞬间即破!

1、打开您需要破解保护密码的Excel文件;

2、依次点击菜单栏上的工具---宏----录制新宏,输入宏名字如:aa;

3、停止录制(这样得到一个空宏);

4、依次点击菜单栏上的工具---宏----宏,选aa,点编辑按钮;

5、删除窗口中的所有字符(只有几个),替换为下面的内容;ViewCode6、关闭编辑窗口;7、依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,运行,确定两次;等一会,再点击确定。哈哈哈,没有密码了吧!!

9. excel宏密码设置方法

1打开excel文件,点击审阅-保护工作表

2出现菜单后,输入一个密码,点击确定

3出现菜单后,再次输入刚才设置的密码,点击确定

4当图标变为撤销工作表保护字样,就完成给excel文件加密码了。

10. excel宏密码破解工具

  如果是表格打不开,那个密码不好办,要上网上下载软件来破。如果是表格打开后的工作表保护密码,这个很好破解,可以传你一个带宏的表,自己解一下。

11. excel宏密码忘记了怎么解锁

示例在EXCEL2007中进行,可以不使用宏设置,直接按以下方法操作。;

1、先打开EXCEL,sheet1是一个被保护的工作表,当点击单元格尝试编辑时。会提示试图更改的单元格或图表在受保护的工作表中!;

2、点击工作表左上角全选,按Ctrl+C 复制工作表,然后在右侧新建 一个工作表,再次点击左上角全选,按CTRL+V粘贴,将被保护的工作表粘贴到新的表中,此时的工作表内容与原表相同,只是没有了密码保护。;

3、删除原工作表,将新建的工作表名称改为原名称,并移动到原位置即可。


电脑版

免责声明:本站信息来自网络收集及网友投稿,仅供参考,如果有错误请反馈给我们更正,对文中内容的真实性和完整性本站不提供任何保证,不承但任何责任,谢谢您的合作。
版权所有:五学知识网 Copyright © 2015-2024 All Rights Reserved .