win10 excel有密码保护怎么强制打开_win10 excel有密码保护如何解除
在使用win10系统进行办公过程中,用户常常会使用excel工具进行一些表格的制作,以此来方便自己工作中的需要,但是近日有些用户在使用win10系统打开excel会有密码保护的情况出现,许多用户在不知道密码的前提下也都不知道如何打开,那么win10 excel有密码保护怎么强制打开呢?这里就来教大家win10 excel有密码保护解除操作步骤。
推荐下载:win10专业版下载64位
具体方法:
1、打开加密的 Excel,然后用快捷命令Alt+F8 打开宏命令 窗口,如图所示:
2、在宏名一栏中 输入宏的名字 随意健入,如图:
3、输入完宏名后 创建的按钮就亮了 点击创建 我们就看到了新界面,如图:
4、将编辑框内的Sub knife( )End Sub删除 将下列代码 复制 上去:
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、关闭【宏窗口】回到Excel,按下ALT+F8组合键重新打开【宏命令窗口】,如图所示:
6、你会发现 你前面输入的宏名 变成了AllInternalPasswords 点击【执行】 会出现全英文的提示框,一直点击【确定】即可;
7、一直点 确定 直到不在 出现对话框为止。
等一段之系统会 再次跳出对话框 再点确定 保护就破解成功,重新打开Excel表格即无需输入密码!
以上就是win10 excel有密码保护解除操作步骤了,对于excel有密码保护想要打开还有不懂得用户就可以根据小编的方法来操作,希望能够帮助到大家。
- 系统教程栏目
- win10系统教程排行
- 1 office2016专业增强版永久激活密钥最新2022
- 2 win10系统下网上邻居看不到其他共享电脑的4个解决方法
- 3 2020最新windows10激活密钥永久激活码神KEY大全(100%有效免费激活)
- 4 windows10怎么激活_激活win10系统的方法
- 5 win10怎么调节电脑屏幕亮度_win10调整电脑屏幕亮度的方法
- 6 office2016产品密钥永久激活码 office2016永久激活密钥最新
- 7 Win10无法查看局域网共享计算机及打印机的4种解决方法
- 8 Win10系统下提示VMware与Device/Credential Guard不兼容如何解决
- 9 电脑键盘各个按键功能和作用介绍 电脑键盘各个按键功能高清图片图解
- 10 2020最新最全的Win10专业版密钥神key_windows10专业版激活密钥永久激活码
- 大家都在使用
- win10系统推荐
- 番茄花园 ghost win10 32位 优化装机版系统 v2022.12
- 深度技术 ghost win10 64位 专业优化版系统 v2022.12
- 绿茶系统 ghost win10 32位 中文稳定版系统 v2022.12
- 番茄花园 ghost win10 64位 专业官方版系统 v2022.12
- 大地系统 ghost win10 64位 大神精简版系统 v2022.12
- 萝卜家园 ghost win10 64位 中文专业版系统 v2022.12
- 番茄花园 ghost win10 64位 精简安装版系统 v2022.12
- 番茄花园 ghost win10 32位 官方精简版系统 v2022.12
- 萝卜家园 ghost win10 64位 中文正版系统 v2022.12
- 系统之家 ghost win10 32位 专业最新版系统 v2022.12
- 最新教程
- 1 显示距离的免费交友软件有哪些?能看到附近人距离的交友软件app下载
- 2 win10系统怎么把核显切换成amd独立显卡
- 3 Win10系统怎么设置点击任务栏的资源管理器默认打开“这台电脑”
- 4 win10系统下怎么将拼音输入法更改为默认英文模式【图文】
- 5 Win10系统下设置自动同步系统网络时间的方法【图文】
- 6 Win10 9926预览版系统提示“应用商店在你的国家/地区无法使用”如何解决
- 7 Win10系统更改天气应用中显示天气城市的方法【图】
- 8 Win10 10056预览版系统下如何设置不让开始菜单透明化
- 9 Win10安全性能大大提升
- 10 Windows10系统如何更改PIN登录密码