神马文学网破解保护工作表密码及另类隐藏
来源：百度文库 编辑：神马文学网 时间：2024/04/27 17:48:17
破解保护工作表密码及另类隐藏
EXCEL实用 2009-03-30 21:41:51 阅读317 评论0 字号：大中小 订阅
一.保护整张工作表
1. 工具-保护-保护工作表
2.输入密码 这样就保护了整张工作表.那么如何破解呢?
3.选中被保护的工作表名称.单击右键.选择"查看代码(V)"
4.依照图片位置:写入代码
代码如下:
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
5.代码写入完成后,按下功能键:F5 程序开始运算.运算时间可能长一些.程序运行完密码也就解除了
二:隐藏工作表
1.选择 格式-工作表-隐藏(取消隐藏)
这样的隐藏方式可以通过: 格式-工作表-取消隐藏 恢复
现在介绍另外一种隐藏方式:
2.选中需要隐藏的工作表名称.单击右键.选择"查看代码(V)".输入代码
代码如下:
Sub yincang()
ActiveSheet.Visible = xlSheetVeryHidden
End Sub
3.代码写入完成后,按下功能键:F5 ,工作表被隐藏了.看看还能不能用 格式-工作表-取消隐藏 恢复(代码运行后记得要将其删除掉)
4.试过人就知道不能再用 格式-工作表-取消隐藏 来恢复了.这种隐藏叫深度隐藏.那么如何来破解深度隐藏呢?
5.寻找被隐藏的工作表
这里的工作表有两个:sheet1和sheet5 .但我们只能看到sheet1表.sheet5是被深度隐藏了.
6.将之前的代码更改为下面代码:按下功能键:F5 (代码运行后记得要将其删除掉)
Sub reyincang()
Sheet5.Visible=xlSheetVisible
End Sub
这样深度隐藏的sheet5又显示出来了.
三 在工作表中隐藏零
单元格C193为零,这是正常显示
经过设置后,单元格C193零值被隐藏了.只能在编辑栏才能查看到
如何设置: 将单元格C193的格式类型 自定义为: "0;-0;;"
还有一种隐藏零的方法.
工具 - 选项 将零值(Z) 去掉"√".
这两种方法的不同之处在于:第一种方法的对象是单元格.第二种方法的对象是整张工作表!
介绍完毕!!!!!