excl隐藏单元格内容及设置为只读.doc

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