一个EXCEL密码忘记了,请帮助解开,谢谢

zshyaw

各位老师一个EXCEL密码忘记了,请帮助解开,谢谢

prome3

这是你自己的文件还是别人的？
别人给自己文件设置密码是要保护自己的数据，何必费那劲去破解。

2324104030

怎么证明是你的？

q490525427

拿个空表考验老师们...

q3698995

这有何难？

zshyaw

q3698995 发表于 2024-3-29 10:24
这有何难？

q3698995您好!能否将代码,或者取消密码的文件发上来,谢谢

q3698995

请随便写几个里面的过程名，如果确定文件确实是你的，我可以帮你。

morpheus126

q3698995 发表于 2024-3-29 11:01
请随便写几个里面的过程名，如果确定文件确实是你的，我可以帮你。

厉害厉害，我就没想到

cnmlgb9998

1. Option Explicit
   
2. 
   
3.     Public StrSN As String
   
4.    
   
5.    
   
6. 'Callback for customUI.onLoad
   
7. Sub rxIRibbonUI_onLoad(ribbon As IRibbonUI)
   
8. End Sub
   
9. 
   
10. 'Callback for ID_TODAY getLabel
    
11. Sub GETTODAY(control As IRibbonControl, ByRef returnedVal)
    
12.     returnedVal = "    " & Format(Now, "yyyy-m-d")
    
13. End Sub
    
14. 
    
15. 'Callback for ID_USER getLabel
    
16. Sub GETUSER(control As IRibbonControl, ByRef returnedVal)
    
17.     Dim UserName As String
    
18.     If InStr(1, Application.UserName, "[") = 0 Then
    
19.         UserName = Application.UserName
    
20.     Else
    
21.         UserName = Left(Application.UserName, InStr(1, Application.UserName, "[") - 1)
    
22.     End If
    
23. 
    
24.     returnedVal = UserName
    
25. End Sub
    
26. 
    
27. 'Callback for BTN002 onAction
    
28. Sub SendMailToChuan(control As IRibbonControl)
    
29.     Dim objOutlook As New Outlook.Application
    
30.     Dim objMail As MailItem
    
31.    
    
32.     Set objOutlook = New Outlook.Application
    
33.     Set objMail = objOutlook.CreateItem(olMailItem)
    
34.    
    
35.     objMail.To = "chuan.wang@emerson.com"
    
36.     objMail.Subject = "WQ FCV DVC auto tiering tools issue"
    
37.     objMail.Save
    
38.     objMail.Display
    
39. 
    
40.     Set objMail = Nothing
    
41.     Set objOutlook = Nothing
    
42. End Sub
    
43. 
    
44. 'Callback for ID_SN onChange
    
45. Sub Input_SN(control As IRibbonControl, text As String)
    
46.     StrSN = text
    
47.     Search_SN_Data
    
48. End Sub
    
49. 
    
50. 'Callback for ID_SN getText
    
51. Sub Reset_SN(control As IRibbonControl, ByRef returnedVal)
    
52. 
    
53. End Sub
    
54. 
    
55. 'Callback for Button_SN onAction
    
56. Sub Search_SN(control As IRibbonControl)
    
57. 
    
58.     Search_SN_Data
    
59. End Sub
    
60. 
    
61. Public Sub Search_SN_Data()
    
62.     Dim i As Integer
    
63.     Dim strSQL As String
    
64. 
    
65. '    If StrSN = "" Or StrSN = ture Then Exit Sub
    
66.    
    
67.     Cells.Clear
    
68.    
    
69.     Cells(1, 1) = "Protocol"
    
70.     Cells(2, 1) = "Level"
    
71.     Cells(3, 1) = "SerialNumber"
    
72.     Cells(4, 1) = "Valve Serial Number"
    
73.     Cells(5, 1) = "Database Tag"
    
74.     Cells(6, 1) = "Device Tag"
    
75.     Cells(7, 1) = "Descriptor"
    
76.     Cells(8, 1) = "RepOderNumber"
    
77.     Cells(9, 1) = "DVCoptions"
    
78.    
    
79.     Cells(1, 2).Select
    
80.    
    
81. On Error GoTo errorhandle
    
82. 
    
83.     Cells(3, 2) = StrSN
    
84.    
    
85.     Application.ScreenUpdating = False
    
86.     ConnectDB
    
87.    
    
88.     '=============Protocol==================
    
89. '    Dim Protocol As String
    
90. '
    
91. '    strSQL = "select * from openquery (betsy," & _
    
92. '                "'SELECT COUNT(*)" & _
    
93. '                " FROM apps.XXOM_VLVS_SERIALIZATION XVS" & _
    
94. '                "  JOIN apps.oe_order_lines_all OOL" & _
    
95. '                "   ON OOL.TOP_MODEL_LINE_ID = xvs.SALES_ORDER_LINE_ID " & _
    
96. '                "   AND OOL.ORG_ID=10606 " & _
    
97. '                "   AND OOL.ORDERED_ITEM IN (''DVC6200X1-9M1'') " & _
    
98. '                "WHERE XVS.serial_number = ''" & StrSN & "''')"
    
99. '
    
100. '    If rs.State = adStateOpen Then rs.Close
     
101. '    rs.Open strSQL, cn, adOpenKeyset, adLockOptimistic
     
102. '    If rs(0) > 0 Then Protocol = "HART 5"
     
103. '
     
104. '    strSQL = "select * from openquery (betsy," & _
     
105. '                "'SELECT COUNT(*)" & _
     
106. '                " FROM apps.XXOM_VLVS_SERIALIZATION XVS" & _
     
107. '                "  JOIN apps.oe_order_lines_all OOL" & _
     
108. '                "   ON OOL.TOP_MODEL_LINE_ID = xvs.SALES_ORDER_LINE_ID " & _
     
109. '                "   AND OOL.ORG_ID=10606 " & _
     
110. '                "   AND OOL.ORDERED_ITEM IN (''DVC6200X1-9M2'') " & _
     
111. '                "WHERE XVS.serial_number = ''" & StrSN & "''')"
     
112. '
     
113. '    If rs.State = adStateOpen Then rs.Close
     
114. '    rs.Open strSQL, cn, adOpenKeyset, adLockOptimistic
     
115. '    If rs(0) > 0 Then Protocol = "HART 7"
     
116.    
     
117. '    Cells(1, 2) = Protocol
     
118.    
     
119.     '=============Level==================
     
120.    
     
121.     strSQL = "select * from openquery (betsy," & _
     
122.                 "'SELECT OOL.ORDERED_ITEM " & _
     
123.                 " FROM apps.XXOM_VLVS_SERIALIZATION XVS" & _
     
124.                 "  JOIN apps.oe_order_lines_all OOL" & _
     
125.                 "   ON OOL.TOP_MODEL_LINE_ID = xvs.SALES_ORDER_LINE_ID " & _
     
126.                 "   AND OOL.ORG_ID=10606 " & _
     
127.                 "   AND OOL.ORDERED_ITEM IN (''DVC6200X1-9M1''," & _
     
128.                                             "''DVC6200X1-9M2''," & _
     
129.                                             "''DVC6200X1-9D1''," & _
     
130.                                             "''DVC6200X1-9D2''," & _
     
131.                                             "''DVC6200X1-9D3''," & _
     
132.                                             "''DVC6200X1-9D4''," & _
     
133.                                             "''DVC6200X1-9D5''," & _
     
134.                                             "''DVC2000X1-9A1''," & _
     
135.                                             "''DVC2000X1-9A2''," & _
     
136.                                             "''DVC2000X1-9A3''," & _
     
137.                                             "''DVC2000X1-9A4''," & _
     
138.                                             "''DVC6200X1-9S1''," & _
     
139.                                             "''DVC6200X1-9S2''," & _
     
140.                                             "''DVC6200X1-9S3''," & _
     
141.                                             "''DVC6200X1-9S4''," & _
     
142.                                             "''DVC6200X1-9Q1'') " & _
     
143.                 "WHERE XVS.serial_number = ''" & StrSN & "''')"
     
144.     If rs.State = adStateOpen Then rs.Close
     
145.     rs.Open strSQL, cn, adOpenKeyset, adLockOptimistic
     
146.     rs.MoveFirst
     
147.   
     
148.     Do While rs.EOF = False
     
149.         Select Case rs(0)
     
150.             '=============Protocol==================
     
151.             Case "DVC6200X1-9M1"
     
152.                 Cells(1, 2) = "HART 5"
     
153.             Case "DVC6200X1-9M2"
     
154.                 Cells(1, 2) = "HART 7"
     
155.             '=============Level==================
     
156.             Case "DVC6200X1-9D1"
     
157.                 Cells(2, 2) = "AC"
     
158.             Case "DVC6200X1-9D2"
     
159.                 Cells(2, 2) = "HC"
     
160.             Case "DVC6200X1-9D3"
     
161.                 Cells(2, 2) = "AD"
     
162.             Case "DVC6200X1-9D4"
     
163.                 Cells(2, 2) = "PD"
     
164.             Case "DVC6200X1-9D5"
     
165.                 Cells(2, 2) = "OVD"
     
166.             Case "DVC6200X1-9A1"
     
167.                 Cells(2, 2) = "AC"
     
168.             Case "DVC6200X1-9A2"
     
169.                 Cells(2, 2) = "HC"
     
170.             Case "DVC6200X1-9A3"
     
171.                 Cells(2, 2) = "AD"
     
172.             Case "DVC6200X1-9A4"
     
173.                 Cells(2, 2) = "PD"
     
174.             '=============DVCoptions==================
     
175.             Case "DVC6200X1-9S1"
     
176.                 Cells(9, 2) = "DVC6200X1-9S1"
     
177.             Case "DVC6200X1-9S2"
     
178.                 Cells(9, 2) = "DVC6200X1-9S2"
     
179.             Case "DVC6200X1-9S3"
     
180.                 Cells(9, 2) = "DVC6200X1-9S3"
     
181.             Case "DVC6200X1-9S4"
     
182.                 Cells(9, 2) = "DVC6200X1-9S4"
     
183.             Case "DVC6200X1-9Q1"
     
184.                 If Cells(9, 2) = "" Then
     
185.                     Cells(9, 2) = "DVC6200X1-9Q1"
     
186.                 End If
     
187.         End Select
     
188.         
     
189.         rs.MoveNext
     
190.     Loop
     
191.    
     
192. '    Cells(2, 2) = Level
     
193.     '=============DVCoptions==================
     
194. '    Dim strDVCOptions As String
     
195. '
     
196. '    strSQL = "select * from openquery (betsy," & _
     
197. '                "'SELECT OOL.ORDERED_ITEM" & _
     
198. '                " FROM apps.XXOM_VLVS_SERIALIZATION XVS" & _
     
199. '                " JOIN apps.oe_order_lines_all OOL" & _
     
200. '                "   ON OOL.TOP_MODEL_LINE_ID = xvs.SALES_ORDER_LINE_ID " & _
     
201. '                "   AND OOL.ORG_ID=10606 " & _
     
202. '                "   AND OOL.ORDERED_ITEM IN (''DVC6200X1-9S1''," & _
     
203. '                                            "''DVC6200X1-9S2''," & _
     
204. '                                            "''DVC6200X1-9S3''," & _
     
205. '                                            "''DVC6200X1-9S4'') " & _
     
206. '                "WHERE XVS.serial_number = ''" & StrSN & "''')"
     
207. '
     
208. '    If rs.State = adStateOpen Then rs.Close
     
209. '    rs.Open strSQL, cn, adOpenKeyset, adLockOptimistic
     
210. '
     
211. '    If rs.RecordCount > 0 Then
     
212. '        strDVCOptions = rs(0)
     
213. '    Else
     
214. '        strSQL = "select * from openquery (betsy," & _
     
215. '                "'SELECT COUNT(*)" & _
     
216. '                " FROM apps.XXOM_VLVS_SERIALIZATION XVS" & _
     
217. '                " JOIN apps.oe_order_lines_all OOL" & _
     
218. '                "   ON OOL.TOP_MODEL_LINE_ID = xvs.SALES_ORDER_LINE_ID " & _
     
219. '                "   AND OOL.ORG_ID=10606 " & _
     
220. '                "   AND OOL.ORDERED_ITEM IN (''DVC6200X1-9Q1'') " & _
     
221. '                "WHERE XVS.serial_number = ''" & StrSN & "''')"
     
222. '
     
223. '        If rs.State = adStateOpen Then rs.Close
     
224. '        rs.Open strSQL, cn, adOpenKeyset, adLockOptimistic
     
225. '        If rs(0) > 0 Then strDVCOptions = "DVC6200X1-9Q1"
     
226. '    End If
     
227. '
     
228. '
     
229. '    Cells(9, 2) = strDVCOptions
     
230.    
     
231.    
     
232.    
     
233.     Cells.EntireColumn.AutoFit
     
234.    
     
235.     DisconnectDB
     
236.     Application.ScreenUpdating = True
     
237.     Exit Sub
     
238.    
     
239. errorhandle:
     
240.     If Err.Description <> "Object variable or With block variable not set" Then
     
241.         MsgBox "Sorry, we encounter an issue. no data extracted" & vbCrLf & vbCrLf & "Please contact with Chuan Wang." & vbCrLf & vbCrLf & Err.Description, vbCritical + vbOKOnly, "WQ FCV MES @ Feb 2021"
     
242.     End If
     
243.     DisconnectDB
     
244.     Application.ScreenUpdating = True
     
245.    
     
246.    
     
247. End Sub
     

复制代码

cnmlgb9998

是这个？？？？？？