超级记事本-EXCEL用来做个人简单管理系统也不错 

今天遇到一个excel小工具感觉不错，想研究研究代码，竟然有密码，我就不淡定了。网上找了找代码，改了一下就OK了。接下来通过本文给大家分享两种方式破解VBA工程加密，需要的朋友参考下吧两种方式破解VBA加密代码第一种：Sub VBAPassword1() '你要解保护的Excel文件路径Filename = Application.GetOpenFilename("Excel文件（*.xls & *.xla & *.xlt）,*.xls;*.xla;*.xlt", , "VBA破解")If Dir(Filename) = "" ThenMsgBox "没找到相关文件,清重新设置。"Exit SubElseFileCopy Filename, Filename & ".bak" '备份文件。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 IfDim 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, "提示"Close #1End Sub第二种：Option ExplicitPrivate Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Long, Source As Long, ByVal Length As Long)Private Declare Function VirtualProtect Lib "kernel32" (lpAddress As Long, ByVal dwSize As Long, ByVal flNewProtect As Long, lpflOldProtect As Long) As LongPrivate Declare Function GetModuleHandleA Lib "kernel32" (ByVal lpModuleName As String) As LongPrivate Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As LongPrivate Declare Function DialogBoxParam Lib "user32" Alias "DialogBoxParamA" (ByVal hInstance As Long, ByVal pTemplateName As Long, ByVal hWndParent As Long, ByVal lpDialogFunc As Long, ByVal dwInitParam As Long) As IntegerDim HookBytes(0 To 5) As ByteDim OriginBytes(0 To 5) As ByteDim pFunc As LongDim Flag As BooleanPrivate Function GetPtr(ByVal Value As Long) As LongGetPtr = ValueEnd FunctionPublic Sub RecoverBytes()If Flag Then MoveMemory ByVal pFunc, ByVal VarPtr(OriginBytes(0)), 6End SubPublic Function Hook() As BooleanDim TmpBytes(0 To 5) As ByteDim p As LongDim OriginProtect As LongHook = FalsepFunc = GetProcAddress(GetModuleHandleA("user32.dll"), "DialogBoxParamA")If VirtualProtect(ByVal pFunc, 6, &H40, OriginProtect) <> 0 ThenMoveMemory ByVal VarPtr(TmpBytes(0)), ByVal pFunc, 6If TmpBytes(0) <> &H68 ThenMoveMemory ByVal VarPtr(OriginBytes(0)), ByVal pFunc, 6p = GetPtr(AddressOf MyDialogBoxParam)HookBytes(0) = &H68MoveMemory ByVal VarPtr(HookBytes(1)), ByVal VarPtr(p), 4HookBytes(5) = &HC3MoveMemory ByVal pFunc, ByVal VarPtr(HookBytes(0)), 6Flag = TrueHook = TrueEnd IfEnd IfEnd FunctionPrivate Function MyDialogBoxParam(ByVal hInstance As Long, _ByVal pTemplateName As Long, ByVal hWndParent As Long, _ByVal lpDialogFunc As Long, ByVal dwInitParam As Long) As IntegerIf pTemplateName = 4070 ThenMyDialogBoxParam = 1ElseRecoverBytesMyDialogBoxParam = DialogBoxParam(hInstance, pTemplateName, hWndParent, lpDialogFunc, dwInitParam)HookEnd IfEnd FunctionSub Crack()If Hook Then MsgBox "破解成功"End Sub

【功能模块】vba调用【操作步骤&问题现象】1、vba调用失败，本表的vba调用【截图信息】【日志信息】（可选，上传日志内容或者附件）能否给个执行excel宏的操作

WPS有一个付费功能：可以根据某个xlsx文件的某列的内容不同，将一个大的xlsx根据某列里不同的内容拆分为多个小的xlsxWPS打开xlsx文件后，右键这个sheet页的名字，然后选择拆分表格，再选择工作表即可。附件的VBA脚本是参考了这个vba脚本。将EXCEL表格数据拆分成多个文件https://zhuanlan.zhihu.com/p/437912574上面的VBA脚本只能是拆分固定的行数，附件的脚本是可以根据A列不同来拆分，可以用到有需要的RPA场景。也可以用WeAutomate的插件来完成WPS此功能的控件。应用场景分享——根据某Excel某列分割为多个Excelhttps://bbs.huaweicloud.com/forum/thread-182275-1-1.html

在调用外部vba函数中遇到如下报错，报错原因可能是需要将函数参数使用引号包裹，如："@{sheetname}","@{sheetRange}"

目前看到有额外对自动化支持的企业软件不算多。我们常用到的Office系列是具备的。微软对Office提供了宏的支持，帮助用户完成自动化，宏的本质是VBA代码。微软将VB进行封装和改造，诞生了VBA，让其聚焦于Office领域，充当Office下的自动化脚本。RPA产品中的操作Excel、Word、PPT的相关功能组件，也通常有基于VBA来去实现。还有的就是SAP，这款著名的ERP软件，具备对自动化的支持。它支持VBS，来操作SAP界面，实现自动化。各大RPA产品中封装的SAP组件，通常也是通过SAP自带的脚本支持，来完成自动化。具备脚本自动化的企业软件，更有利于RPA实现自动化。不支持脚本自动化的软件，只能通过元素定位、图片识别定位，然后通过模拟鼠标和键盘的方式操作。在我之前的视频中，有讲到，模拟鼠标和键盘是RPA优先级最低的选项。模拟鼠标和键盘是运行于电脑前台的方式，而自动化脚本是运行于后台的方式。后台方式执行效率更高，速度更快，也更加稳定。在知名咨询公司“艾瑞咨询“发布的2020中国RPA行业报告中，指出RPA在中国的未来3年的年增长率，将超过70%。RPA在各大行业的渗透率增加，未来企业在采购企业软件时，会比现在多增加一个对比和考虑的维度——是否支持脚本自动化。支持脚本自动化的企业软件，将更有利于RPA的操控。在目前，企业都是从RPA产品对某企业软件支持程度来选择RPA。未来，可能是企业从某企业软件是否支持自动化脚本，对某款RPA支持是否友好，来选择企业软件了。关注我了解更多RPA小知识。