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

taller

QUOTE:

以下是引用文科生在2007-3-26 15:02:31的发言：

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

 

和1楼文件没有什么区别

    If P <> "B79DF5578@BH468%NUYR56112F004O0Y" Then

nickxie

大师过招，缦天飞舞，

我怎么看都看不懂啊

hhzjxss

我用密码B79DF5578@BH468%NUYR56112F004O0"打开了工作簿，可是，怎么打不开“宏表1”呢？请指点!

hwyang

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%NUYR56112F004O0Y" Then
       MsgBox "口令不正确，文件将关闭。", 16
       Q = 1
       Sheets("宏表1").Range("b1") = 1
       ThisWorkbook.Save
       ThisWorkbook.Close
    End If
End Sub

hwyang

呵呵，还是照破

yhtwhb

汇编语言编写的程序，都有人可以破解，basic编的程序，也一定有人可以破解，但是破来破去的，有什么用？精力全都用到加密上了，根本没有精力去做应用程序了。

VBA程序，就是被别人破解了，也不说明能够看懂程序，也不能说明，就能利用你辛辛苦苦编写的代码，

如果不想让别人用你的程序代码，你可以把所有的注释都删除了，这样，就是被破解了，你的代码也只能是被别人看看，如果谁真的想用你的代码，我想，没有注释的代码，需要别人花和你同样的时间，才能使用代码。

VBA程序都是针对行业性的程序，行业所包含的专业知识本身就需要人去理解，何况，让一个不了解专业的人，去看专业性的程序代码，真是难为破解者了。

qxnljx

wxhnr 大哥，请将破解过程贴出来学习，好么？

本论坛禁止讨论破解问题，否则将被删除 － taller

[此贴子已经被taller于2007-3-26 21:25:55编辑过]

ShiWai

chat163

QUOTE:

以下是引用yhtwhb在2007-3-26 20:13:02的发言：

汇编语言编写的程序，都有人可以破解，basic编的程序，也一定有人可以破解，但是破来破去的，有什么用？精力全都用到加密上了，根本没有精力去做应用程序了。

VBA程序，就是被别人破解了，也不说明能够看懂程序，也不能说明，就能利用你辛辛苦苦编写的代码，

如果不想让别人用你的程序代码，你可以把所有的注释都删除了，这样，就是被破解了，你的代码也只能是被别人看看，如果谁真的想用你的代码，我想，没有注释的代码，需要别人花和你同样的时间，才能使用代码。

VBA程序都是针对行业性的程序，行业所包含的专业知识本身就需要人去理解，何况，让一个不了解专业的人，去看专业性的程序代码，真是难为破解者了。

说得有理

qxnljx

没看懂破解方法，能请高手说得更详细些么？谢谢！