那时候我便破解了税局这一份报表的登陆密码，但是当时怕讲出方法后，被他人改动这一份模板，因此直到今日才表明。
开启模板，能够看见各种各样功用全是深灰色的，也就是工作表被维护了。
这一我是依靠VBA破解的。
在开发环境，点VB，进到后台管理，插进控制模块，将编码黏贴进来，点运作。
运行后，稍等一下，就可以破解。留意观查工具栏，深灰色的作用何时恢复过来的。全部操作流程，大约7秒。
会计工作中，你是不是碰到愁眉不展不知道如何解决的问题呢？
（这里已加入微信小程序，请到今日今日头条手机客户端查询）
原模板还安装了工作簿维护，如今找不着那一个没破解的，因此自己再次设定了工作簿维护，那样掩藏起來的报表就没法立即撤销。
对于这类，必须用此外一段编码，将全部工作表拷贝到新工作簿，那样就可以见到全部工作表。
让我掩藏的工作表叫往下拉值，运作后，2-3秒就形成一个新工作簿，里边能够看见往下拉值这一工作表。
以上实属行业交流，别我用教的方法去乱破解他人的模板，谨记。最终，也有一种登陆密码几乎破解不了，那便是工作簿的打开密码。
Sub 破解密码()
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
Sub 拷贝到新工作簿()
ActiveWorkbook.Sheets.Copy
For Each sh In ActiveWorkbook.Sheets
sh.Visible = True
Next
End Sub
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 举报，一经查实，本站将立刻删除。
