VBA工程不可查看，怎么恢复？

阿哩木

如果工作薄只是在共享盘打开后宏消失在桌面正常，那要把共享盘的地址添加到internet的安全站点里面，或者换个2013的版本。excel的高级版本几乎有这个问题，如果在桌面也不显示那重新安装试试吧

GG函数

抱歉，我可没学过如何破，但使用一些工具，把模块代码复制出来了

qinian1

GG函数 发表于 2024-10-13 16:18
抱歉，我可没学过如何破，但使用一些工具，把模块代码复制出来了

都是大神，厉害了。。。。我学会了可以查看每个工程了。就是模块看不清楚。 看不到模块，算了，不整了。貌似我一个小白，学习不来这些。太难了。

admin3354

GG函数 发表于 2024-10-13 16:18
抱歉，我可没学过如何破，但使用一些工具，把模块代码复制出来了

工具可以分享吗？

admin3354

qinian1 发表于 2024-10-13 16:46
都是大神，厉害了。。。。我学会了可以查看每个工程了。就是模块看不清楚。看不到模块，算了，不整 ...

可以编辑代码就可以了，运行下面的从原程序中抄出来的代码就可以一劳永逸了。


Public Sub A()

    Set moc = GetObject("Winmgmts:").InstancesOf("Win32_DiskDrive")
   
    For Each mo In moc
        part_three = "TYV" & mo.Model & "QZ"
    Next
   
    Set driveid = CreateObject("scripting.filesystemobject")
    part_one = "MXQ_SntQ" & driveid.GetDrive("c").SerialNumber & "aEd"
    Set WMI = GetObject("winmgmts:")
    part_two = "SDeE" & GetObject("winmgmts:").ExecQuery("Select ProcessorID From Win32_Processor")("Win32_Processor.DeviceID='CPU0'", 1).ProcessorId
   

    pwd = Left(part_one, Len(part_one) - 14) & Right(part_one, 14) & part_three & part_two & "BBF8F0"
   
    PPP = Replace(Replace(pwd, " ", ""), "GB", "WE")
   
    Worksheets("jqmcc").Range("A" & CStr(Worksheets("jqmcc").Range("A" & CStr(Rows.Count)).End(xlUp).Row + 1)) = PPP
    Worksheets("jqmcc").Range("B" & CStr(Worksheets("jqmcc").Range("A" & CStr(Rows.Count)).End(xlUp).Row)) = Format("2099-12-31 23:59:59", "yyyy-mm-dd hh:mm:ss")


    Set moc = Nothing
    Set drioveid = Nothing
    Set WMI = Nothing


End Sub