《excl隐藏单元格内容及设置为只读》由会员分享，可在线阅读，更多相关《excl隐藏单元格内容及设置为只读（10页珍藏版）》请在金锄头文库上搜索。
1、隐藏单元格内容 选中要隐藏内容的单元格区域，右击选择“设置单元格格式”，在“数值”选项卡的“分类”列表中选择“自定义”，在“类型”输入框中输入三个半角的分号“;”（如图1），再切换到“保护”选项卡下，单击选中“隐藏”复选项，确定后单元格内容就被隐藏了。 再单击菜单“保护/保护工作表”，设置密码保护工作表，即可彻底隐藏单元格内容。要取消隐藏得先单击菜单“保护/撤消保护工作表”。然后再从“设置单元格格式”中选择相应数值格式，或者选中单元格区域单击菜单“编辑/清除/格式”即可恢复显示。 值得大家注意的是，保护工作表后单元格是无法修改的。若希望保护后仍可修改单元格内容，可先选中需要输入的单元格，右击选
2、择“设置单元格格式”，从“保护”选项卡中单击取消“锁定”复选项前的“”，再进行保护工作表设置。这样被隐藏的单元格照样可以输入或修改，但是输入后单元格内容会被隐藏。 隐藏行列 有一些特殊表格像“工资单”、“人员记录”等可能就经常需要在打印前隐藏工作表中“等级”、“出生年月”、“扣费标准”等行列，在编辑时又要显示出，这样重复切换是比较麻烦的。对此有一个简单的方法可快速隐藏、显示指定行列。以隐藏“C:D”、“G”、“J”列为例： 选中“C:D”列，单击菜单“数据/组及分级显示/组合”，此时工作表上会显示分级的1、2按钮（如图2）。重复这一步，分别选中G列、J列进行组合。现在只要单击1按钮即可隐藏“C
3、:D”、“G”、“J”列，单击2按钮则恢复显示。对于行的设置也是一样，只是行的1、2按钮是左侧。 隐藏的行或列在通过拖动选择或按Shift键选中时会同时被选中，复制粘贴后会发现隐藏内容也同时被复制过来了。对此可在拖动或按Shift键选中区域后，再按下“Alt+;”键，这样就会只选中可见单元格，而不包括那些被隐藏的行或列。 提示：一般对象或图形默认会随所在的行列一起被隐藏，若不想同时隐藏图形，可双击图形打开“设置图片格式”窗口，在“属性”选项卡中选中“大小、位置固定”选项。 隐藏工作表 单击“工具/宏/Visual Basic编辑器”，在弹出窗口左侧选中要隐藏的工作表名，如：“Sheet4”，在
4、属性窗口中把“Visible”项的值设置为“2-xlsheetveryHidden”（如图3），若没有属性窗口可按F4显示。然后右击“VBAProject(XXXX.xls)”选择“VBAProject 属性”，在“保护”选项卡中选中“查看时锁定工程”，并输入密码，保存文档退出。以后想展开VBAProject(XXXX.xls)时会弹出一个要求输入密码的对话框，没密码就别想查看或修改了。用这方法隐藏的工作表，不能通过单击“格式/工作表/取消隐藏”取消隐藏，也不会影响其它工作表操作。excel表格中怎样使个别单元格变成只读 Posted on 2008-10-28 11:22 啊黄 阅读(815
5、) 评论(0) 编辑 收藏 所属分类: 其它 那你可以将要使用到的单元格选定,然后选择菜单中的第一步:格式-储存格-在出现的窗口里,点击”保护”,在”锁定(L)”前面的方框不要打勾-确定.第二步工具-保护-保护工作表-输入密码-确定-再输入一次密码-确定,即可.你之前没有选择的单元格就不可以更改了.格式-单元格-保护 被锁定的单元格在保护后不能编辑编程实现就更灵活些 VBEPrivate Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Pass, s If Target.Value Then Pass = InputBox(请输
6、入修改密码：, 提示) If Pass ah Then s = MsgBox(密码错误，不能修改, vbOKOnly, 警告) If Target.Offset(1) = Then Target.Offset(1).Select Else Target.End(xlDown).Offset(1).Select End If End If End IfEnd Sub使excel表格内容只读不能修改及破解 作者:顾芗 日期:2009-9-23 8:38:00 1推荐只读不能修改方法:在EXCEL里，选择工具选项安全性分别设置打开权限密码和修改权限密码，2个密码要不一样，然后确定，会弹出对话框让你重
7、新输入密码，第一个框输入你设置打开权限密码，第二个框输入你修改权限密码，然后保存文件。然后你把打开权限密码给别人就OK了，别人打开就是只读，不能修改。要修改需要你修改权限密码。 补充一下：如果不想只读打开需要密码，可以不设置打开权限密码，只设置修改权限密码。 破解Excel保护方法Excel对数据有很强的保护功能，可以对整个或部分数据隐藏、禁止复制和修改等，但有时候，由于忘记了密码，或者记不起以前自己到底做了哪些改动，这种保护反而会为难自己。针对这种情况，我总结了几种解除保护的方法，供大家参考，并希望能够以此抛砖引玉。 一、解除单元格的保护1取消隐藏的行或列 被隐藏的行或列有一个明显的标志，那
8、就是在行标题栏或列标题栏上有一条粗的黑线。取消隐藏的行或列的方法有两种，一种是直接拖动隐藏处的行或列标题使之变宽，也可以选中包含隐藏区域的行或列，通过“格式”菜单中的行列项目输入非0数值调整行高或列宽，使数据有足够的空间显示出来；另一种方法是选中包含隐藏内容的行或列区域，再通过“格式”菜单行列选项中的“取消隐藏”命令来恢复全部行列区域。2取消隐藏单元格或区域中的数据 为了不让他人直接看到单元格的内容，一种简单的方法就是把数据颜色设置成与背景色相同，这时我们只要拖选整个工作表即可让数据原形毕露；如果用图片、矩形框之类的非字符内容将重要数据遮盖，需要先用拖选方式找出工作表中的图片位置，再将其移开，
9、激活被遮住的单元格，一般在公式编辑栏中就会显示其内容。 若在单元格格式中使用了三个分号或空格之类的自定义格式，一般只要选中此单元格，在公式编辑栏中即可显示其内容，要想取消这种隐藏，可重新设置此单元格格式，在“数字”选项卡中选择“常规”即可。 如果选中怀疑有数据的单元格后并没有在公式编辑栏中显示数据，不一定它就真的没有数据，我们只要看一下单元格的格式能否设置，若不能的话说明工作表被保护，如果不用密码可以取消工作表保护的话，再在单元格格式设置中先查看数据格式是否为自定义，然后查看“保护”选项卡，看看是否已勾选了“隐藏”项，将这些都取消就可以知道单元格是否真的没有内容。当然，如果在撤消工作表保护时需
10、要密码的话，我们将无可奈何，除非用户设置的密码很简单，那我就告诉你一个秘密，当密码的形式是“*123*”或“*abc*”时，我们可以分别用“*333*”或“*ccc*”来破解，星号表示任意字符，到底是什么只有靠猜了，这种方法对工作表和工作簿保护的密码也适应。3取消单元格数据的只读属性 有时单元格中的数据虽然可见，但是我们既不能修改，也不能在当前工作表中复制，对于这种保护措施，取消的方法跟上面的第2点基本相同，只要取消单元格格式设置对话框中“保护”选项卡中的“锁定”一项即可。当然还需要通过密码取消工作表的保护才行。 如果我们无法通过密码取消怎么办？你可以将其复制粘贴到其他工作表中，再在新的工作表
11、中进行修改。二、解除工作表的保护 查看是否有被隐藏的工作表，若菜单中有“格式工作表取消隐藏”项，则可通过此项取消隐藏的工作表。 如果在菜单中也没有有效的“取消隐藏”项，仍然可能有被隐藏的工作表，这时我们可以任选一工作表右击，在弹出菜单中选择“查看代码”，然后在左窗格中的“Microsoft Excel 对象”列表中选择被隐藏的工作表，将其“Visible”属性值取“-1”退出即可，如图所示。 如果工作表被密码保护，则可复制当前表全部内容到另一张未保护的工作表中编辑。三、VBA宏代码破解法： 第一步：打开该文件，先解除默认的“宏禁用”状态，方法是点击工具栏下的“选项”状态按钮，打开“Micros
12、oft Office安全选项”窗口，选择其中的“启用此内容”，“确定”退出(图2)；再切换到“视图”选项卡，点击“宏”“录制宏”，出现“录制新宏”窗口，在“宏名”定义一个名称为：PasswordBreaker(图3)，点击“确定”退出；第二步：再点击“宏”“查看宏”，选择“宏名”下的“PasswordBreaker”并点击“编辑”，打开“Microsoft Visual Basic”编辑器，用如下内容替换右侧窗口中的所有代码：Sub PasswordBreaker()Dim i As Integer, j As Integer, k As IntegerDim l As Integer, m
13、As Integer, n As IntegerDim i1 As Integer, i2 As Integer, i3 As IntegerDim i4 As Integer, i5 As Integer, i6 As IntegerOn Error Resume NextFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66Fo
14、r i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126ActiveSheet.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 ThenMsgBox 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).SelectRange(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 SubEnd IfNext: Next: N
