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

R.R.

QUOTE:

以下是引用hhzjxss在2007-3-26 17:37:28的发言：

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

Set wb = Workbooks.Open(ThisWorkbook.Path & "\文科生文件.xls")
Sheets("宏表1").Visible = xlSheetVisible
（在＂文科生文件.xls"相同文件夹的另一个Excel文件里运行）

wxhnr

QUOTE:

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

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

 

工作薄中的代码很容易破解这是一个不争的事实，到目前为止，保护源代码的唯一可靠手段是用VB把代码放入DLL文件中。

gxzhiyu

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

一样的啊

yxy博

没意思,花怎么多心思,不如用在编些有用的.

hn_goujl

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

lvzhiyong

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

hhzjxss

为什么不能共享破解有方法呢，本来大家来这里就是交流学习的呀！

home432

好铁啊!

chuhaiou

来一个难一点的让你破解，我就不信你有那么狠！

fsyyyy

Private Sub auto_Open()
MsgBox "(?蔨)иぃ琌????    :    (羉砰)иぃ琌ㄓ腇窥?"
End Sub

这个？