########非封装形式VBA保护

zpy2

shaokui123 发表于 2021-5-11 13:35
excel to exe 7.2，本论坛有

这个帖子里面的南宫高手可能是vbgood的版主，的确很厉害。
那个论坛可惜好多精华都丢失了。

shaokui123

zpy2 发表于 2021-5-11 13:41
这个帖子里面的南宫高手可能是vbgood的版主，的确很厉害。
那个论坛可惜好多精华都丢失了。

南宫，阿吉都是前辈高手
还有一个officefans论坛也关了
阿吉在台湾的论坛还能看到早期作品

yes363001640

1. Private Sub UserForm_Activate()
   
2. Dim Arr1, Arr2, Arr3
   
3.     Arr1 = Array("A4", "A3")
   
4.     Arr2 = Array("竖向", "横向")
   
5.     Arr3 = Array("第&P页　总&N页", "&D")
   
6.     Me.ComboBox1.List = Arr1: Me.ComboBox2.List = Arr2
   
7.     Me.ComboBox3.List = Arr3: Me.ComboBox4.List = Arr3
   
8.     Me.ComboBox5.List = Arr3: Me.ComboBox6.List = Arr3
   
9.     Me.ComboBox7.List = Arr3: Me.ComboBox8.List = Arr3
   
10.     Me.ComboBox1.Value = "A4"
    
11.     Me.ComboBox2.Value = "竖向"
    
12.     Me.ComboBox7.Value = "第&P页　总&N页"
    
13.     Me.TextBox3.Value = "1.0": Me.TextBox6.Value = "0.8"
    
14.     Me.TextBox4.Value = "1.2": Me.TextBox7.Value = "1.2"
    
15.     Me.TextBox5.Value = "0.8": Me.TextBox8.Value = "0.8"
    
16. End Sub
    
17. Private Sub CommandButton1_Click()
    
18.     Dim Rng As Range
    
19.     On Error Resume Next
    
20.     Set Rng = Application.InputBox("请选择打印区域", "指定打印区域", , , , , , 8)
    
21.     If err <> 0 Then
    
22.       Me.TextBox1.Value = ""
    
23.       err.Clear
    
24.     Else
    
25.       Me.TextBox1.Value = Rng.Address
    
26.     End If
    
27. End Sub
    
28. Private Sub CommandButton2_Click()
    
29.     Dim Rng As Range
    
30.   On Error Resume Next
    
31. Star:
    
32.   Set Rng = Application.InputBox("请选择用于顶端标题的行，例如$1:$1或者$1:$2或者$1:$3等等", "指定顶端标题", "1:2", , , , , 8)
    
33.   If err <> 0 Then
    
34.     Me.TextBox2.Value = ""
    
35.     err.Clear
    
36.   Else
    
37.     If Rng.Row <> 1 Then MsgBox "顶端标题须从第一行开始。", 64, "提示": err.Clear: GoTo Star
    
38.     If Rng.Rows.Count > 10 Then MsgBox "顶端标题不要大于10行。", 64, "提示": GoTo Star
    
39.     Me.TextBox2.Value = Rng.EntireRow.Address
    
40.   End If
    
41. End Sub
    
42. Private Sub CommandButton3_Click()
    
43. Application.ScreenUpdating = False
    
44. With ActiveSheet.PageSetup
    
45.   .PrintArea = TextBox1.Value
    
46.   .PrintTitleRows = TextBox2.Value
    
47.     If Me.ComboBox1.Value = "A4" Then
    
48.         .PaperSize = xlPaperA4
    
49.     Else
    
50.        .PaperSize = xlPaperA3
    
51.     End If
    
52.     If Me.ComboBox2.Value = "横向" Then
    
53.         .Orientation = xlLandscape
    
54.     Else
    
55.         .Orientation = xlPortrait
    
56.     End If
    
57.   .LeftMargin = TextBox3.Value * 28.6
    
58.   .RightMargin = TextBox6.Value * 28.6
    
59.   .TopMargin = TextBox4.Value * 28.6
    
60.   .BottomMargin = TextBox7.Value * 28.6
    
61.   .HeaderMargin = TextBox5.Value * 28.6
    
62.   .FooterMargin = TextBox8.Value * 28.6
    
63.   .LeftHeader = ComboBox3.Value
    
64.   .CenterHeader = ComboBox4.Value
    
65.   .RightHeader = ComboBox5.Value
    
66.   .LeftFooter = ComboBox6.Value
    
67.   .CenterFooter = ComboBox7.Value
    
68.   .RightFooter = ComboBox8.Value
    
69. End With
    
70. Unload 打印窗体
    
71. Application.ScreenUpdating = True
    
72. End Sub
    
73. Private Sub CommandButton4_Click()
    
74.   End
    
75. End Sub
    
76. 
    
77. 
    
78. 
    

复制代码

大灰狼1976

说句实话，混淆法只要查看本地窗口就一目了然了，都不要花心思去替换。

shaokui123

yes363001640 发表于 2021-5-11 16:40

工作簿1.rar (11.94 KB, 下载次数: 74)

2021-5-11 23:31 上传

点击文件名下载附件

感谢测试，已修复
再看看这个

zpy2

大灰狼1976 发表于 2021-5-11 21:59
说句实话，混淆法只要查看本地窗口就一目了然了，都不要花心思去替换。

真的吗？有没有测试我发的附件？能还原吗？

大灰狼1976

zpy2 发表于 2021-5-12 08:58
真的吗？有没有测试我发的附件？能还原吗？

当然可以，现在上班，晚上我还原出来。本来我还把长字符串的函数名变量名批量替换成正常名，后来f8一调试，本地窗口啥都出来了，前面的工作都不需要。

大灰狼1976

混淆法加密的局限性是，只能把过程名、函数名、变量名起得比较难识别，对VBA保留字毫无办法，所以我看到createobject()就知道要创建对象，括号内毫无疑问就是一个字符串，那么就能判断出最上面的函数就是把看似复杂的大串array的元素通过换算得到字符串，这几个功能明白了，即便代码全部不修改，也能明白。当然改了以后更直观，所以我认为对略有基础的人来说，混淆法没有什么意义。
当然如果我的理解比较片面，有困难的例子能够让我改变看法，我也是很欢迎的。
至于内存里面解码，我没接触过，不作评价。

口风琴

zpy2 发表于 2021-5-11 10:20
你把这里的文本文件打开，复制粘贴到 模块1 保存，然后，打开这个工作簿，运行下面这个过程看看咋样。
...

厉害了，想玩，请大侠赐教

口风琴

大灰狼1976 发表于 2021-5-12 21:34
混淆法加密的局限性是，只能把过程名、函数名、变量名起得比较难识别，对VBA保留字毫无办法，所以我看到cre ...

目睹两位高手对决，我吓得直哆嗦