怎么查看excel的VBA代码？

按住ALT+F11d出VBA编辑器。\x0d\x0a只是要破解么？\x0d\x0a新建一个Excel工作簿,Alt+F11 打开VBA编辑器,新建一个模块 ,复制以下代码,注意如提示变量未定义,则把Option Explicit行裂搏删除即可,经测试已经通过.\x0d\x0a'移除VBA编码保护\x0d\x0aSub MoveProtect()\x0d\x0aDim FileName As String\x0d\x0aFileName = Application.GetOpenFilename("Excel文件（*.xls &*.xla）,*.xls*.xla", , "VBA破解肆兆祥")\x0d\x0aIf FileName = CStr(False) Then\x0d\x0a Exit Sub\x0d\x0aElse\x0d\x0a VBAPassword FileName, False\x0d\x0aEnd If\x0d\x0aEnd Sub\x0d\x0a'设置VBA编码保护\x0d\x0aSub SetProtect()\x0d\x0aDim FileName As String\x0d\x0aFileName = Application.GetOpenFilename("Excel文件（*.xls &*.xla）,*.xls*.xla", , "VBA破解")\x0d\x0aIf FileName = CStr(False) Then\x0d\x0a Exit Sub\x0d\x0aElse\x0d\x0a VBAPassword FileName, True\x0d\x0aEnd If\x0d\x0aEnd Sub\x0d\x0aPrivate Function VBAPassword(FileName As String, Optional Protect As Boolean = False)\x0d\x0a If Dir(FileName) = "" Then\x0d\x0a Exit Function\x0d\x0a Else\x0d\x0a FileCopy FileName, FileName &".bak"\x0d\x0a End If\x0d\x0a Dim GetData As String * 5\x0d\x0a Open FileName For Binary As #1\x0d\x0a Dim CMGs As Long\x0d\x0a Dim DPBo As Long\x0d\x0a For i = 1 To LOF(1)\x0d\x0a Get #1, i, GetData\x0d\x0a If GetData = "CMG=""" Then CMGs = i\x0d\x0a If GetData = "[Host" Then DPBo = i - 2: Exit For\x0d\x0a Next\x0d\x0a If CMGs = 0 Then\x0d\x0a MsgBox "请先对VBA编码设置一个保护密码...", 32, "提猜仿示"\x0d\x0a Exit Function\x0d\x0a End If\x0d\x0a If Protect = False Then\x0d\x0a Dim St As String * 2\x0d\x0a Dim s20 As String * 1\x0d\x0a '取得一个0D0A十六进制字串\x0d\x0a Get #1, CMGs - 2, St\x0d\x0a '取得一个20十六制字串\x0d\x0a Get #1, DPBo + 16, s20\x0d\x0a '替换加密部份机码\x0d\x0a For i = CMGs To DPBo Step 2\x0d\x0a Put #1, i, St\x0d\x0a Next\x0d\x0a '加入不配对符号\x0d\x0a If (DPBo - CMGs) Mod 2 0 Then\x0d\x0aPut #1, DPBo + 1, s20\x0d\x0a End If\x0d\x0a MsgBox "文件解密成功......", 32, "提示"\x0d\x0a Else\x0d\x0a Dim MMs As String * 5\x0d\x0a MMs = "DPB="""\x0d\x0a Put #1, CMGs, MMs\x0d\x0a MsgBox "对文件特殊加密成功......", 32, "提示"\x0d\x0a End If\x0d\x0a Close #1\x0d\x0aEnd Function

左上角的区域能看到模板，大多数代码均在模板里面，你选择相对应的模板就能宏答看到。

与控件相关的代码可以选择控件，然后右键点击“查看代码”来查看。[最佳答案] 打开代码窗口的三种方法： （1）选中工程窗口中的一个窗体或标准模块，并单击“查看代码按钮”。 （2）双击窗体窗口的控件或窗体本身。 （野绝袜3）单击“视图”菜单中的“代码窗口”命令。 不能打开对象窗口的 *** 作是A 按下F2打开颂激的是“对象浏览器”窗口打开vba6chs.msi安装程序

2/3

开始安装VBA。

3/3

安装VBA完成。

---