表格内容只读不能修改及破解.doc

excel表格内容只读不能修改及破解
只读不能修改方法:
在EXCEL里，选择工具——选项——安全性——分别设立打开权限密码和修改权限密码，2个密码要不同样，然后拟定，会弹出对话框让你重新输入密 码，第一个框输入你设立打开权限密码，第二个框输入你修改权限密码，然后保存文献。然后你把打开权限密码给别人就OK了，别人打开就是只读，不能修改。要 修改需要你修改权限密码。 

补充一下：假如不想只读打开需要密码，可以不设立打开权限密码，只设立修改权限密码。
破解Excel保护方法
Excel对数据有很强的保护功能，可以对整个或部分数据隐藏、严禁复制和修改等，但有时候，由于忘掉了密码，或者记不起以前自己到底做了哪些改动，这种保护反而会为难自己。针对这种情况，我总结了几种解除保护的方法，供大家参考，并希望可以以此抛砖引玉。
一、解除单元格的保护
1．取消隐藏的行或列 
      被隐藏的行或列有一个明显的标志，那就是在行标题栏或列标题栏上有一条粗的黑线。取消隐藏的行或列的方法有两种，一种是直接拖动隐藏处的行或列标题使之变 宽，也可以选中包含隐藏区域的行或列，通过“格式”菜单中的行列项目输入非0数值调整行高或列宽，使数据有足够的空间显示出来；另一种方法是选中包含隐藏 内容的行或列区域，再通过“格式”菜单行列选项中的“取消隐藏”命令来恢复所有行列区域。
2．取消隐藏单元格或区域中的数据
      为了不让别人直接看到单元格的内容，一种简朴的方法就是把数据颜色设立成与背景色相同，这时我们只要拖选整个工作表即可让数据原形毕露；假如用图片、矩形 框之类的非字符内容将重要数据遮盖，需要先用拖选方式找出工作表中的图片位置，再将其移开，激活被遮住的单元格，一般在公式编辑栏中就会显示其内容。
     若在单元格格式中使用了三个分号或空格之类的自定义格式，一般只要选中此单元格，在公式编辑栏中即可显示其内容，要想取消这种隐藏，可重新设立此单元格格式，在“数字”选项卡中选择“常规”即可。
       假如选中怀疑有数据的单元格后并没有在公式编辑栏中显示数据，不一定它就真的没有数据，我们只要看一下单元格的格式能否设立，若不能的话说明工作表被保 护，假如不用密码可以取消工作表保护的话，再在单元格格式设立中先查看数据格式是否为自定义，然后查看“保护”选项卡，看看是否已勾选了“隐藏”项，将这 些都取消就可以知道单元格是否真的没有内容。当然，假如在撤消工作表保护时需要密码的话，我们将无可奈何，除非用户设立的密码很简朴，那我就告诉你一个秘 密，当密码的形式是“*123*”或“*abc*”时，我们可以分别用“*333*”或“*ccc*”来破解，星号表达任意字符，到底是什么只有靠猜了， 这种方法对工作表和工作簿保护的密码也适应。
3．取消单元格数据的只读属性
       有时单元格中的数据虽然可见，但是我们既不能修改，也不能在当前工作表中复制，对于这种保护措施，取消的方法跟上面的第2点基本相同，只要取消单元格格式 设立对话框中“保护”选项卡中的“锁定”一项即可。当然还需要通过密码取消工作表的保护才行。 　　假如我们无法通过密码取消怎么办？你可以将其复制粘贴到其他工作表中，再在新的工作表中进行修改。
二、解除工作表的保护
       查看是否有被隐藏的工作表，若菜单中有“格式→工作表→取消隐藏”项，则可通过此项取消隐藏的工作表。
       假如在菜单中也没有有效的“取消隐藏”项，仍然也许有被隐藏的工作表，这时我们可以任选一工作表右击，在弹出菜单中选择“查看代码”，然后在左窗格中的 “Microsoft Excel 对象”列表中选择被隐藏的工作表，将其“Visible”属性值取“-1”退出即可，如图所示。
       假如工作表被密码保护，则可复制当前表所有内容到另一张未保护的工作表中编辑。
      Windows8官方下载  
三、VBA宏代码破解法：
       第一步：打开该文献，先解除默认的“宏禁用”状态，方法是点击工具栏下的“选项”状态按钮，打开“Microsoft Office安全选项”窗口，选择其中的“启用此内容”，“拟定”退出(图2)；

　　再切换到“视图”选项卡，点击“宏”→“录制宏”，出现“录制新宏”窗口，在“宏名”定义一个名称为：PasswordBreaker(图3)，点击“拟定”退出；

　　第二步：再点击“宏”→“查看宏”，选择“宏名”下的“PasswordBreaker”并点击“编辑”，打开“Microsoft Visual Basic”编辑器，用如下内容替换右侧窗口中的所有代码：
　　Sub PasswordBreaker()
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
On Error Resume Next
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
ActiveSheet.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 ActiveSheet.ProtectContents = False Then
MsgBox "One usable password is " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
ActiveWorkbook.Sheets(1).Select
Range("a1").FormulaR1C1 = Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
　　第三步：再点击“宏”→“查看宏”，选择“宏名”下的“PasswordBreaker”并点击“执行”，密码就现形了(图4)。

　　第四步：切换“审阅”选项卡，点击“撤消工作表保护”，然后输入密码即可解除锁定。
        win7旗舰版系统下载

        另一个能解除Excel工作表保护的VBA脚本

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-2023 (Version 1.1) 
' Modified 2023-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 2023-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 
----------------------------------- 
把上面的代码保存为一个宏，运营，点两次拟定，等到它运营结束，工作表密密码就解除了。

      ★假如出现提醒“工程不可查看”不能录制新宏，可以先使用“VBA工程加锁解锁器”来解除其“工程不可查看”后再用上面的方法找出保护密码。

       当然了，“VBA工程加锁解锁器”顾名思义，这是一个既可以解除Excel保护密码，又可认为Excel加保护密码的软件，实为一个优秀的Excel辅助工具。

      下载地址：
四、解除工作簿的保护
      假如工作簿被密码保护不能打开，我们可以也使用一些专用的破解软件进行破解
       Intelore Excel Password Recovery V1.0c 
    雨木林风系统下载  
       Passware Kit V7.1.1411 汉化版.rar 
      下载地址
      假如只能以只读方式打开，我们打开后另存为一个不设密码的副本，即可解除只读限制。
     有时虽然工作簿在打开时没有任何密码，但假如我们不能对工作表进行复制、移动和插入等操作，那是保护了工作簿，可以通过依次选择“工具→保护→撤消工作簿 保护”菜单命令来解除，但假如有密码的话，可以猜出来更好，否则只有新建一工作簿，将被保护的工作表内容用拖选的方法复制到新的工作簿中进行编辑。
严禁修改excel指定单元格数据数据的设立方法
· 浏览：10235
· |
· 更新：2023-04-09 11:56
· |
· 标签： excel 
· 1
· 2
· 3
分步阅读
对于某个Excel工作簿中的数据，假如我们仅仅是希望别人查看而不希望其随意地修改的话，为该工作簿添加一个密码无疑是个很简朴实用的方法。在实际应用中，我们在对Excel工作簿中某些指定单元格中的数据加以保护的同时，却还得允许别人可以修改其他单元格中的数据。那么，这又该如何操作呢？接下来，笔者就以某Excel工作簿为例(只保护C列和D列单元格中的数据)，给大家介绍一下如何来实现。
环节/方法
1. 第一步：打开工作簿并切换到“Sheet1”工作表下;接着选中该工作表中的所有单元格并按下“Ctrl+1”快捷键，打开“自定义序列”对话框的“保护”选项卡(图1);最后取消“锁定”复选框并单击“拟定”按钮。
这一步的目的重要是先将所有的单元格都取消锁定。下一步再对指定单元格做锁定设立。

2. 第二步：“薪酬表.xlsx”工作簿的“Sheet1”工作表中，先选中需要进行保护的C列单元格和D列单元格(也可以是其他连续或非连续的多个单元格);接着按下“Ctrl+1”快捷键，打开“自定义序列”的“保护”选项卡，同时勾选图1，A、B处所示的“锁定”和“隐藏”复选框并单击“拟定”按钮。
然后在Excel2023主界面中单击“审阅”选项卡中的“允许用户编辑区域”按钮，打开一个与之同名的对话框并单击其中的“新建”按钮，以弹出“新区域”对话框。

　　再在“新区域”对话框“区域密码”下边的文本框内输入密码并单击“拟定”按钮。
最后在新弹出的“确认密码”对话框中重新输入一次密码就可以了。

3. 3
完毕上述操作后，单击Excel2023主界面“开始”选项卡中的“格式”按钮，在弹出的下拉菜单中选择“保护工作表”以打开“保护工作表”对话框，然后按照提醒在该对话框“取消工作表保护时使用的密码”下边的文本框内输入新设定的密码(也可与第一次为保护某些单元格设立的密码相同)并单击“拟定”按钮即可。
这样一来，我们就完毕了为“薪酬表.xlsx”工作簿“Sheet1”工作表中的C列和D列单元格添加只读密码的所有操作。当然，假如对“Sheet1”工作表中的C列和D列单元格以外其他任意一个单元格执行编辑操作时，则无须输入密码。