一.保护整张工作表
1. 工具-保护-保护工作表
635357490155244140.jpg
2.输入密码 这样就保护了整张工作表.那么如何破解呢?
3.选中被保护的工作表名称.单击右键.选择“查看代码(V)”
635357490295585937.jpg
4.依照图片位置:写入代码
635357490296767578.jpg
代码如下:- 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
- If ActiveSheet.ProtectContents = False Then
- MsgBox "当前表没有设置密码，请确定被保护的表是否为活动工作表! "
- Exit Sub
- End If
- 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
- If ActiveSheet.ProtectContents = False Then
- MsgBox "密码已经破解! "
- Exit Sub
- End If
- 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)
- Next: Next: Next: Next: Next: Next
- Next: Next: Next: Next: Next: Next
- End Sub
二:隐藏工作表
1.选择 格式-工作表-隐藏(取消隐藏)
635357490298037109.jpg
这样的隐藏方式可以通过: 格式-工作表-取消隐藏 恢复
现在介绍另外一种隐藏方式:
2.选中需要隐藏的工作表名称.单击右键.选择“查看代码(V)”.输入代码
635357490298818359.jpg
代码如下:- Sub yincang()
- ActiveSheet.Visible = xlSheetVeryHidden
- End Sub
3.代码写入完成后，按下功能键:F5 ，工作表被隐藏了.看看还能不能用 格式-工作表-取消隐藏 恢复(代码运行后记得要将其删除掉)
4.试过人就知道不能再用 格式-工作表-取消隐藏 来恢复了.这种隐藏叫深度隐藏.那么如何来破解深度隐藏呢?
5.寻找被隐藏的工作表
635357490300302734.jpg
这里的工作表有两个:sheet1和sheet5 .但我们只能看到sheet1表.sheet5是被深度隐藏了.
6.将之前的代码更改为下面代码:按下功能键:F5 (代码运行后记得要将其删除掉)- Sub reyincang()
- Sheet5.Visible=xlSheetVisible
- End Sub
三.在工作表中隐藏零
单元格C193为零，这是正常显示
635357490301103515.jpg
经过设置后，单元格C193零值被隐藏了.只能在编辑栏才能查看到
635357490302392578.jpg
如何设置:将单元格C193的格式类型 自定义为: “0;-0;;”
635357490303095703.jpg
还有一种隐藏零的方法.
工具 - 选项 将零值(Z) 去掉“√”.
635357490304589843.jpg
这两种方法的不同之处在于:第一种方法的对象是单元格.第二种方法的对象是整张工作表!
介绍完毕!!!!! |
[复制链接]
发表于 2014-5-15 11:49:17