问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

兄弟姐妹们有没有人能解开EXCEL表格的密码啊,,

发布网友 发布时间:2022-04-21 19:53

我来回答

5个回答

热心网友 时间:2022-06-18 20:45

excel设置了保护工作簿,想要使用默认密码撤销工作表保护,解决方法如下。

1、首先在电脑中打开excel表格,点击“审阅”,如下图所示。

2、然后点击“撤销工作表保护”,如下图所示。

3、如果没有设置密码的情况下,默认密码是空的,就不需要输入密码,可以直接撤销保护。

4、如果点击撤销工作表包含后,弹出输入密码的弹框,说明之前手动设置了密码,是需要输入设置的密码才能撤销工作表保护的。

热心网友 时间:2022-06-18 20:45

excel表格在审阅页面下点击撤销工作表保护,输入密码就可以了。

1、首先在excel表格中点击审阅,如下图所示。

2、然后在审阅选项下点击撤销工作表保护,如下图所示。

3、然后在打开的窗口中,输入设置的保护密码,如下图所示。

4、最后在表格中即可取消密码,如下图所示就完成了。

热心网友 时间:2022-06-18 20:46

  1/先录入密码,确定打开要取消密码的excel文件。

  2/在文件菜单下点击另存为,取消密码的办法其实就是再把文件保存一次,在保存替换原文件或重命名时将密码取消掉。

  3/点击工具选择常规选项。

  4/删除密码,点击确定并保存。

  5/提示文件已存在要替换它吗?如果想要覆盖原文件直接点击是就替换掉了。如果想保留原文件重新存一份,点击否再修改文件名保存为一份新的文件。

  

热心网友 时间:2022-06-18 20:46

用 excel的宏破解 法
1,打开需要解除保护的EXCEL工作表;
2,选择工具---宏----录制新宏---输入名字如:aa;
3,停止录制(这样得到一个空宏);
4,工具---宏----宏,选aa,点编辑按钮;
5,删除窗口中的所有字符(只有几个),替换为下面的内容:(复制吧);
6,关闭编辑窗口;
7,工具---宏-----宏,选AllInternalPasswords,运行,确定两次,等2分钟,再确定.OK,旧的密码自动提示,工作表也自动解除保护了。

内容如下:==================================================================================
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 'mmy 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

热心网友 时间:2022-06-18 20:47

打开需要更改的Excel表格,工具--选项--安全性--将打开权限密码删除--确定。即可
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
小弟刚升到80级是法师 应该怎么弄装备啊 从哪里开始弄起 还有就是网上... 门上指纹锁要多少钱 手机百度如何搜索图片来源? 如何找出图片出处 win7电脑横屏如何处理笔记本电脑桌面变成横向了怎么办 win7电脑桌面反了怎么办电脑屏幕倒过来了怎么办 win7电脑变成竖屏快捷键我电脑变成竖屏了怎么调回来 win7系统电脑怎么横屏w7系统屏幕怎么横过来 win7系统更改电脑屏幕方向电脑屏幕旋转了怎么调整过来 调成竖屏模式电脑win7我电脑变成竖屏了怎么调回来 显示医疗保险卡状态有效是什么意思 涉密信息应如何销毁呢? 涉密系统里的表格在电脑关机状态被下载到桌面上是... 涉密文件传阅单空白表格可以在普通电脑上么 涉密空白表格填写后还是涉密文件吗 滴滴预约打车怎么预约 这个手机号码以前由别人注册过了我该怎么办? 我的手机号码已被注册。如何取消注册 手机号码被注册了怎么办 郑好办手机号码被注册了怎么办 手机号显示已被注册怎么办? 手机号码被销户怎么办? 手机号码被注销了怎么办,怎么恢复? 手机号被注册? 在广州做IT行业,软件测试工资大概是深圳几成? 软件测试的工资包括五险一金应该在多少范围比较正... 铁皮石斛有啥功效?? 软件测试,手工功能测试的工资一般有多少? 软件测试行业的薪水一个月一般是多少 请问铁皮石斛的药用? 怎么查询自己的医保是否生效? 公司要做涉密资质,谁有申报材料模板提供一下参考... 医疗保险交多少年有效 如何销毁涉密信息存储介质 涉密人员因公出国前需履行哪些审批手续 完成涉密地质资料专项清理工作任务的思考 表格中相同内容如何批量修改? 医保有效期按照什么时间计算 一般医疗保险购买多久后生效? 国家秘密基础测绘成果使用申请表编号怎么填 基本户和一般户的区别!!!!急~~~~ 买社区医保多久生效? 基本帐户和一般帐户的区别是什么 我包的粽子像关于粽子的比喻句 寻找涉密数据备份和企业级数据恢复国内公司 什么医疗保险立即生效 基本存款账户和一般存款账户有什么区别? 我包的粽子像关于粽子的比喻句? 一般帐户和基本账户的区别 为啥男的包的像个粽子,女的穿的快没了,。。。?