1. excel密码破解
一、整个Excel表被锁定的解锁方法:
首先打开设置了工作表保护的表格,点击工具栏的查阅,再点击撤销工作表保护,输入密码即可解锁。
二、解锁Excel表中的单元格
打开Excel表,全选,右击鼠标选择设置单元格格式,选择保护,把“锁定”前面的勾去掉,点击确定即可
2. excel密码破解安卓
1、首先有一个加密的excel表格,在其上方点击右键,在弹出的菜单中点击重命名。
2、把后缀名修改为rar,然后在任意空白处点击一下,在弹出的窗口中点击是。
3、双击打开该压缩文件,找到并双击xl文件夹。
4、在xl文件夹中找到并双击打开worksheets文件夹,找到sheet1.xml文件,在其上方点击右键,在弹出的菜单中点击记事本打开。
5、sheetprotection开始到结尾删除,然后保存即可。
6、所以excel加密使用本身自带的加密功能其实并不安全,如果是想要随身携带加密,还是建议用硬加密U盘,基本上很难破解,下面以大势至防泄密U盘为例跟大家分享下这类U盘的使用方法。把该U盘接入电脑,双击打开此电脑,找到驱动安装,直至安装完成。
7、返回桌面双击快捷方式,根据提示设置管理模式密码和密保,点击确定进入普通模式,这个模式下是无法打开任何的excel表格。
8、在右上角依次点击选项—模式切换,根据提示输入密码,点击确定进入管理模式。
9、在管理模式下把需要加密的excel表格拷贝进去即可加密,当返回普通模式时就无法访问了。
10、在右上角点击防拷选项,根据需要勾选设置普通模式下的权限,然后点击确定即可。
3. 被保护的excel密码破解
如果excel文档是用加密软件加密过的话,那只能联系软件商家客服协助处理 专业的防泄密软件加密的文件只有输入正确密码才能打开 无法破解,比如域之盾软件 加密过的文件任何形式的非法外发 传输拷贝 打开都是乱码 希望可以帮助到你
4. excel密码破解时显示数据已被破坏
一、临时解决办法:修改文件属性选择需要打开的文件,点右键属性里面选择"解除锁定",然后确定后。即可正常打开了。 二、彻底解决办法:修改选项配置1、进入文件菜单中的选项->信任中心->点信任中心设置然后点受保护的视图,把右边的所有钩上的内容都不钩,最后保存退出即可。
2、Word/Excel都要设置一下。
3、如果还是不行,先用excel2007或者2003打开后不要做任何操作,直接保存,然后2010就能正常操作了。
5. excel密码破解vba
如果密码是很简单的几位数数字,相对容易用VBA暴力破解,很复杂的话就很难了
6. excel密码破解工具有用吗
EXCEL工作表保护密码破解
方法:
1\打开文件
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 '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
7. excel 打开密码破解
方法/步骤
1、打开工作表,发现表格被锁定无法编辑,点击切换到审阅选项,点击撤销工作表保护。2、输入密码,点击确定即可。
审阅点撤销工作表保护
打开工作表,点击切换到审阅选项,点击撤销工作表保护
输入密码点击确定即可
输入密码,点击确定即可
8. Excel怎么破解密码
打开Excel文件,输入密码后点击【确定】,然后依次选择【文件】-【文档加密】-【密码加密】,将【打开文件密码】和【再次输入密码】删除,点击【应用】并保存更改即可解除密码
9. excel密码破解 免费
答:改一个自己能记住的密码。 按忘记密码 用帐号登陆。不能使用别的登录方法吗?
10. excel密码破解:打开密码百度经验
第一步,点击文档的左上角,如下图所示:
第二步,选择“准备”、“加密文档”,如下图所示:
第三步,输入密码,如下图所示:
第四步,再次输入密码(和上次密码一样),点击“确定”保存文档,关闭文档,就完成文档的加密了。
第五步,如果想要解密,重复第一、二、三步,将第三步的密码删除,留成空白即可。
- 相关评论
- 我要评论
-