### Excel无须封装，用VBA代码保护亦牢不可破 ###

文科生

 

 

           

ifFiEjFf.rar (8.97 KB, 下载次数: 102)

2007-3-26 14:47 上传

点击文件名下载附件
### Excel无须封装，用VBA代码保护亦牢不可破 ###

[此贴子已经被作者于2007-3-26 14:47:27编辑过]

ht19791979

报错，无法打开。excel2003.

wxhnr

还没遇到过解不开的工程代码.

Option Explicit
Dim Q
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.EnableCancelKey = xlDisabled
    If Q = 1 Then Exit Sub
    Sheets("宏表1").Range("b1") = 1
    If Me.Saved = False Then Me.Save
End Sub
Private Sub Workbook_Open()
    Application.EnableCancelKey = xlDisabled
    Sheets("宏表1").Range("b1") = 2
    Application.VBE.CommandBars.FindControl(ID:=752).Execute
    Dim P
    P = InputBox("请输入口令" & Chr(10) & Chr(10) & "你只有一次机会。", "文科生恳请您破解本文件")
    If P <> "B79DF5578@BH468%NUYR56112F004O0" Then
       MsgBox "口令不正确，文件将关闭。", 16
       Q = 1
       Sheets("宏表1").Range("b1") = 1
       ThisWorkbook.Save
       ThisWorkbook.Close
    End If
End Sub

taller

楼上已经贴出了代码，我这里就不重复，毋庸质疑VBA保护是脆弱的

[此贴子已经被作者于2007-3-26 14:14:50编辑过]

TGB

QUOTE:

以下是引用wxhnr在2007-3-26 14:11:36的发言：

还没遇到过解不开的工程代码.

 你牛!

又是烂宏表..

[此贴子已经被作者于2007-3-26 14:19:08编辑过]

nickxie

QUOTE:

以下是引用wxhnr在2007-3-26 14:11:36的发言：

还没遇到过解不开的工程代码.

Option Explicit
Dim Q
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.EnableCancelKey = xlDisabled
    If Q = 1 Then Exit Sub
    Sheets("宏表1").Range("b1") = 1
    If Me.Saved = False Then Me.Save
End Sub
Private Sub Workbook_Open()
    Application.EnableCancelKey = xlDisabled
    Sheets("宏表1").Range("b1") = 2
    Application.VBE.CommandBars.FindControl(ID:=752).Execute
    Dim P
    P = InputBox("请输入口令" & Chr(10) & Chr(10) & "你只有一次机会。", "文科生恳请您破解本文件")
    If P <> "B79DF5578@BH468%NUYR56112F004O0" Then
       MsgBox "口令不正确，文件将关闭。", 16
       Q = 1
       Sheets("宏表1").Range("b1") = 1
       ThisWorkbook.Save
       ThisWorkbook.Close
    End If
End Sub

楼上 wxhnr 大哥，可以告诉我是怎么破解他的密码吗？

我把你的程序放在宏里面再打开文件生文件，没有效果呢，请赐教！

nawong

樓上的，好快呀！

文科生

wxhnr 兄高啊,不过我之前上传的文件VBE工程没加密好,现在还请你破解它.其实你一直是我心目中的高人,我真的佩服你.

 

gA3BpU9o.rar (8.97 KB, 下载次数: 62)

2007-3-26 15:02 上传

点击文件名下载附件
### Excel无须封装，用VBA代码保护亦牢不可破 ###

烟雨厦江南

QUOTE:

以下是引用TGB在2007-3-26 14:14:28的发言：

 你牛!

又是烂宏表..

能不能把MS的加载宏的代码给整出来学习一下[em02]

TGB

QUOTE:

以下是引用烟雨厦江南在2007-3-26 15:33:33的发言：

能不能把MS的加载宏的代码给整出来学习一下[em02]

这个不要指望我,正因为我不懂而且上过它的当所以才说它是烂宏表.