关于project破解，project破解版产品密钥这个很多人还不知道，今天小华来为大家解答以上的问题，现在让我们一起来看看吧！

project破解 project破解版产品密钥

1、可能是这个宏使用了附加控件，或引用，你在复制时可将包含这个文件的文件夹全部自制过去试试，如果不行，就调VB编辑器，通过“工具”—“附加控件”，看宏使用了哪些附加控件，然后现通过Windows查找，找到所附加的控件，一同复制到新机子上。

2、注册一下就可用了如果宏加了密码。

3、不能查看宏。

4、请用下面的方法。

5、新建一个Execl文件。

6、Alt+f11打开编辑器。

7、将下面的这段代吗复制进去，然后运行。

8、找到要破解的文件，去除其保护。

9、然后再像上面一样设置——————————Private Sub VBAPassword()'你要解保护的Excel文件路径Filename = Application.GetOpenFilename("Excel文件（*.xls & *.xla & *.xlt）,*.xls;*.xla;*.xlt", , "VBA破解")If Dir(Filename) = "" ThenMsgBox "没找到相关文件,清重新设置。

10、"Exit SubElseFileCopy Filename, Filename & ".bak" '备份文件。

11、End IfDim GetData As String * 5Open Filename For Binary As #1Dim CMGs As LongDim DPBo As LongFor i = 1 To LOF(1)Get #1, i, GetDataIf GetData = "CMG=""" Then CMGs = iIf GetData = "[Host" Then DPBo = i - 2: Exit ForNextIf CMGs = 0 ThenMsgBox "请先对VBA编码设置一个保护密码...", 32, "提示"Exit SubEnd IfIf Protect = False ThenDim St As String * 2Dim s20 As String * 1'取得一个0D0A十六进制字串Get #1, CMGs - 2, St'取得一个20十六制字串Get #1, DPBo + 16, s20'替换加密部份机码For i = CMGs To DPBo Step 2Put #1, i, StNext'加入不配对符号If (DPBo - CMGs) Mod 2 <> 0 ThenPut #1, DPBo + 1, s20End IfMsgBox "文件解密成功......", 32, "提示"End IfClose #1End Sub。

本文到这结束，希望上面文章对大家有所帮助。