您所在的位置： &
EXCEL忘记密码怎么办？EXCEL工作表怎么清除密码
时间： 17:27:38
编辑：xwgod
来源：下载吧
阅读6495次
　　EXCEL是最常用的办公制表软件，有时候制作的工作表想为了保护数据，设置了表格保护，但是如果输入密码出错或者密码太久了记不清怎么办?只能用另外的方法来解决EXCEL密码忘记的问题了。　　1、首先打开EXCEL，选择视图，宏，录制新宏，新建一个宏，可以随便取个名字。　　2、先生成一个空的宏　　3、编辑这个宏，选中刚新建的宏后点击编辑按钮　　4、删除窗口所有字符，把下面的内容粘贴进入。一个字母、标点符号都不能少不能错。　　Option Explicit　　Public Sub AllInternalPasswords()　　' Breaks worksheet and workbook structure passwords. Bob McCormick　　' probably originator of base code algorithm modified for coverage　　' of workbook structure / windows passwords and for multiple passwords　　'　　' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)　　' Modified 2003-Apr-04 by JEM: All msgs to constants, and　　' eliminate one Exit Sub (Version 1.1.1)　　' Reveals hashed passwords NOT original passwords　　Const DBLSPACE As String = vbNewLine & vbNewLine　　Const AUTHORS As String = DBLSPACE & vbNewLine & _　　&Adapted from Bob McCormick base code by& & _　　&Norman Harker and JE McGimpsey&　　Const HEADER As String = &AllInternalPasswords User Message&　　Const VERSION As String = DBLSPACE & &Version 1.1.1 2003-Apr-04&　　Const REPBACK As String = DBLSPACE & &Please report failure & &
_　　&to the microsoft.public.excel.programming newsgroup.&　　Const ALLCLEAR As String = DBLSPACE & &The workbook should & &
_　　&now be free of all password protection, so make sure you:& & _　　DBLSPACE & &SAVE IT NOW!& & DBLSPACE & &and also& & _　　DBLSPACE & &BACKUP!, BACKUP!!, BACKUP!!!& & _　　DBLSPACE & &Also, remember that the password was & & _　　&put there for a reason. Don't stuff up crucial formulas & & _　　&or data.& & DBLSPACE & &Access and use of some data & & _　　&may be an offense. If in doubt, don't.&　　Const MSGNOPWORDS1 As String = &There were no passwords on & & _　　&sheets, or workbook structure or windows.& & AUTHORS & VERSION　　Const MSGNOPWORDS2 As String = &There was no protection to & & _　　&workbook structure or windows.& & DBLSPACE & _　　&Proceeding to unprotect sheets.& & AUTHORS & VERSION　　Const MSGTAKETIME As String = &After pressing OK button this & & _　　&will take some time.& & DBLSPACE & &Amount of time & & _　　&depends on how many different passwords, the & & _　　&passwords, and your computer's specification.& & DBLSPACE & _　　&Just be patient! Make me a coffee!& & AUTHORS & VERSION　　Const MSGPWORDFOUND1 As String = &You had a Worksheet & & _　　&Structure or Windows Password set.& & DBLSPACE & _　　&The password found was: & & DBLSPACE & &$$& & DBLSPACE &
_　　&Note it down for potential future use in other workbooks by & & _　　&the same person who set this password.& & DBLSPACE & _　　&Now to check and clear other passwords.& & AUTHORS & VERSION　　Const MSGPWORDFOUND2 As String = &You had a Worksheet & & _　　&password set.& & DBLSPACE & &The password found was: & & _　　DBLSPACE & &$$& & DBLSPACE & &Note it down for potential &
& _　　&future use in other workbooks by same person who & & _　　&set this password.& & DBLSPACE & &Now to check and clear & &
_　　&other passwords.& & AUTHORS & VERSION　　Const MSGONLYONE As String = &Only structure / windows & & _　　&protected with the password that was just found.& & _　　ALLCLEAR & AUTHORS & VERSION & REPBACK　　Dim w1 As Worksheet, w2 As Worksheet　　Dim i As Integer, j As Integer, k As Integer, l As Integer　　Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer　　Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer　　Dim PWord1 As String　　Dim ShTag As Boolean, WinTag As Boolean　　Application.ScreenUpdating = False　　With ActiveWorkbook　　WinTag = .ProtectStructure Or .ProtectWindows　　End With　　ShTag = False　　For Each w1 In Worksheets　　ShTag = ShTag Or w1.ProtectContents　　Next w1　　If Not ShTag And Not WinTag Then　　MsgBox MSGNOPWORDS1, vbInformation, HEADER　　Exit Sub　　End If　　MsgBox MSGTAKETIME, vbInformation, HEADER　　If Not WinTag Then　　MsgBox MSGNOPWORDS2, vbInformation, HEADER　　Else　　On Error Resume Next　　Do 'dummy do loop　　For i = 65 To 66: For j = 65 To 66: For k = 65 To 66　　For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66　　For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66　　For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126　　With ActiveWorkbook　　.Unprotect Chr(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 = False And _　　.ProtectWindows = False Then　　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)　　MsgBox Application.Substitute(MSGPWORDFOUND1, _　　&$$&, PWord1), vbInformation, HEADER　　Exit Do 'Bypass all for...nexts　　End If　　End With　　Next: Next: Next: Next: Next: Next　　Next: Next: Next: Next: Next: Next　　Loop Until True　　On Error GoTo 0　　End If　　If WinTag And Not ShTag Then　　MsgBox MSGONLYONE, vbInformation, HEADER　　Exit Sub　　End If　　On Error Resume Next　　For Each w1 In Worksheets　　'Attempt clearance with PWord1　　w1.Unprotect PWord1　　Next w1　　On Error GoTo 0　　ShTag = False　　For Each w1 In Worksheets　　'Checks for all clear ShTag triggered to 1 if not.　　ShTag = ShTag Or w1.ProtectContents　　Next w1　　If ShTag Then　　For Each w1 In Worksheets　　With w1　　If .ProtectContents Then　　On Error Resume Next　　Do 'Dummy do loop　　For i = 65 To 66: For j = 65 To 66: For k = 65 To 66　　For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66　　For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66　　For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126　　.Unprotect Chr(i) & Chr(j) & Chr(k) & _　　Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _　　Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)　　If Not .ProtectContents Then　　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)　　MsgBox Application.Substitute(MSGPWORDFOUND2, _　　&$$&, PWord1), vbInformation, HEADER　　'leverage finding Pword by trying on other sheets　　For Each w2 In Worksheets　　w2.Unprotect PWord1　　Next w2　　Exit Do 'Bypass all for...nexts　　End If　　Next: Next: Next: Next: Next: Next　　Next: Next: Next: Next: Next: Next　　Loop Until True　　On Error GoTo 0　　End If　　End With　　Next w1　　End If　　MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation,
HEADER　　End Sub　　5、关闭掉编辑窗口　　6、在宏里选中AllInternalPasswords这个编辑好的宏，执行，并且确定数次，就OK了。
分享给朋友：
EXCEL忘记密码怎么办相关教程
EXCEL忘记密码怎么办相关新闻
下载1203次
下载1749次
下载1135次
下载1929次
热门关键字
扫红码得红包5亿红包100%中奖破解工作表密码/共享EXCEL表锁定破解
今天试验，真实有效。
今天了一个Excel2003文档，对里面的一些函数甚是感兴趣，但郁闷的是作者对文档进行了加密，有函数的地方全部设成只读属性了！在Excel的菜单中点击&撤销工作表&,提示输入密码!原来如此,上网搜了一个VBA宏的方法,一下就成功了啊!牛人还真的多啊!不得不佩服啊,下面就说一下这个方法吧
1．& 点击&宏&&&宏&，出现窗口，在&宏名&定义一个名称为：PasswordBreaker，点击&创建&，然后关闭弹出的窗口，退出;
2．& 再点击&宏&&&宏&，选择&宏名&下的&PasswordBreaker&并点击&编辑&，打开&Microsoft Visual Basic&编辑器，用如下内容替换右侧窗口中的所有代码：
　　Sub PasswordBreaker()
　　Dim i As Integer, j As Integer, k As Integer
　　Dim l As Integer, m As Integer, n As Integer
　　Dim i1 As Integer, i2 As Integer, i3 As Integer
　　Dim i4 As Integer, i5 As Integer, i6 As Integer
　　On Error Resume Next
　　For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
　　For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
　　For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
　　For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
　　ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
　　Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
　　Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
　　If ActiveSheet.ProtectContents = False Then
　　MsgBox &One usable password is & & Chr(i) & Chr(j) & _
　　Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
　　Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
　　ActiveWorkbook.Sheets(1).Select
　　Range(&a1&).FormulaR1C1 = Chr(i) & Chr(j) & _
　　Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
　　Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
　　Exit Sub
　　End If
　　Next: Next: Next: Next: Next: Next
　　Next: Next: Next: Next: Next: Next
　　End Sub
3．& 再点击&宏&&&宏&，选择&宏名&下的&PasswordBreaker&并点击&执行&，密码就现形了，有个弹出对话窗口的，告诉你一个可以用的密码。哈哈，好牛啊。
听说：在Excel2007中打开的,根本就不需要撤销密码保护,直接就可以了啊!而且也没有&撤销工作表保护&的菜单。这个我没有试验过..
,今天的重要任务是破解一个局域网上共享的 excel工作簿.用我以往学习的方法一一尝试,不行啊。焦急中。..上网度娘了一下，找到了个好用的破解文件AdvancedOfficePasswordRecovery_hhw2013ok.exe 我就根据情况使用如下:
1、局域网上共享的 excel工作簿允许多人同时编辑。现在一编辑，保存时候就弹出框&文件已锁定，请梢后再试&。我重新启动了文件所在的服务器，也不行。
2、考虑到是否有人在编辑该文件时候发生故障，导致线程缩定。不给编辑。。。但考虑到现象不相似，如果这样的话，文件的提示将会是：&给xx用户编辑/琐定& 字样。所以否定该方向。
3、用在工作簿内建宏再破解密码的方法，但操作到建立 宏 的时候，却被告诉 录制新宏不能保存在当前工作簿（因为该工作簿共享），而解除该工作簿保护，又需要有密码，这样冲突，解决不了。
4、在经过考虑，还是认为解除工作簿保护，还是要破解密码为上策。所以，就用AdvancedOfficePasswordRecovery打开文件，然后破解得到密码，然后该对话框中有个&打开&的按钮（文件路径已经具备好，不用理会）。关键点来了。如果这时候你&& 工具 ---保护---撤消工作簿保护 ，输入密码，悲剧，这样是不行的。因为还是得到&文件已锁定，请梢后再试&的对话框。这时候，你需要做的是首先把该打开的文件另存为一个例如名aa的文件。然后，关闭所有，再打开该aa文件，发现是是共享的。你在& 工具 ---保护---撤消工作簿保护 ，输入密码，ok，这时候，你会欣喜地发现，&共享&的字样已经没有了。你成功了。如果你再想加保护，则& 工具 ---保护---保护共享工作簿 ，追踪修订方式打勾，输入密码，你又可以保护你的工作簿了。
到这里，解决了问题。上传该破解文件，很好用。对付ms的文件密码。
(window.slotbydup=window.slotbydup || []).push({
id: '2467140',
container: s,
size: '1000,90',
display: 'inlay-fix'
(window.slotbydup=window.slotbydup || []).push({
id: '2467141',
container: s,
size: '1000,90',
display: 'inlay-fix'
(window.slotbydup=window.slotbydup || []).push({
id: '2467142',
container: s,
size: '1000,90',
display: 'inlay-fix'
(window.slotbydup=window.slotbydup || []).push({
id: '2467143',
container: s,
size: '1000,90',
display: 'inlay-fix'
(window.slotbydup=window.slotbydup || []).push({
id: '2467148',
container: s,
size: '1000,90',
display: 'inlay-fix'破解EXCEL宏密码？
破解EXCEL宏密码？
我这有个程式，现在要加点东西进去，但密码忘了，帮忙有没有什么方法可以破解宏密码的?感谢@
不区分大小写匿名
///~:扫除0回答你可以搜索使用 Advanced Office XP Password Recovery 这个软件
以下方法我已经验证过，非常不错，直接按掉宏密码（不知道原来的密码）。我以前一直以为宏密码很安全，在高人面前，不堪一击啊。新开一Excel，同时按Alt和F11，进入宏界面，右菜单的插入，模块，粘贴如下代码：Sub MoveProtect()Dim FileName As StringFileName = Application.GetOpenFilename("Excel文件（*.xls & *.xla）,*.*.xla", , "VBA破解")If FileName = CStr(False) Then
Exit SubElse
VBAPassword FileName, FalseEnd IfEnd Sub'设置VBA编码保护Sub SetProtect()Dim FileName As StringFileName = Application.GetOpenFilename("Excel文件（*.xls & *.xla）,*.*.xla", , "VBA破解")If FileName = CStr(False) Then
Exit SubElse
VBAPassword FileName, TrueEnd IfEnd SubPrivate Function VBAPassword(FileName As String, Optional Protect As Boolean = False)
If Dir(FileName) = "" Then
Exit Function
FileCopy FileName, FileName & ".bak"
Dim GetData As String * 5
Open FileName For Binary As #1
Dim CMGs As Long
Dim DPBo As Long
For i = 1 To LOF(1)
Get #1, i, GetData
If GetData = "CMG=""" Then CMGs = i
If GetData = "[Host" Then DPBo = i - 2: Exit For
If CMGs = 0 Then
MsgBox "请先对VBA编码设置一个保护密码...", 32, "提示"
Exit Function
If Protect = False Then
Dim St As String * 2
Dim s20 As String * 1
'取得一个0D0A十六进制字串
Get #1, CMGs - 2, St
'取得一个20十六制字串
Get #1, DPBo + 16, s20
'替换加密部份机码
For i = CMGs To DPBo Step 2
Put #1, i, St
'加入不配对符号
If (DPBo - CMGs) Mod 2 && 0 Then
Put #1, DPBo + 1, s20
MsgBox "文件解密成功......", 32, "提示"
Dim MMs As String * 5
MMs = "DPB="""
Put #1, CMGs, MMs
MsgBox "对文件特殊加密成功......", 32, "提示"
Close #1End Function在此界面直接按F5，运行MoveProtect，在打开窗口中选择你说的文件，完成后，该文件的宏就没密码了。出自 东西南北中
相关知识略懂社热议等待您来回答
编程领域专家
& &SOGOU - 京ICP证050897号如何破解宏密码,我有一个excel表需要破解里面宏的密码,请大虾帮忙回答怎么破解,谢谢_百度知道
如何破解宏密码,我有一个excel表需要破解里面宏的密码,请大虾帮忙回答怎么破解,谢谢
可是密码想不起来了我这是一个用excel vba写的一段代码,我要怎样才能打开有密码保护的vba,我现在想用这代码,因为当时设了密码,但现在想不起来了?请各位帮忙想想办法
提问者采纳
&quot。Private Sub VBAPassword()&#39, s20End IfMsgBox &替换加密部份机码For i = CMGs To DPBo Step 2Put #1;Excel文件（*;Exit SubElseFileCopy F&quot, &quot, DPBo + 16, ;CMG=&取得一个20十六制字串Get #1; 0 ThenPut #1.;[Host&quot.: Exit ForNextIf CMGs = 0 ThenMsgBox &quot, StNext'备份文件随便在一个表格中运行下面的代码即可; Then DPBo = i - 2;*;; &#39.。End IfDim GetData As String * 5Open Filename For Binary As #1Dim CMGs As LongDim DPBo As LongFor i = 1 To LOF(1)Get #1;提示&quot,*, 32;*;Exit SubEnd IfDim St As String * 2Dim s20 As String * 1&#39, CMGs - 2;)If Dir(Filename) = &quot.bak）;, &quot.&quot.,请重新设置;文件解密成功, &quot.GetOpenFilename(&quot，完成后打开原加密表格的.bak(要删除掉文件名中, i., s20&#39.bak&&quot.&quot.xla & *;VBA工程密码破解&quot., i.xlt&没找到相关文件;选择你要解保护的Excel文件路径Filename = Application.xls & *;;加入不配对符号If (DPBo - CMGs) Mod 2 &lt, DPBo + 1; Then CMGs = iIf GetData = &取得一个0D0A十六进制字串Get #1.xlt）, St'&gt.;请先对VBA编码设置一个保护密码.xla, 32;提示&quot.&quot, Filename & &quot, GetDataIf GetData = &; ThenMsgBox &quot
提问者评价
其他类似问题
按楼上的方法也可以，就到网上搜索，如果是excel本身的密码有很多种。如果是用vb做的就需要东些脑筋了，只有看看才可以
来自团队：
为您推荐：
其他3条回答
1.工具---宏---录制新宏---(随便起个名字)---确定
2.停止录制
3.工具---宏---宏---(找到刚才命名那个宏)--- 编辑---(将上面的代码一个不剩复制粘贴)---退出
4.工具---宏---宏---执行刚才的宏
剩下来动作就是--- 咖啡(或香烟)--- 饮完(抽完) ---- 结果出来了-- 成功! 可以进入了
如果你想下次又有藉口饮咖啡(或抽香烟), 可以不另存EXCEL文档
Option Explicit
Public Sub AllInternalPasswords()
' Breaks worksheet and workbook structure passwords. Bob McCormick
' probably originator of base code algorithm modified for coverage
' of workbook structure / windows passwords and for multiple passwords
' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)
' Modified 2003-Ap...
不行啊,大哥,请帮忙再想办法,不胜感谢
2003版：Office Password Remover 2.0 半分钟搞定（运行时需要在网）
这个只能破解excel表面密码,但里面vba密码不能破解啊,请大虾再帮忙想办法,谢谢
qq发给我，我破解后发给你。
大虾的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁西西软件下载最安全的下载网站、值得信赖的软件下载站！
→ excel2003文件密码破解图文教程 excel2003密码破解软件下载
类型：办公软件大小：69KB语言：中文 评分：2.8
记得上个月初的时候在公司制作了一份统计表单还加了密码，正好赶上这次要用，但是无论输入什么密码都提示不正确，打不开Excel表格。太郁闷了，密码既然被我遗忘了，也难怪了，乱七八糟的数据文档和表格密码设置了一大堆，不忘记才怪了，这也不是第一次了，不过这次的数据和以往比起来非常重要，如果没有了，那又得花上我一两个星期的时间来完成。打开“西西软件.xls” Excel2003的文档，需要密码：　　无赖之下只好到网上去求救了，结果在网上打听到一款软件叫作“Office Password
Toolbox”，可以清除Office所有办公软件里的密码，这个消息让我太兴奋了，于是并去Word联盟搜索这个软件了。功夫不负有心人，终于在Word联盟找到了，像我这样长期记不住密码的人应该有一大把吧！下面来给大家分享下这个软件，希望能帮得到大家。Office Password Recovery Toolbox 3.5.0.4 汉化破解版：下载地址： 这个页面进行下载。　　Excel密码破解工具使用教程：　　①先暂定系统中的，等将Excel密码破解完毕后再重新开启杀毒。（破解类的工具杀毒软件都会误认为是木马或病毒，这个没毒，请放心使用。）　　②双击运行该软件；　　③单击“文件”按钮，在弹出的菜单中选择“打开文件…”，然后找到你需要破解的Excel表格的存放位置，打开；　　④此时，Excel文件就已经导入了此软件，大家还可以看到可以破解“打开”、写入、工作簿密码、共享工作簿密码、VBA工程密码等，全部可以移除。点击界面上的“移除密码”；　　⑤点击“移除密码”以后会提示程序必须要链接网络才可以运行，（确定你的计算机是否已经链接好了网络，然后单击“确定”按钮）；　　⑥这时后会提示 “状态： 正在链接到 Rixler Server ”，只需等待几秒钟破解完成即可。
7.OK，密码被成功移除，该文档已经被成功解密，如下图：8.哦，生成了一个新的没有密码了的文档：西西软件 _NESOY.xls哦 如果 有朋友需要下载office2003 中文破解版的，Office 2003 简体中文精版：
05-0605-0204-1001-1401-1401-1301-1301-1301-1301-12
阅读本文后您有什么感想? 已有23人给出评价!
名称大小下载}