2022-11-22 09:07来源：m.sf1369.com作者：宇宇
如果Excel文件的打开密码忘记了，且密码是6位数以内的数字，可用以下步骤解开（关掉所有程序，为了速度）：
新开一Excel，同时按Alt和F11，进入VBA界面，点菜单上的插入，模块，在新出来的窗口粘贴一下代码：Sub crack()Dim i As LongDim FileName As Stringi = 0FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xlsx）,*.xls;*.xlsx", , "VBA破解")FileName = Right(FileName, Len(FileName) - InStrRev(FileName, "\"))Application.ScreenUpdating = Falseline2: On Error GoTo line1Workbooks.Open FileName, , True, , iMsgBox "Password is " & iExit Subline1: i = i + 1Resume line2Application.ScreenUpdating = TrueEnd Sub然后在此界面直接按F5运行此宏，选择文件，等啊等（看密码长度了）
破解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．点运行即可。
1、Excel文件的加密与隐藏 如果你不愿意自己的Excel文件被别人查看，那么你可以给它设置密码保护，采用在保存文件时用加密的方法就可以实现保护目的，在这里要特别注意的是，自己设定的密码一定要记住，否则自己也将被视为非法入侵者而遭拒绝进入。
给文件加密的具体方法为： ⑴、单击"文件"菜单栏中的"保存或者（另存为）"命令后，在弹出的"保存或者（另存为）"的对话框中输入文件名； ⑵、再单击这个对话框中"工具"栏下的"常规选项"按钮，在弹出的"保存选项"的对话框中输入自己的密码；这里要注意，它提供了两层保护，如果你也设置了修改权限密码的话，那么即使文件被打开也还需要输入修改权限的密码才能修改； ⑶、单击"确定"按钮，在弹出的密码确认窗口中重新输入一遍密码，再点击"确认"，最后点"保存"完成文件的加密工作。
当重新打开文件时就要求输入密码，如果密码不正确，文件将不能打开。
2、对单元格进行读写保护 单元格是Excel执行其强大的计算功能最基本的元素，对单元格的读写保护是Excel对数据进行安全管理的基础。
对单元格的保护分为写保护和读保护两类，所谓写保护就是对单元格中输入信息加以限制，读保护是对单元格中已经存有信息的浏览和查看加以限制。
对单元格的写保护有两种方法： A、对单元格的输入信息进行有效性检测。
首先选定要进行有效性检测的单元格或单元格集合，然后从数据菜单中选择"有效数据"选项，通过设定有效条件、显示信息和错误警告，控制输入单元格的信息要符合给定的条件。
B、设定单元格的锁定属性，以保护存入单元格的内容不能被改写。
可分为以下步骤： （1）选定需要锁定的单元格或单元格集合； （2）从格式菜单中选择"单元格"选项； （3）在设置单元格格式的弹出菜单中选择"保护"标签，在弹出的窗口中，选中"锁定"； （4）从工具菜单中选择"保护"选项，设置保护密码，即完成了对单元格的锁定设置。
对单元格的读保护有三种方法： A、通过对单元格颜色的设置进行读保护。
例如：将选定单元格或单元格集合的背景颜色与字体颜色同时设为白色，这样，从表面看起来单元格中好像是没有输入任何内容，用户无法直接读出单元格中所存储的信息。
B、用其他画面覆盖在需要保护的单元格之上，遮住单元格的本来面目，以达到读保护目的。
例如：使用绘图工具，画一不透明矩形覆盖在单元格之上，从格式菜单中选定矩形的"锁定"选项，然后保护工作表，以保证矩形不能被随意移动。
这样，用户所看到的只是矩形，而看不到单元格中所存储的内容。
C、通过设置单元格的行高和列宽，隐藏选定的单元格，然后保护工作表，使用户不能直接访问被隐藏的单元格，从而起到读保护的作用。
3、快速填充相同数据 如果你希望在不同的单元格中输入大量相同的数据信息，那么你不必逐个单元格一个一个地输入，那样需要花费好长时间，而且还比较容易出错。
我们可以通过下面的方法在多个相邻或不相邻的单元格中快速填充同一个数据，具体方法为： ⑴、同时选中需要填充数据的单元格。
若某些单元格不相邻，可在按住Ctrl键的同时，点击鼠标左键，逐个选中； ⑵、输入要填充的某个数据。
按住Ctrl键的同时，按回车键，则刚才选中的所有单元格同时填入该数据。
4、使用Excel中的"宏"功能 宏的概念，相信使用过WORD的人都会知道，她可以记录命令和过程,然后将这些命令和过程赋值到一个组合键或工具栏的按钮上,当按下组合键时,计算机就会重复所记录的操作。
在实践工作中，它可以代替经常输入大量重复而又琐碎的数据，具体宏的定义方法如下： ⑴、打开工作表，在工作表中选中要进行操作的单元格； ⑵、用鼠标单击菜单栏中的"工具"菜单项，并从弹出的下拉菜单中选择"宏"子菜单项，并从随后弹出的下级菜单中选择"录制新宏"命令； ⑶、设定好
方法一:点击工具、宏、安全性降为低。如不行只有清除密码保护，如方法二 方法二: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、点运行即可解除密码
1、首先点击宏锁定的文件，此时文件呈现半透明状态，选择EXCEL选项。
2、在弹出的对话框内选择信任中心。
3、点击信任中心设置，进入下一个对话框。
4、点击宏设置，而后选择启用所有宏。
5、点击个人信心，在保存时删除个人隐私那里不要勾选，至此全部设置完成，即解除了宏命令设置的密码。
6、就可以重新打开文件。
1、首先点击宏锁定的文件，此时文件呈现半透明状态，选择EXCEL选项。
2、在弹出的对话框内选择信任中心。
3、点击信任中心设置，进入下一个对话框。
4、点击宏设置，而后选择启用所有宏。
5、点击个人信心，在保存时删除个人隐私那里不要勾选，至此全部设置完成，即解除了宏命令设置的密码。
6、就可以重新打开文件。
如果是表格打不开，那个密码不好办，要上网上下载软件来破。如果是表格打开后的工作表保护密码，这个很好破解，可以传你一个带宏的表，自己解一下。
有以下两种方法可以隐藏:
一、按atl+f11组合键，进入宏编辑窗口，找到工具，vbaproject属性，保护选项卡，设置密码。这样别人就看不到你编写的宏代码。宏名你可以自己随意修改。
二、1.点击顶部“开发工具”菜单下的录制新宏图标。
2.将宏名称设为隐藏数据列，点击确定按钮。
3.右键点击列选择隐藏数据列。
4.点击“查看代码”按钮查看录制好的vba宏代码。
在日常工作中，您是否遇到过这样的情况：您用Excel编制的报表、表格、程序等，在单元格中设置了公式、函数等，为了防止其他人修改您的设置或者防止您自己无意中修改，您可能会使用Excel的工作表保护功能，但时间久了保护密码容易忘记，这该怎么办？有时您从网上下载的Excel格式的小程序，您想修改，但是作者加了工作表保护密码，怎么办？您只要按照以下步骤操作，Excel工作表保护密码瞬间即破！
1、打开您需要破解保护密码的Excel文件；
2、依次点击菜单栏上的工具---宏----录制新宏，输入宏名字如:aa；
3、停止录制(这样得到一个空宏)；
4、依次点击菜单栏上的工具---宏----宏,选aa,点编辑按钮；
5、删除窗口中的所有字符(只有几个),替换为下面的内容；ViewCode6、关闭编辑窗口；7、依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,运行,确定两次；等一会,再点击确定。哈哈哈,没有密码了吧!!
如果你只有打开密码，且密码是7位数以内的数字，可用以下步骤解开：
新开一Excel，打开，记住文件路径，取消。然后把你待解密文件copy到这一路径，改名为1.xls。然后回到Excel窗口，同时按键盘的Alt和F11，右键点左上窗口中的VBAProject，插入，模块，在右边新出来的窗口粘贴一下代码
Subcrack()
DimiAsLong
i=1
line2:
OnErrorGoToline1
DoWhileTrue
Workbooks.Open"1.xls",,,,i
Workbooks("1.xls").Close0
MsgBox"Passwordis"&i
ExitSub
Loop
line1:
i=i+1
Resumeline2
EndSub
然后运行此宏（回到Excel窗口，工具，宏，宏，DefineHyperlink，运行）
如果有字母，稍微复杂些，道理是一样的。太长的密码，基本解不开了。
若果还有读写密码，且与打开密码一样，将Workbooks.Open"1.xls",,,,i改为Workbooks.Open"1.xls",,,,i,i
