Excel2010表格中进行内容只读不能修改的操作方法
如何使excel表格内容只读不能修改及破解，具体该怎么去进行操作的呢?今天，我就教大家在 Excel 2010表格中进行内容只读不能修改的操作技巧。
Excel2010表格中进行内容只读不能修改的操作步骤只读不能修改 方法 :
在EXCEL里，选择工具——选项——安全性——分别设置打开权限密码和修改权限密码，2个密码要不一样，然后确定，会弹出对话框让你重新输入密 码，第一个框输入你设置打开权限密码，第二个框输入你修改权限密码，然后保存文件。然后你把打开权限密码给别人就OK了，别人打开就是只读，不能修改。要 修改需要你修改权限密码。
补充一下：如果不想只读打开需要密码，可以不设置打开权限密码，只设置修改权限密码。
破解Excel保护方法
Excel对数据有很强的保护功能，可以对整个或部分数据隐藏、禁止复制和修改等，但有时候，由于忘记了密码，或者记不起以前自己到底做了哪些改动，这种保护反而会为难自己。针对这种情况，我 总结 了几种解除保护的方法，供大家参考，并希望能够以此抛砖引玉。
一、解除单元格的保护
1.取消隐藏的行或列
被隐藏的行或列有一个明显的标志，那就是在行标题栏或列标题栏上有一条粗的黑线。取消隐藏的行或列的方法有两种，一种是直接拖动隐藏处的行或列标题使之变 宽，也可以选中包含隐藏区域的行或列，通过“格式”菜单中的行列项目输入非0数值调整行高或列宽，使数据有足够的空间显示出来;另一种方法是选中包含隐藏 内容的行或列区域，再通过“格式”菜单行列选项中的“取消隐藏”命令来恢复全部行列区域。
2.取消隐藏单元格或区域中的数据
为了不让他人直接看到单元格的内容，一种简单的方法就是把数据颜色设置成与背景色相同，这时我们只要拖选整个工作表即可让数据原形毕露;如果用图片、矩形 框之类的非字符内容将重要数据遮盖，需要先用拖选方式找出工作表中的图片位置，再将其移开，激活被遮住的单元格，一般在公式编辑栏中就会显示其内容。
若在单元格格式中使用了三个分号或空格之类的自定义格式，一般只要选中此单元格，在公式编辑栏中即可显示其内容，要想取消这种隐藏，可重新设置此单元格格式，在“数字”选项卡中选择“常规”即可。
如果选中怀疑有数据的单元格后并没有在公式编辑栏中显示数据，不一定它就真的没有数据，我们只要看一下单元格的格式能否设置，若不能的话说明工作表被保 护，如果不用密码可以取消工作表保护的话，再在单元格格式设置中先查看数据格式是否为自定义，然后查看“保护”选项卡，看看是否已勾选了“隐藏”项，将这 些都取消就可以知道单元格是否真的没有内容。当然，如果在撤消工作表保护时需要密码的话，我们将无可奈何，除非用户设置的密码很简单，那我就告诉你一个秘 密，当密码的形式是“*123*”或“*abc*”时，我们可以分别用“*333*”或“*ccc*”来破解，星号表示任意字符，到底是什么只有靠猜了， 这种方法对工作表和工作簿保护的密码也适应。
3.取消单元格数据的只读属性
有时单元格中的数据虽然可见，但是我们既不能修改，也不能在当前工作表中复制，对于这种保护 措施 ，取消的方法跟上面的第2点基本相同，只要取消单元格格式 设置对话框中“保护”选项卡中的“锁定”一项即可。当然还需要通过密码取消工作表的保护才行。 如果我们无法通过密码取消怎么办?你可以将其复制粘贴到其他工作表中，再在新的工作表中进行修改。
二、解除工作表的保护
查看是否有被隐藏的工作表，若菜单中有“格式→工作表→取消隐藏”项，则可通过此项取消隐藏的工作表。
如果在菜单中也没有有效的“取消隐藏”项，仍然可能有被隐藏的工作表，这时我们可以任选一工作表右击，在弹出菜单中选择“查看代码”，然后在左窗格中的 “Microsoft Excel 对象”列表中选择被隐藏的工作表，将其“Visible”属性值取“-1”退出即可，如图所示。
如果工作表被密码保护，则可复制当前表全部内容到另一张未保护的工作表中编辑。
三、VBA宏代码破解法：
第一步：打开该文件，先解除默认的“宏禁用”状态，方法是点击工具栏下的“选项”状态按钮，打开“Microsoft Office安全选项”窗口，选择其中的“启用此内容”，“确定”退出(图2);
Excel2010表格中进行内容只读不能修改的操作步骤图1
再切换到“视图”选项卡，点击“宏”→“录制宏”，出现“录制新宏”窗口，在“宏名”定义一个名称为：PasswordBreaker(图3)，点击“确定”退出;
Excel2010表格中进行内容只读不能修改的操作步骤图2
第二步：再点击“宏”→“查看宏”，选择“宏名”下的“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)。
Excel2010表格中进行内容只读不能修改的操作步骤图3
第四步：切换“审阅”选项卡，点击“撤消工作表保护”，然后输入密码即可解除锁定。
另一个能解除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-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
-----------------------------------
把上面的代码保存为一个宏，运行，点两次确定，等到它运行结束，工作表密密码就解除了。
★如果出现提示“工程不可查看”不能录制新宏，可以先使用“VBA工程加锁解锁器”来解除其“工程不可查看”后再用上面的方法找出保护密码。
当然了，“VBA工程加锁解锁器”顾名思义，这是一个既可以解除Excel保护密码，又可以为Excel加保护密码的软件，实为一个优秀的Excel辅助工具。
下载地址：http://pickup.mofile.com/9306322777229726
四、解除工作簿的保护
如果工作簿被密码保护不能打开，我们可以也使用一些专用的破解软件进行破解
Intelore Excel Password Recovery V1.0c
下载地址：http://pickup.mofile.com/6508444219536677
Passware Kit V7.1.1411 汉化版.rar
下载地址 http://pickup.mofile.com/1349573336951801
如果只能以只读方式打开，我们打开后另存为一个不设密码的副本，即可解除只读限制。
有时虽然工作簿在打开时没有任何密码，但如果我们不能对工作表进行复制、移动和插入等操作，那是保护了工作簿，可以通过依次选择“工具→保护→撤消工作簿 保护”菜单命令来解除，但如果有密码的话，能够猜出来更好，否则只有新建一工作簿，将被保护的工作表内容用拖选的方法复制到新的工作簿中进行编辑。
相信有了上面这些方法，Excel中应该没有多少东西能够瞒过你的火眼金睛，也没有多少内容让你不能左右了。
Excel2010表格中进行内容只读不能修改的操作相关 文章 ：
1. Excel2010中设置只读修改权限的操作方法
2. Excel2010中进行设置取消只读模式的操作方法
3. Excel2010中进行表格保护不能编辑的操作方法
4. Excel2010中取消只读方式的操作方法
5. Excel2007中设置只读不让他人进行修改的操作技巧
6. excel2010设置只读权限的方法
excel2010表格样式浅色底纹如何设置
excel浅色底纹设置步骤如下：2007：选中要套用格式的表格区域;套用表格找到第10套;如图：2010 表样式浅色10.关于excel2010样式的相关 文章 推荐：1. excel2010表格表样式如何设置 2. excel2010表格样式如何设置 3. excel2010怎么修改图例边框样式和颜色 ...
怎么设置2010excel 表格护眼模式设置?
最简单的护眼就是电脑设置成护眼颜色,以后不管是excel或是word或是ppt都是淡绿色背景了或在excel项目之后点右边一点（颜色）那个选项，把小箭头打开，点下面的（其他）然后修改色调、饱和度、亮度；（色调85饱和度123亮度205），然后添加到自定义颜色，点左边的确定，然后应用，就ok了 希望能够帮到你!
xcel表格怎么拼写检查
1、在电脑桌面里找到XCEL表格，选中此XCEL表格，右键单击选择打开。2、将文件表格打开了之后，在表格上方的工具栏里面找到审阅，并点击审阅这个工具选项。3、点击了审阅工具选项之后，在审阅的目录下面可以看到有一下拼写检查选项，点击它即可。
excel中为什么首行会出现列1、列2、列3的字样,而且都删不掉?
excel中首行出现列1、列2、列3的字样，而且删不掉，是因为套用了表格格式。以下举例详细说明如何删除列1、列2、列3的字样，基本工具：电脑、Excel2010。1、打开Excel，找到列1、列2、列3的字样的位置。2、鼠标左键点击列1、列2、列3的字样所在的行。3、Excel上方调出“表格工具”选项，在“表格...
excel表格怎么设置页眉页脚 xcel表格如何设置页眉页脚
1、打开一个Excel表。在“页面布局”中，找到红色线框标注的“页面设置”按钮。2、点开“页面设置”按钮，弹出如下所示对话框。把对话框切换到“页眉\/页脚”选项，这时页眉和页脚都还没有设置内容。3、点开“页眉”设置框后面的黑色小三角，我们可以选择页眉处要显示的内容，也可以单击“自定义页眉”...
您好,(xcel2010打开vba后工程窗口只有工作簿没有工作表,代码窗口是灰色...
是那因为代码是加密的。
xcel表格打印出来字很小怎么办 如何放大打印
1、首先打开需要打印的文件，在工具栏里面点击页面布局。2、进入页面布局菜单后，找到页面设置。一般页面设置选项都在菜单栏下面，仔细找就可以。3、进入页面设置窗口中，找到纸张大小选项。点击后面的下拉按钮。4、在弹出的下拉菜单中选择需要的纸张大小。如果想要比较大的文字，就尽量选择打印机能承受的最...
如何在excel表格中查看网页数据
如何在excel表格中查看网页数据？使用xcel表查看网页数据 1.首先打开excel表格并选择数据菜单栏。2.在数据菜单栏下，最左边是获取外部数据选项卡。3.选择“从网站”外部数据源。4.点击网站，弹出“新文本查询”对话框。填写网页的地址栏，然后单击“前往”按钮打开相应的网站。5.在“新建网页查询”对话...
xcel仪表板创建Excel数据仪表盘报表百度经验excel学习网
这些部分是：1.数据–外部或手动输入的数据。2.处理-大多数计算都在此进行。3.演示文稿–观众看到的内容。4.控制-作者控制报告日期和其他设置的位置。对于大多数报告，将这些部分放在单独的工作表中很重要。这样做使您的报表更易于创建，更新，错误检查，修改和自动化。克里斯的工作簿就是这样做的。除了...
表格乘法怎么操作
第一步，打开Excel表格，选中要输入乘法公式的单元格，然后在工具栏上方找到【公式】选项，并点击。第二步，在公式标签下，找到【插入函数】命令，并点击。第三步，然后在弹出的插入函数提示框中，将函数的【或选择类别】选项，选择为【数学与三角函数】类别，然后再选中【PRODUCT】函数，再点击【确定】...
宜肩托马： 你找下公式审核菜单,03在工具菜单下面.
临夏市13940898191： 如何做到只能在excel表格内允许输入内容,禁止修改格式? - ？
宜肩托马： 看了楼上的与楼主的对答,可知楼主走了一条比较复杂的路. 楼主的需求,应该是: 整个被保护的工作表,不允许修改格式,但可以对指定的单元格或区域的内容进行编辑. 我的操作方法: 1、选定允许修改内容的单元格或区域,按鼠标右键-...
临夏市13940898191： 如何让 Excel 2010 的单元格只能输入满足特定条件的数据 - ？
宜肩托马： 关键看这个特定数据时什么类型的,什么范围了 一种数据有效性中可以设置,但是不能满足所有的需求 另一种就是启用宏,使用vba表格事件进行控制,输入不符合要求的字符,会提示修改
临夏市13940898191： 怎么将excel 两列数据合并成单独的内容 - ？
宜肩托马： 在excel表格制作中有时需要把二列进行合并显示在新的一列中,具体操作如下(以excel2010为例): 1、打开excel2010文档,假设需要合并D、E二列到F列,点击F列中的一个单元格F4,按“=D4&E4”并按回车键,如图: 2、这时F4就把D4、E4二个单元格内容进行了合并,接下来鼠标称到F4右下角,出现+标志按住向下拖动,如图: 3、这样就会自动把D、E二列合并到F列,如图:
临夏市13940898191： excel中如何只显示有内容的那部分.而把其他的全部隐藏或者变成空白呢? - ？
宜肩托马： 不明白具体是什么情况,这有很多种情况1,不显示零值和网格线工具-选项-试图-窗口选项2,不打印错误值页面设置-打印-工作表,将错误值打印为“...
临夏市13940898191： excel的一个单元格中有多行内容,如果实现平时只显示第一行,当鼠标移到该单元格时才自动显示全部内容 - ？
宜肩托马： 这个有难度,普通方法似乎做不到,不过可以曲线一哈子,就是插入批注.当鼠标移动上去的时候,批注会自动显示出来,单元格里的内容倒是随便,基本不用设置.你可以试试!希望可以帮到你
临夏市13940898191： excel单元格字体行距怎么调整 - ？
宜肩托马： 首先说明,excel中不能像word那样通过格式工具,对一个单元格多行文字的行间距及字间距进行调整,不过可以通过以下三种办法间接达到: 1、调整行间距:强行换行法,即双击这个单元格,在...
临夏市13940898191： 2010年的excel表格 表格中的内容可以全部显示 打印却只打印部分 - ？
宜肩托马： 1、单元格宽度不够,接宽单元格宽度就可以了,或开始——单无格——格式——列宽,把值改大就可以了.2、如果改后内容显示错误,可以在输入之前先将单元格格式改为文本,更换方式(右击后迁设置单元格格式——常规——文本
