再次请教版主一个问题，枚举注册表项HKEY_USERS以下的所有值时，因为每部电脑中AccessVBOM所在的位置都不相同（比如我的电脑是在"HKEY_USERS\S-1-5-21-789336058-839522115-725345543-500\Software\Microsoft\Office\11.0\Excel\Security",而别的电脑可能是"HKEY_USERS\S-1-5-21-200436058-936522115-800845543-500\Software\Microsoft\Office\11.0\Excel\Security")，在使用RegOpenKeyEx函数时，遇到问题：
RegOpenKeyEx(HKEY_USERS, "这里如何写？",  0&, KEY_READ,lngKeyHandle)

EX:(VB add VBA code)
Sname = xlBook.VBProject.VBComponents.count
xlBook.VBProject.VBComponents(2).CodeModule.AddFromString (GetCode(SheetNumber, TempXDFFileName1, TempXDFFileName2, 0))'窗体
xlBook.VBProject.VBComponents(Sname - 1).CodeModule.AddFromString (GetCode(SheetNumber, TempXDFFileName1, TempXDFFileName2, 1)) '模块
xlBook.VBProject.VBComponents(Sname).CodeModule.AddFromString (GetCode(SheetNumber, TempXDFFileName1, TempXDFFileName2, 2))'类模块

.VBComponents(Sname):区别模块、类模块、窗体
GetCode:Add Code(此处我是用自定义function回传代替)

删除VBA代码或插入VBA代码都行~搜寻吧...