易用宝工程密码是多少，我想加入自己的内容？

chenwenming

易用宝工程密码是多少，我想加入自己的内容？

zpy2

易用宝应该是c#编译的插件，不存在密码和。

chenwenming

zpy2 发表于 2022-12-2 17:01
易用宝应该是c#编译的插件，不存在密码和。

有的，宏编辑界面增加新的工程，我试过

chenwenming

EZTools代码有是有，没看懂

1. Option Explicit
   
2. Private Const g_App_ProgID_Name As String = "ExcelHome.ExcelEasy"
   
3. Private Const g_App_ProgID_Name2 As String = "EZTools"
   
4. 
   
5. Function UndoViewSetInfo()
   
6.     On Error Resume Next
   
7.    
   
8.     Err.Clear
   
9.     Call Application.COMAddIns(g_App_ProgID_Name).Object.UndoViewSetInfo
   
10.    
    
11.     If Err.Number <> 0 Then
    
12.         Call Application.COMAddIns(g_App_ProgID_Name2).Object.UndoViewSetInfo
    
13.     End If
    
14.     Err.Clear
    
15. End Function
    
16. 
    
17. Function UndoCurrentPosition()
    
18.     On Error Resume Next
    
19.     Call Application.COMAddIns(g_App_ProgID_Name).Object.UndoCurrentPosition
    
20.    
    
21.     If Err.Number <> 0 Then
    
22.         Call Application.COMAddIns(g_App_ProgID_Name2).Object.UndoCurrentPosition
    
23.     End If
    
24. End Function
    
25. 
    
26. Function UndoWorkbooksStatus()
    
27.     On Error Resume Next
    
28.     Err.Clear
    
29.     Call Application.COMAddIns(g_App_ProgID_Name).Object.UndoWorkbooksStatus
    
30.    
    
31.     If Err.Number <> 0 Then
    
32.         Call Application.COMAddIns(g_App_ProgID_Name2).Object.UndoWorkbooksStatus
    
33.     End If
    
34.     Err.Clear
    
35. End Function
    
36. 
    
37. Function UndoSortSheets()
    
38.     On Error Resume Next
    
39.     Err.Clear
    
40.     Call Application.COMAddIns(g_App_ProgID_Name).Object.UndoSortWorksheets
    
41.    
    
42.     If Err.Number <> 0 Then
    
43.         Call Application.COMAddIns(g_App_ProgID_Name2).Object.UndoSortWorksheets
    
44.     End If
    
45.     Err.Clear
    
46. End Function
    
47. 
    
48. Function UndoRangeInfo()
    
49.     On Error Resume Next
    
50.     Err.Clear
    
51.     Call Application.COMAddIns(g_App_ProgID_Name).Object.UndoRangeInfo
    
52.    
    
53.     If Err.Number <> 0 Then
    
54.         Call Application.COMAddIns(g_App_ProgID_Name2).Object.UndoRangeInfo
    
55.     End If
    
56.     Err.Clear
    
57. End Function
    
58. 
    
59. Function UndoCurrentWorkbook()
    
60.     On Error Resume Next
    
61.     Err.Clear
    
62.     Call Application.COMAddIns(g_App_ProgID_Name).Object.UndoCurrentWorkbook
    
63.    
    
64.     If Err.Number <> 0 Then
    
65.         Call Application.COMAddIns(g_App_ProgID_Name2).Object.UndoCurrentWorkbook
    
66.     End If
    
67.     Err.Clear
    
68. End Function
    
69. 
    
70. Function UndoActiveCellInfo()
    
71.     On Error Resume Next
    
72.     Err.Clear
    
73.     Call Application.COMAddIns(g_App_ProgID_Name).Object.UndoActiveCellInfo
    
74.    
    
75.     If Err.Number <> 0 Then
    
76.         Call Application.COMAddIns(g_App_ProgID_Name2).Object.UndoActiveCellInfo
    
77.     End If
    
78.     Err.Clear
    
79. End Function
    
80. 
    
81. Function UndoSelectSheets()
    
82.     On Error Resume Next
    
83.     Err.Clear
    
84.     Call Application.COMAddIns(g_App_ProgID_Name).Object.UndoSelectSheets
    
85.    
    
86.     If Err.Number <> 0 Then
    
87.         Call Application.COMAddIns(g_App_ProgID_Name2).Object.UndoSelectSheets
    
88.     End If
    
89.     Err.Clear
    
90. End Function
    
91. 
    
92. Function UndoSheetsVisibleInfo()
    
93.     On Error Resume Next
    
94.     Err.Clear
    
95.     Call Application.COMAddIns(g_App_ProgID_Name).Object.UndoSheetsVisibleInfo
    
96.    
    
97.     If Err.Number <> 0 Then
    
98.         Call Application.COMAddIns(g_App_ProgID_Name2).Object.UndoSheetsVisibleInfo
    
99.     End If
    
100.     Err.Clear
     
101. End Function
     
102. 
     
103. Function UndoSortSheetsInfo()
     
104.     On Error Resume Next
     
105.     Err.Clear
     
106.     Call Application.COMAddIns(g_App_ProgID_Name).Object.UndoSortSheetsInfo
     
107.    
     
108.     If Err.Number <> 0 Then
     
109.         Call Application.COMAddIns(g_App_ProgID_Name2).Object.UndoSortSheetsInfo
     
110.     End If
     
111.     Err.Clear
     
112. End Function
     
113. 
     
114. Function UndoBatRenameSheetsInfo()
     
115.     On Error Resume Next
     
116.     Err.Clear
     
117.     Call Application.COMAddIns(g_App_ProgID_Name).Object.UndoBatRenameSheetsInfo
     
118.    
     
119.     If Err.Number <> 0 Then
     
120.         Call Application.COMAddIns(g_App_ProgID_Name2).Object.UndoBatRenameSheetsInfo
     
121.     End If
     
122.     Err.Clear
     
123. End Function
     
124. 
     

复制代码