1. 如何解除excel宏代码密码
如何删除excel密码？一些Excel表格文件在打开时提示要输入密码，不然就不能打开，这是因为别人对这个文件加密了，下面小编就来分享如何取消这个密码，小编的方法是在知道这个密码的前提下进行的，而不是破解密码
如下图所示，在打开这个Excel表格文件时提示要输入密码，下面我们来分享怎么取消这个密码
1.输入文件的密码，打开这个Excel表格文件，然后点击菜单栏中的“文件”
2.点击文件后就打开如下图所示的excel设置页面，在“保护工作薄”的位置可以看到加密的说明
3.点击“保护工作薄”，之后在打开的菜单中选择“用密码进行加密”，如下图所示
4.点击“用密码进行加密”后，打开“加密文档”的对话框，如下图所示
5.删除密码下面输入框中的密码，然后点击下面的确定，这样就删除了Excel表格文件的打开密码
6.回到Excel表格设置页面中，可以看到在“保护工作薄”下面的加密提示信息已经没有了，表示取消密码成功
2. excel vba 密码 清除
1.搜一下绿色的OfficeKey
2.advanced vba passward recover pro，要注册，要找个已经注册的也不容易
3.用16进制编辑工具，如winhex、ultraedit-32打开X.xls文件，将CMG=，DPB=和GC=后的"="替换为"."，最后一种最方便。【注意留备份，以免意外！】
3. excel取消宏密码
为什么EXCEL宏不可编辑
宏不可以查看、但是可以执行,愿意是工程加密。 处理方法:按ALT+F11打开VBE环境,再按CTRL+R打开资源,再展开本工作簿的内容即可,可能需要输入密码。
4. 如何解除excel宏代码密码设置
在打开这个Excel表格文件时提示要输入密码，下面我们来分享怎么取消这个密码。
输入文件的密码，打开这个Excel表格文件，然后点击菜单栏中的“文件”，点击文件后就打开excel设置页面，在“保护工作薄”的位置可以看到加密的说明，点击“保护工作薄”，之后在打开的菜单中选择“用密码进行加密”，点击“用密码进行加密”后，打开“加密文档”的对话框，删除密码下面输入框中的密码，然后点击下面的确定，这样就删除了Excel表格文件的打开密码。
回到Excel表格设置页面中，可以看到在“保护工作薄”下面的加密提示信息已经没有了，表示取消密码成功，
5. 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．点运行即可。
6. excel 宏 设置密码
照理是不会发生这种情况的，但是既然发生了，你看一下，首先，将密码全部取消，看看正常否？ 提示宏已经禁用. 要看一下：工具—宏—安全性—（将宏的安全性设置为）【中】，应该你的宏就能打开了。
保存退出后重新进入，再设置打开密码就可以，修改密码其实是不用设置的，既然打不开，怎么能进行修改呢？
7. 如何解除excel宏代码密码保护
方法一：
1、首先我们来看一下在打开excel2019的时候会弹出密码的提示。
2、点击excel2019菜单栏上的“审阅”的菜单。
3、然后在打开的工具栏上点击“撤消工作表保护”的按钮。
4、接着会弹出撤消工作表保护的窗口，在窗口中输入密码后就可以了。
方法二：
1、我们也可以右键点击表格的空白位置，在弹出菜单中选择“撤消工作表保护”的菜单。
2、同样会弹出撤消工作表保护 的窗口，在窗口中输入密码就可以取消其密码了。
8. 如何解除Excel的VBA密码
1、先对excel档进行一般的vbaproject”工程密码保护"。
2、打开要保护的档，选择∶工具--->保护--->保护并共用活页簿--->以追踪修订方式共用-->输入密码-->保存档。
完成后，当你打开“vbaproject”工程属性时，就将会提示∶“工程不可看"
9. excel宏密码设置方法
如果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
10. 如何取消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
11. excel宏密码忘记了怎么解锁
excel表格密码忘记后的解密步骤如下：
1、按住快捷键ALT+F11，然后切换出VBA编辑窗口，在该窗口的左侧我们的选择那个忘记密码的工作表，比如sheet 1。
2、然后我们打出下图中的代码，双击刚才选中的sheet 1以后，在编辑窗口我们输入刚才的那段代码。
3、接下来依次点击“运行”-“运行宏”。
4、在弹出的宏对话框，我们再次点击“运行”，此时原先加密的工作表就被解除密码了，重新打开以后我们会发现可以直接进去。这样就解决了excel表格密码忘记后的解密问题了。
- 相关评论
- 我要评论
-