为您找到与怎么破解表格中的保护相关的共200个结果:
在Excel中经常录入重要数据的朋友都知道,如果想要数据不被篡改只能为表格添加密码保护,但有时候却忘记了密码,这个时候就需要用到破解密码的方法了,下面是读文网小编带来的关于excel破解表格保护密码的方法,欢迎阅读!
破解表格保护步骤1:这里有份加密的EXCEL文件
破解表格保护步骤2:选择工具栏——宏——录制新宏
破解表格保护步骤3:输入宏名,如aa
破解表格保护步骤4:点“停止录制”得到一个空宏
破解表格保护步骤5:删除窗口中的所有字符,把代码工具内的代码复制进来
破解表格保护步骤6:选工具——宏——选allinternalpasswords,运行,确定两次
破解表格保护步骤7:点完2次确定后,鼠标处于等待状态,这时代码已经在后台运行处理破解中销等2-3分钟
最后完成后,直接点确定(也是2次确定) 最后再保存,,,,一定要记得保佑,回头再来看看是否需要密码
浏览量:2
下载量:0
时间:
在Excel中设置表格保护是经常有的情况,但是如果万一忘记了表格保护的密码,数据就要不回来了,这个时候就需要动用一些技术把表格保护给破解了,接下来是读文网小编为大家带来的excel破解表格保护的方法,希望对你有用。
破解保护步骤1:新建宏 录制新宏随便输入个名字如hong 点击“确定”按钮
破解保护步骤2:点击“停止录制”按钮或从菜单“停止录制”宏
破解保护步骤3:选择刚才所建的宏然后点击“编辑”按钮,会弹出代码编写窗口
破解保护步骤4:填写代码将下面的代码全部复制必替换原来的字符,填写完毕后关闭该窗口
//这里十分感谢原作者,因为经实践,确实好用。
Public Sub 工作表保护密码破解()
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
"作者:圣天"
Const HEADER As String = "工作表保护密码破解"
Const VERSION As String = DBLSPACE & "版本 Version1.1.1"
Const REPBACK As String = DBLSPACE & ""
Const ZHENGLI As String = DBLSPACE &" quduwen"
Const ALLCLEAR As String = DBLSPACE & "该工作簿中的工作表密码保护已全部解除!!" & DBLSPACE & "请记得另保存"_
& DBLSPACE & "注意:不要用在不当地方,要尊重他人的劳动成果!"
Const MSGNOPWORDS1 As String = "该文件工作表中没有加密"
Const MSGNOPWORDS2 As String = "该文件工作表中没有加密2"
Const MSGTAKETIME As String = "解密需花费一定时间,请耐心等候!" & DBLSPACE & "按确定开始破解!"
Const MSGPWORDFOUND1 As String = "密码重新组合为:"& DBLSPACE & "$$" & DBLSPACE & _
"如果该文件工作表有不同密码,将搜索下一组密码并修改清除"
Const MSGPWORDFOUND2 As String = "密码重新组合为:"& DBLSPACE & "$$" & DBLSPACE & _
"如果该文件工作表有不同密码,将搜索下一组密码并解除"
Const MSGONLYONE As String = "确保为唯一的?"
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 InWorksheets
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
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 InWorksheets
'Attempt clearance with PWord1
w1.Unprotect PWord1
Next w1
On Error GoTo 0
ShTag = False
For Each w1 InWorksheets
'Checks for all clear ShTag triggered to 1 if not.
ShTag = ShTag Or w1.ProtectContents
Next w1
If ShTag Then
For Each w1 InWorksheets
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 InWorksheets
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 & ZHENGLI,vbInformation, HEADER
End Sub
破解保护步骤5:最后就来执行刚才所建的宏工具-宏-宏点击执行等带小段时间之后就可以看到效果了
浏览量:2
下载量:0
时间:
Excel表格中的保护具体该如何才能解除呢?下面是读文网小编带来的关于excel表格解除保护的方法,希望阅读过后对你有所启发!
解除保护步骤1:视图—宏—录制新宏—输入宏名如:aa(aa是可随意输入)
解除保护步骤2:停止录制,这样得到一个空宏
解除保护步骤3:同样视图—宏—查看宏—选aa(aa为之前新建的宏)—点击编辑按钮
解除保护步骤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,点击执行,确定两次,等2分钟,再确定。密码撤销完毕。
浏览量:3
下载量:0
时间:
Excel中经常需要设置密码保护表格,设置密码具体该如何操作呢?下面是由读文网小编分享的excel表格内设置密码保护的教程,以供大家阅读和学习。
设置密码保护步骤1:打开Excel2007
设置密码保护步骤2:打开一个.xls文件(或者随意创建一个文件)
设置密码保护步骤3:找到: 工具栏——审阅——更改——保护工作表
设置密码保护步骤4:在弹出的保护工作表窗口中,只需要设置密码即可。(最好是自己不会忘记或者常用的密码),然后确定
设置密码保护步骤5:确定之后会弹出一个确定密码的窗口,然后将刚刚设置的密码再次输入,然后确定。
设置密码保护步骤6:被保护的工作表,你会发现工具栏中的很多命令都是灰色,即不可使用的意思。
设置密码保护步骤7:如果在被保护的工作表中进行填写或者修改,窗口会自动跳出警告,提示无法操作。
浏览量:4
下载量:0
时间:
Excel中经常需要使用到保护公式的技巧,公式具体该如何设置才能被保护起来呢?下面是读文网小编带来的关于excel表格保护公式的教程,希望阅读过后对你有所启发!
步骤1:全选表格;
步骤2:点击右键,设置单元格格式;,点击保护,把锁定的“√”去掉,确定;
步骤3:选中你需要保护的单元格,右键,设置单元格格式,点击保护,把锁定点上“√”,确定。
步骤4:点击审阅,选择保护工作表。然后可以根据您的需求设置密码,确定即可。如下图:
浏览量:2
下载量:0
时间:
有些Word文档,能浏览,但是不能进行全选操作,按下Ctrl+A键文档没有反应,文档不能进行编辑是因为该文档被实施了文档保护操作。那么下面就由读文网小编为大家分享下word2007破解文档保护的技巧,希望能帮助您。
步骤一:打开一个从网上下载来的Word学习资料,打开时不需要密码。仔细观察开始菜单下各菜单栏也没有呈灰色不可用状态。
步骤二:希望对全文进行字体调整,按下Ctrl+A进行全选,结果文档没有反应,这并不是键盘坏了,你可以在记事本下执行Ctrl+A操作,完全可以全选。
步骤三:进入“开始”菜单下的“编辑”菜单栏,单击“选择”按钮,发现“全选”、“选择对象”命令为灰色不可用状态。
步骤四:进入“审阅”菜单下的“保护”菜单栏,单击“保护文档”按钮,选择“限制格式和编辑”命令。
步骤五:文档右侧出现一个“限制格式和编辑”窗口,显示该文档处于受保护状态。
步骤六:单击窗口下方的“停止保护”按钮,弹出对话框要求输入密码,没有密码不能解除文档保护。
步骤七:新建一个空白文档,并关闭该文档。
步骤八:进入“插入”菜单,单击“文本”菜单栏中的“对象“按钮,选择”“文件中的文字”命令。
步骤九:在弹出的对话框中选择被保护的文档,单击“插入”按钮。
步骤十:再回到“开始”菜单下的“编辑”菜单栏,单击“选择”按钮,发现“全选”、“选择对象”命令变得可用。同时按下Ctrl+A也可对文档进行全选操作。
步骤十一:然后单击保存按钮,改名保存该文档即可
步骤十二:至此文档保护被解除。
浏览量:2
下载量:0
时间:
有时候我们编写的word文档为了它的安全性被设置了密码,难免会有忘记的时候。那么下面就由读文网小编为大家分享下word2007破解密码保护的技巧,希望能帮助您。
步骤一:首先下载安装一款软件。软件名为:Word Password Unlocker网上一搜就可以搜到,建议使用破解版或者是绿色版
步骤二:将软件安装好之后就可以开始进行破解了。
步骤三:单击左上方的“Open”打开一个设了密的word文档。
步骤四:单击“Start”开始对word文档进行密码破解。
步骤五:破解的时间会有长有短,这个需要根据密码的复杂度来看。
步骤六:我这里就是为了时间上能够更快一些,就设置了以为数字的密码。
步骤七:很快就弹出来了一个窗口,上面显示的就是这个word文档的密码。
步骤八:下面我们来验证一下密码的正确性。输入刚刚显示出来的密码·····
步骤九:重复输入一次····
步骤十:没错,这个密码是正确的,word文档打开了。
浏览量:3
下载量:0
时间:
Excel中经常需要使用到设置区域保护的功能,部分区域具体该如何设置保护呢?下面是读文网小编带来的关于excel表格设置区域保护的教程,希望阅读过后对你有所启发!
设置区域保护步骤1:在以下表格中,由于c列中含有公式,为防止误操作导致出现错误,需要将c列锁定并保护,在需要修改公式时,要求输入正确密码才可进行下一步操作。
设置区域保护步骤2:按ctrl+A组合键全选工作表,ctrl+1打开“单元格格式”对话框,切换到“保护”标签,取消“锁定”的勾选。
设置区域保护步骤3:选中需要保护的区域(本例为c列),ctrl+1打开“单元格格式”对话框,切换到“保护”标签,勾选“锁定”。
设置区域保护步骤4:菜单栏“工具”→“保护”→“允许用户编辑区域”,打开“允许用户编辑区域”对话框,单击“新建”按钮,打开“新区域”对话框。在“引用单元格”框中输入单元格地址(也可以单击后面的按钮,通过鼠标选取区域)。
设置区域保护步骤5:在“新区域”对话框输入密码,确认密码,返回“允许用户编辑区域”对话框,单击“保护工作表”按钮,打开“保护工作表”对话框,勾选其中的“选定锁定单元格”和“选定未锁定的单元格”,确定即可。
设置区域保护步骤6:完成以上设置后,当用户试图对保护的区域进行编辑操作时,会弹出“取消锁定区域”对话框,输入正确的密码方可进行下一步操作。
浏览量:3
下载量:0
时间:
Excel中经常需要使用到保护功能进行保护数据,但需要取消保护的时候具体该如何操作呢?接下来是读文网小编为大家带来的excel表格取消保护的方法,供大家参考。
取消保护步骤1:视图—宏—录制新宏—输入宏名如:aa(aa是可随意输入)
取消保护步骤2:停止录制,这样得到一个空宏
取消保护步骤3:同样视图—宏—查看宏—选aa(aa为之前新建的宏)—点击编辑按钮
取消保护步骤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,点击执行,确定两次,等2分钟,再确定。密码撤销完毕。
浏览量:3
下载量:0
时间:
Excel中加了密码的表格需要进行解密操作,解密具体该如何进行操作呢?下面是由读文网小编分享的excel表格取消密码保护的教程,以供大家阅读和学习。
取消密码保护步骤1:双击打开需要去掉密码的Excel表格。
取消密码保护步骤2:输入密码,打开Excel表格。
取消密码保护步骤3:点击图标,选择准备,点击加密文件
取消密码保护步骤4:删掉密码信息,然后点击确定。
取消密码保护步骤5:点击保存,保存好后。关闭再打开就不需要再输入密码。
浏览量:2
下载量:0
时间:
Excel中有密码保护的文档具体该如何进行操作才能达到取消密码保护的效果呢?接下来是读文网小编为大家带来的excel表格取消密码保护教程,供大家参考。
步骤1:在excel里点击文件,另存为命令。
步骤2:为文件指定保存地址。
步骤3:指定好保存地址和文件名后,点击工具常规选项。
步骤4:将打开权限密码或者修改权限密码删除,确定,然后保存即可。
浏览量:2
下载量:0
时间:
Excel中经常需要使用到公式进行计算数据,公式的保护具体该如何设置呢?下面是读文网小编带来的关于excel表格设置公式保护的教程,希望阅读过后对你有所启发!
设置公式保护步骤1:首先,看一下原始数据。下表中棕色区域的数据是需要其他人填写的,紫色区域,包括抬头和下面的合计行公式都不允许修改。
设置公式保护步骤2:查看一下紫色需要保护区域在【设置单元格格式】对话框中的【保护】选项卡下【锁定】属性是否已勾选,默认工作表都是勾选的。
设置公式保护步骤3:如果要保护区域的【锁定】属性已经被勾选,那么选定允许他人编辑的棕色区域,鼠标右键,选择【设置单元格格式】,将【保护】选项卡下的【锁定】属性去除。
设置公式保护步骤4:注意:
工作表保护状态下,只有单元格的【锁定】属性选中保护才起作用。
设置公式保护步骤5:点击【审阅】选项卡下的【保护工作表】按钮。
设置公式保护步骤6:输入适当的密码,其他默认设置不动,然后点击【确定】按钮并确认密码。
设置公式保护步骤7:注意:
这里列表选择的是“允许”他人执行的操作,如果勾选就是允许他人执行该操作。例如默认的选项允许他人选中保护的单元格,允许他人选中未保护的单元格。
设置公式保护步骤8:上述操作完毕后,再双击公式所在单元格,将弹出已被保护的对话框,不能修改。
设置公式保护步骤9:根据上面的操作方法,选中公式所在的单元格在编辑栏还是会出现公式,如果想连公式也隐藏起来,将【保护】选项卡下的【隐藏】也勾选即可。
设置公式保护步骤10:选择【隐藏】以后,在工作表保护状态公式将不可见。
设置公式保护步骤11:如果压根不想让对方选中公式所在的被保护单元格,可以在保护时将【选定锁定单元格】的复选框去掉,这样就无法选中被保护的公式所在单元格了。
浏览量:3
下载量:0
时间:
有时候我们需要对word文档进行加密,但如果时间长了可能会忘记密码。word文档密码忘记了怎么办?读文网小编这就给你支招,方法仅供找回自己忘记的文档密码。
步骤一:word文档本身有加密功能,加密之后的文档如果输入密码错误是打不开的。该方法只对2007版本以下有用。
步骤二:打开OPRemovba_chs,软件自己可以在百度搜索找到。打开后在箭头位置,打开选择自己要找回密码的word文档。
步骤三:选择之后,移除密码的按钮会变成可操作状态,点击。
步骤四:等待解密,通常一分钟内就可以成功,这个时间视乎你电脑的运行速度和你文档密码的复杂程度。
步骤五:解密成功后会提示已经成功,这时表示你的文档就找回来了。
步骤六:在你防止文档的文件夹里面,会自动生成一个解密之后的文档。
看了“怎么破解word的密码保护”此文
浏览量:4
下载量:0
时间:
我们日常办公时,几乎每天都会接触到WORD文件,有时会遇到已经加密WORD文档或者自己加密而忘了密码的情况。那么下面就由读文网小编给大家分享下技巧,希望能帮助到您。
步骤一:打开快解密码读取工具(FastReader),切换到OFFICE密码选项卡
步骤二:“OFFICE文档格式”选择“WORD”
步骤三:打开所需要破解的WORD文档
步骤四:点击“快速破解”,会看到软件已经开始破解文档密码
步骤五:大约3分钟左右,我们就会看到破解成功的提示,并得到WORD的密码
看了“怎么破解word密码保护”此文
浏览量:4
下载量:0
时间:
Excel中经常需要为表格设置一些保护措施保护数据,表格数据具体该如何设置保护呢?下面是读文网小编带来的关于excel表格设置保护措施的方法,希望阅读过后对你有所启发!
设置保护步骤1:首先我们打开我们要进行设置工作表保护的工作表,如图所示:
设置保护步骤2:在上面的工具栏中找到工具菜单按钮,点击工具菜单按钮,如图所示:
设置保护步骤3:在工具菜单中找到保护功能,选择它,如图所示:
设置保护步骤4:在保护功能中有一个功能是保护工作表,找到它,如图所示:
设置保护步骤5:我们点击工作表保护功能,可以看到弹出了一个对话框,首先我们可以设置保护密码,也可以不设置,如图所示:
设置保护步骤6:在设置密码的下面我们可以看到很多的功能,系统默认勾选了前两个,如图所示:
设置保护步骤7:勾选上我们要进行限制的功能,小编勾选了如图的一些功能,点击确定;
设置保护步骤8:回到工作表中我们试一试刚刚进行限制的功能,如:删除行,如图所示,现在这个功能变成灰色并点击不了了。
浏览量:2
下载量:0
时间:
Excel中经常需要使用到为表格设置保护的技巧,为表格设置保护具体该如何进行操作呢?下面是读文网小编带来的关于excel表格设置密码保护的教程,希望阅读过后对你有所启发!
步骤1:在菜单栏找到工具,点击打开,然后找到保护,保护后面有4个选项,点击保护工作表;
步骤2:点击保护工作表后,弹出的窗口中下面的选项全部不用选,然后在输入密码栏输入密码,例如456,点击确定;
步骤3:在弹出窗口中重新输入密码并点击确定;
步骤4:现在在工作表内点击任何一个位置试图更改,就会出现下图所示的提示,不能够更改工作表了。
浏览量:3
下载量:0
时间:
从数据库到出.xls格式的Excel表格后,有时打开表格有时会有红色的提示表格处于保护状态,在这个状态下我们是没有办法对表格进行任何修改的,为了修改表格的内容,需要先解除表格的保护,使Excel退出“受保护的视图”接下来是读文网小编为大家带来的excel表格退出受保护视图的方法,供大家参考。
1、用数据有效性定义数据长度。
用鼠标选定你要输入的数据范围,点"数据"->"有效性"->"设置","有效性条件"设成"允许""文本长度""等于""5"(具体条件可根据你的需要改变)。
还可以定义一些提示信息、出错警告信息和是否打开中文输入法等,定义好后点"确定"。
2、用条件格式避免重复。
选定A列,点"格式"->"条件格式",将条件设成“公式=COUNTIF($A:$A,$A1)>1”,点"格式"->"字体"->"颜色",选定红色后点两次"确定"。
这样设定好后你输入数据如果长度不对会有提示,如果数据重复字体将会变成红色。
浏览量:78
下载量:0
时间:
如果我们希望做好的Excel表格中的数据不被外人修改,或者不希望别人对Excel工作簿进行新增工作表的操作,如何利用Excel本身的功能实现上述效果呢?下面是由读文网小编分享的excel表格数据保护的方法,以供大家阅读和学习。
数据保护步骤1:打开Microsoft Office Excel 2013,点击左上角的“文件”菜单;
数据保护步骤2:在左侧弹出的的菜单中点击“打开”菜单,选择需要进行保护数据操作的Excel文件;
数据保护步骤3:如上图所示的示例文件,现在里面的所有信息都可以随便更改;
数据保护步骤4:比如需要保护Sheet1中的数据不被修改,则在底部Sheet1名称上点击鼠标右键,在弹出的快捷菜单中点击“保护工作表”菜单,则弹出保护工作表窗口,输入保护工作表的密码(也是今后取消工作表保护需要输入的密码),也就是如果别人想要修改工作表必须要知道这个密码才可以,另外设置工作表保护后其他用户对该工作表有哪些权限,最后点击“确定”按钮完成工作表保护;
数据保护步骤5:再次尝试修改Sheet1中的数据,会弹出提示信息“试图更改的单元格或图表在受保护的工作表中。”如果需要更改工作表数据,则必须撤销工作表保护;
数据保护步骤6:点击顶部菜单栏中的“审阅”,然后点击下方工具栏上的“撤销工作表保护”,会弹出撤销工作表保护窗口,在文本框中输入步骤4中设置的密码即可取消保护,再次回到表格会发现里面的数据又可以任意修改了;
数据保护步骤7:如果需要对整个工作簿进行保护,不允许用户新增工作表,则点击顶部菜单栏中的“审阅”,然后点击下方工具栏上的“保护工作簿”,同样输入密码,点击“确定”;
数据保护步骤8:点击下方的+号图标,你会发现无法添加新的工作表了;
浏览量:6
下载量:0
时间: