這一帖真的是考驗你的VBA破解技巧

helpp

liucqa 发表于 2012-7-6 18:44
Sub auto_open()
On Error GoTo error1
Application.DisplayAlerts = False

求教破解过程吗？授人以鱼不如授人以渔，可以说说破解过程吗？用什么工具破解的密码呢？

liucqa

helpp 发表于 2012-7-6 22:59
求教破解过程吗？授人以鱼不如授人以渔，可以说说破解过程吗？用什么工具破解的密码呢？

1、用hook摘掉工程密码
2、写程序读出来宏表的内容，得到工作簿密码。（或者找个代码破解也行）
3、执行sheets("sheet0“).visible=-1

CAT0913

liucqa 发表于 2012-7-6 22:36

上面有 啟用 與 關閉 這兩個按鈕
這兩個宏 程式內容是如何撰寫出來的
我還是看不出來

liucqa

由于代码模块被隐藏，会造成Excel2007的死机现象。

liucqa

CAT0913 发表于 2012-7-6 23:06
上面有 啟用 與 關閉 這兩個按鈕
這兩個宏 程式內容是如何撰寫出來的
我還是看不出來

都在单元格的公式里面

helpp

liucqa 发表于 2012-7-6 23:02
1、用hook摘掉工程密码
2、写程序读出来宏表的内容，得到工作簿密码。（或者找个代码破解也行）
3、执行 ...

2、3点我都看明白了。
第1点不明白，用hook摘掉工程密码？不理解。
勾子？可以说说吗

CAT0913

liucqa 发表于 2012-7-6 23:13
都在单元格的公式里面

再次討論一下
查看了許久
單元格裡面沒有看到 相應的程式 可否再看看

liucqa

CAT0913 发表于 2012-7-6 23:36
再次討論一下
查看了許久
單元格裡面沒有看到 相應的程式 可否再看看

在宏表的那个工作表里面

CAT0913

看了一晚 &測試
確定 啟用 與 關閉 這兩個按鈕 的宏
不在宏表內.liucqa 可否幫試著找看看這兩個宏程序與內容

Moneky

这个玩意( liucqa 的解密宏表）会在工作表标签右键菜单中添加一个“查看代码”的菜单项，指向了原表格中的一个过程。如果你的菜单中有两个查看代码的话，可以用下面的过程删除

1. Sub test()
   
2.     Dim c As CommandBarControl
   
3.     Dim b As CommandBar
   
4.     For Each b In Application.CommandBars
   
5. '        Debug.Print b.Name, b.Visible
   
6.         If b.Name = "Ply" Then
   
7.             For Each c In b.Controls
   
8.                 Debug.Print c.Caption, c.OnAction
   
9.                 If c.OnAction Like "*.xls'!ShowErr" Then c.Delete
   
10.             Next
    
11.         End If
    
12.     Next
    
13. End Sub

复制代码