我有个excel表格忘记密码了,下了解密软件没解开,谁帮我解一下啊 急 急

kuaidi.ping-jia.net  作者:佚名   更新日期:2024-03-28
Excel表格 版本:2007忘记了密码怎么办,有什么办法解开!!急急...

是保护工作表密码吗?如果是,可以用宏代码进行破解,方法如下
(1)打开工作表
(2)按“Alt+F11”调出VBA编辑器,选择“插入”—“模块”—把下列“宏代码”粘贴进去保存,退出VBA编辑器,回到工作表界面


Public Sub excel密码破解()
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


(3)按“Alt+F8”调出宏,选择“excel密码破解”,点击“执行”,之后再点击几次“确定”,等宏代码执行完毕,密码就没有了,祝你好运!

Excel工作表密码去除,破解

从网上下载一个软件:Word Password Recovery Master

1435522647,发这个QQ邮箱

  • excel密码忘记了怎么解除限制?
    答:第一种:找回excel打开密码 1)下载安装疯师傅excel解密助手 2)选择模式 在电脑上下载疯师傅Excel解密助手,安装后打开,选择“恢复密码”。3)选择Excel文件和破解方法 点击加号按钮,选择一个您想要恢复密码的Excel文件。添加Exce...
  • Excel表格密码忘记了怎么办
    答:如果忘记了Excel表格的密码,可以通过以下方法尝试解除密码:如果记得老密码,直接在打开Excel时输入密码即可解除保护。在Excel中点击“文件”-“信息”-“检查文档”,看是否记录了旧密码提示。使用在线Excel密码破解工具或软件,通过...
  • excel表格密码忘了怎么办?
    答:1. 查看保护选项:单击Excel表格上方的“审阅”选项卡,查看是否存在“保护工作表”或“保护工作簿”的选项。如果存在,请选择相应选项并输入解锁密码(如果有)。这样就可以解除对表格的保护。2. 解除单元格保护:如果只有某...
  • excel密码忘记了怎么办
    答:1、先把excel文件扩展名改为rar,打开压缩文件,找到xl——worksheets——你设置过密码的excel工作表,然后把该excel工作表拖到桌面上。2、选择该文件,用记事本打开刚才拖出来的文件,搜索protect,找到相关一截代码:,把这...
  • excel进不去密码忘了如何办
    答:1.使用备份文件:如果您曾经为Excel表创建过备份文件,可以尝试打开备份文件,以避免使用密码。2.使用另存为功能:尝试使用另存为功能将Excel表格另存为一个新的文件,并尝试在新文件中打开。有时这个操作可以去除密码保护。3...
  • xlsx工作表密码忘记了怎么办?
    答:1. 使用常见的密码组合。如果您曾经使用过Excel工作表密码,可以尝试使用您通常使用的密码组合。2. 使用VBA代码清除密码。可以通过使用VBA代码清除工作表的密码。这需要一定的编程技能,但是可以在不受损害的情况下删除密码。在...
  • excel忘记密码怎样简单找回
    答:excel表格锁定了,不记得密码了,可以按照下面的方法进行解锁:设备:华为笔记本。系统:win7。软件:excel。版本:8.0.11。1.首先打开设置了工作表保护的表格,可以看到,当我们试图编辑时,会弹出这样的对话框。2.单击文件...
  • excel加密后忘记密码怎么办?附解决方法
    答:同时你放Excel的地方会多出一份同样的Excel,但这个是解密后的,你可以直接打开excel工作表保护密码忘记怎么办1、首先打开设置了工作表保护的表格,可以看到,当我们试图编辑时,会弹出这样的对话框。2、这时如果我们忘记了密码...
  • excel表格文件密码忘记了解决方法
    答:下面就是excel表格文件忘记密码的解决方法哦~ 首先我们在网上下载一个Office Password Remover,运行解压好的OPRemove.exe 这个程序,打开程序后可以看到中间文本框后面有个类似文件夹的按钮,点击它浏览打开要破解的文档, 选择后...
  • Excel加密后忘记密码如何解除?
    答:有一些比较知名的密码破解软件,比如Excel Password Remover、Excel Password Recovery等,用户可以通过谷歌搜索或其他下载站点获取这些软件。使用记住密码功能,选择“文件”-“信息”-“安全警告”-“编辑权限”-“忽略所有权限...