477BEWKw.rar
(129.21 KB, 下载次数: 33)
文件是我自己的,几个月前制作的.现在要用它,不知道密码了修改也不方便...里面的代码开头是
Dim CNN As New ADODB.Connection, RST As New ADODB.Recordset, RST1 As New ADODB.Recordset, RST2 As New ADODB.Recordset, RST3 As New ADODB.Recordset
Dim DsPath As String, strSQL As String, strSQL1 As String, strSQL2 As String, strSQL3 As String, strPro As String, mingjia As String, mingjianame As String, mybiaoti As String, mytoubaoren As String, myyinyan As String
Dim myjieshu As String, mytese As String, mydate As String, myheji As Integer, myheji1, myheji2, myphone As String, mytouxian As String, myphoneid As String, myid As String
Dim MyShape As Shape, MyPath As String
a = ThisDocument.Path
b = InStr(a, "temp").
贴这个是证明文件是我自己弄的.不是别人的.我只是忘记了打开宏的密码.找了 几个软件也大不开offkey,没找到. Advanced VBA Password Recovery也没找到显示<not available>
现在好后悔没记住密码 [em03][em03][em03][em03] |