有谁知道微软的加载宏【分析工具库】的密码吗？

ovxyz

有谁知道微软的加载宏【分析工具库】的密码吗？

我想看看里面还有哪些自定义函数

以便日后方便的调用。

谢谢

cofe2000

密码：jiayang

ovxyz

密码无效。晕啊。还有谁知道啊？

sunnet

jiayang 是 Excel’97 的密码。

不同版本的密码是不一样的。

Excel 2002 的请试试这个密码：

Wildebeest!!

[此贴子已经被作者于2004-7-23 16:45:13编辑过]

cofe2000

我的2000可以啊

这是自动保存加载宏的代码，供参考

Const SZREGPATH As String = "Software\Microsoft\Office\8.0\Excel\"

Const HKEY_CLASSES_ROOT As Long = &H80000000 Const HKEY_CURRENT_USER As Long = &H80000001 Const HKEY_LOCAL_MACHINE As Long = &H80000002 Const HKEY_USERS As Long = &H80000003

Const ERROR_SUCCESS As Long = 0& Const ERROR_FILE_NOT_FOUND As Long = 2& Const ERROR_INVALID_HANDLE As Long = 6& Const ERROR_NO_ACCESS As Long = 998&

Const REG_SZ As Long = 1& Const REG_DWORD As Long = 4&

Private Declare Function D893SD93V& Lib "ADVAPI32" Alias "RegOpenKeyA" (ByVal hkeyOpen&, ByVal szSubKey$, ByRef hkeyResult&) Private Declare Function Z38B15G& Lib "ADVAPI32" Alias "RegCreateKeyA" (ByVal hkeyOpen&, ByVal szSubKey$, ByRef hkeyResult&) Private Declare Function CI38X3jb& Lib "ADVAPI32" Alias "RegQueryValueExA" (ByVal hkey&, ByVal szValueName$, ByVal lReserved&, ByRef lType&, ByVal sValue$, ByRef lcbData&) Private Declare Function R329BXX2& Lib "ADVAPI32" Alias "RegQueryValueExA" (ByVal hkey&, ByVal szValueName$, ByVal lReserved&, ByRef lType&, ByRef lValue&, ByRef lcbData&) Private Declare Function M38b3325Bz& Lib "ADVAPI32" Alias "RegQueryValueExA" (ByVal hkey&, ByVal szValueName$, ByVal lReserved&, ByRef lType&, ByVal vNull As Any, ByRef lcbData&) Private Declare Function XX348HJKL& Lib "ADVAPI32" Alias "RegCloseKey" (ByVal hkey&) Private Declare Function VC839NBmC& Lib "ADVAPI32" Alias "RegSetValueExA" (ByVal hkey&, ByVal szValueName$, ByVal dwReserved&, ByVal lType&, ByVal sValue$, ByVal lcbData&) Private Declare Function B3139Jsx2& Lib "ADVAPI32" Alias "RegSetValueExA" (ByVal hkey&, ByVal szValueName$, ByVal dwReserved&, ByVal lType&, ByRef lValue&, ByVal lcbData&)

Private Function X39f0392vv(szSection$, szKey$, Optional vDefaultValue As Variant) As Variant On Error GoTo lbl_Error If IsMissing(vDefaultValue) Then vDefaultValue = CVErr(xlErrNA) Dim hkey&, lResult&, lcbValue&, szValue$, lValue& lResult& = D893SD93V&(HKEY_CURRENT_USER, SZREGPATH & szSection$, hkeyXL5&) If lResult& <> ERROR_SUCCESS Then RegGetXLValue = vDefaultValue Exit Function End If lResult& = M38b3325Bz&(hkeyXL5&, szKey$, 0&, lType&, 0&, lcbValue&) If lResult& <> ERROR_SUCCESS Then RegGetXLValue = vDefaultValue Exit Function End If If lType& = REG_SZ Then szValue$ = String$(lcbValue&, " ") lResult& = CI38X3jb&(hkeyXL5&, szKey$, 0&, lType&, szValue$, lcbValue&) If lResult& <> ERROR_SUCCESS Then RegGetXLValue = vDefaultValue Exit Function End If RegGetXLValue = Left$(szValue$, lcbValue& - 1) ElseIf lType& = REG_DWORD Then lValue& = 0 lResult& = R329BXX2&(hkeyXL5&, szKey$, 0&, lType&, lValue&, lcbValue&) If lResult& <> ERROR_SUCCESS Then RegGetXLValue = vDefaultValue Exit Function End If RegGetXLValue = lValue& End If lResult& = XX348HJKL&(hkeyXL5&) If lResult& <> ERROR_SUCCESS Then RegGetXLValue = vDefaultValue Exit Function End If Exit Function lbl_Error: RegGetXLValue = vDefaultValue End Function

Private Function zRg12583927(szSection$, szKey$, Value As Variant) As Variant Dim hkey&, lResult&, lcbValue&, szValue$, lValue& ' Open XL5 registry key, create if it doesn't already exist lResult& = Z38B15G&(HKEY_CURRENT_USER, SZREGPATH & szSection$, hkeyXL5&) If lResult& <> ERROR_SUCCESS Then zRg12583927 = CVErr(xlErrNA) Exit Function End If If TypeName(Value) = "String" Then lType& = REG_SZ Value = Value & Chr$(0) lcbValue& = Len(Value) lResult& = VC839NBmC&(hkeyXL5&, szKey$, 0&, lType&, CStr(Value), lcbValue&) ' NOTE: REG_DWORD code below doesn't really work ElseIf TypeName(Value) = "Integer" Or TypeName(Value) = "Long" Then lType& = REG_DWORD lcbValue& = 4 lValue& = CLng(Value) lResult& = B3139Jsx2&(hkeyXL5&, szKey$, 0&, lType&, lValue&, lcbValue&) Else Value = CStr(Value) lType& = REG_SZ Value = Value & Chr$(0) lcbValue& = Len(Value) lResult& = VC839NBmC&(hkeyXL5&, szKey$, 0&, lType&, CStr(Value), lcbValue&) End If If lResult& <> ERROR_SUCCESS Then zRg12583927 = CVErr(xlErrNA) Exit Function End If ' Close the XL5 reg key lResult& = XX348HJKL&(hkeyXL5&) If lResult& <> ERROR_SUCCESS Then zRg12583927 = False Exit Function End If End Function

Private Function RegGetXLInt(szSection$, szKey$, Optional vDefaultValue) As Integer Dim vValue As Variant, iValue As Integer vValue = X39f0392vv(szSection$, szKey$, vDefaultValue) On Error Resume Next RegGetXLInt = CInt(vValue) End Function

ovxyz

sunnet，谢谢，

也谢谢大家。

宣布一下。office2003的密码也是： Wildebeest!!

ovxyz

我也来把2003的分析工具库的源码告诉大家。

至于fieldsun 版主的问题。我知道为什么了。你要选取atpvbaen.xla这个文件。

晕。太大了。粘贴不上。我不粘了。

徒然客

好东西顶一下，就不知道其他的几个加载宏是不是同样的密码。

apolloh

看过代码全是在Application.Run实现的，好像学不到东西啊

lihsiang

这样的东西都能搞到，真的是高手如云呀。