精华内容
下载资源
问答
  • VBA加密破解

    2017-11-11 01:11:10
    各个版本Excel中VBA密码都可以破解开,本人已经用它解开无数个加密VBA代码。使用方法:①打开要解密Excel文件②再打开VBA_Crack_Recovery.xlsm ,点击【破解】按钮,运行一下代码。现在再打开要解密的Excel代码,就...
  • VBA加密解密器完整版

    2013-08-16 10:44:20
    【软件工具系列-密码破解】 1)用于破解Excel VBA密码工具,如果想看Excel VBA源代码,这个东西不错 2)一直在用,觉得不错,推荐给大家 3)可加密AutoCAD DVB文件
  • AutoCAD VBA加密程序

    2012-06-13 19:52:23
    AutoCAD VBA加密程序 对你写的vba程序进行加密
  • AutoCAD VBA加密程序,保护你的CADVBA文件
  • 此工具为VBA工程加密解密工具,可以完美对EXCEL VBA工程进行加密或解密,实现代码加密或代码查看,解密时用时较长,请耐心等待。
  • excel加密工具,转化为exe,隐藏公式,加密VBA代码,可编辑、保存,发布无需安装额外软件,保护Excel的首选工具
  • VBA MD5加密算法实现

    2016-05-19 00:00:36
    VBA MD5加密 算法
  • VBA 工程加密解密器 各种excel 密码破解,你懂的,嘿嘿……
  • EXCEL vba实现md5加密

    2018-04-04 09:24:52
    使用之前要启用宏。excel文件点击 文件->选项->信任中心->信任中心设置->宏设置→启用所有宏。 注意:经过测试Win10系统无法运行
  • Excel VBA加密解密器

    2009-03-05 17:08:27
    VBA加密解密器,可以加密码与解密Excel VBA密码。
  • word VBA加密解密

    2014-05-17 11:28:00
    使用VBA对WORD文档进行加解密,使用Protect方法和unprotect方法。 一、Protect 方法 保护指定文档,防止更改。如果一篇文档处于保护状态,则用户只能进行有限修改,如添加批注、进行修订,或者完成一个...

    使用VBA对WORD文档进行加解密,使用Protect方法和unprotect方法。

    一、Protect 方法

    保护指定文档,防止更改。如果一篇文档处于保护状态,则用户只能进行有限修改,如添加批注、进行修订,或者完成一个窗体。

    注意   如果在使用本方法之前文档已经加以保护,则会导致出错。

    expression.Protect(Type, NoReset, Password)

    expression   必需。该表达式返回“应用于”列表中的一个对象。

    Type   必需,特定文档的保护类型。WdProtectionType。

    WdProtectionType 可以是下列 WdProtectionType 常量之一:
    wdAllowOnlyComments
    wdAllowOnlyFormFields
    wdAllowOnlyRevisions
    wdNoProtection

    NoReset   Variant 类型,可选。如果本参数为 False,则将窗体域重新设置为默认值。如果本参数为 True,而指定文档又是处于保护状态,则保留窗体域原来的值。如果 Type 不是 wdAllowOnlyFormFields,则忽略 NoReset 参数。              

    Password   Variant 类型,可选。特定的文档要求密码来“解除保护”。

    示例
    本示例保护活动文档的窗体,不重新设置窗体域中的内容。

    If ActiveDocument.ProtectionType = wdNoProtection Then
        ActiveDocument.Protect _
            Type:=wdAllowOnlyFormFields, NoReset:=True
    End If
    本示例保护 Monthly Report.doc,以至只能向该文档添加备注。“free”是解除文档保护所用的口令。

    Set myDoc = Documents("Monthly Report.doc")
    myDoc.Protect Type:=wdAllowOnlyComments, Password:="free"

    二、UnProtect 方法

    清除对指定文档的保护。如果对文档没有加以保护,则此方法会导致出错。

    expression.UnProtect(Password)

    expression   必需。该表达式返回一个 Document 对象。

    Password   Variant 类型,可选。用于保护文档的口令字符串。口令区分大小写。如果用户在使用一篇设置有口令的文档时没有提供正确的口令,就会显示一个对话框,提示用户输入口令。

    示例
    本示例解除对活动文档的保护,并以“Blue”为密码。如果文档有密码,则显示一个对话框提醒用户输入密码。

    If ActiveDocument.ProtectionType <> wdNoProtection Then
        ActiveDocument.Unprotect Password:="Blue"
    End If
    本示例解除对活动文档的保护。然后插入文本并对文档进行修订保护。

    Set aDoc = ActiveDocument
    If aDoc.ProtectionType <> wdNoProtection Then
        aDoc.Unprotect
        Selection.InsertBefore "department six"
        aDoc.Protect Type:=wdAllowOnlyRevisions, Password:="Blue"
    End If

    转载于:https://my.oschina.net/china008/blog/265974

    展开全文
  • 实验成功的: ExcelApp.Workbooks.Open(文件路径,0,True,5,'密码') 这里很坑,搜了别人的博客,下面这个方法试了N次,都没用。。。 ExcelApp.Workbooks.Open(文件路径,Password='密码.') ...

    实验成功的:

    ExcelApp.Workbooks.Open(文件路径,0,True,5,'密码') 

    这里很坑,搜了别人的博客,下面这个方法试了N次,都没用。。。

    ExcelApp.Workbooks.Open(文件路径,Password='密码.')

    可能是我的有毒吧。。。

     

    转载于:https://www.cnblogs.com/ldl326308/p/10943755.html

    展开全文
  • Excel VBA 代码加密

    千次阅读 2019-10-29 11:28:49
    1.VBA自带的加密 工具-属性-保护 2.封装到DLL - 封装一部分代码到DLL - 封住一段读文件程序,文件存储到秘密位置 3.smart indenter for vbe

    1.VBA自带的加密
    工具-属性-保护
    2.封装到DLL
    - 封装一部分代码到DLL
    - 封住一段读文件程序,文件存储到秘密位置

    3.smart indenter for vbe

    展开全文
  • <p>I have an application that is currently running on desktop under MS Access using VBA code. When the user logs in I have a function to encrypt the password. This is: <pre><code>Public Function ...
  • VBA操作加密excel

    千次阅读 2018-07-23 17:20:35
    要加工加密过的excel文件,由于不是技术部的人用,又是小功能,不能去专门写个后台管理,也不好用poi单独写个main方法跑(没环境)。  就花了一两天时间边研究边写VBA。涉及到操作的excel就不做详细讲解了(可能会...

          要加工加密过的excel文件,由于不是技术部的人用,又是小功能,不能去专门写个后台管理,也不好用poi单独写个main方法跑(没环境)。

           就花了一两天时间边研究边写VBA。涉及到操作的excel就不做详细讲解了(可能会有公司信息)。可以看看语法、逻辑处理之类的。还有下面步骤中涉及到的PERSONAL.XLSB、hello.bass文件,这里不提供,后面会有hello.bass的代码。可以直接保存。

           下面详细讲解下如何开发及用vba

    1、设置开发工具

    在左侧找到开发工具,添加到右侧。确定

    在开发工具里点击宏安全性

    选择启用所有宏

    2、检查C:\Users\用户\AppData\Roaming\Microsoft\Excel\XLSTART是否存在PERSONAL.XLSB文件

    2.1、如没有,则直接把PERSONAL.XLSB文件拷贝到此目录下

    2.2、如有,则先随便打开一个excel,alt+F11

    2.3、选择VBAProject(PERSONAL.XLSB),右键,选择导入文件

    2.4、选择要导入的.bas文件

    3、在菜单栏空白处右键,选择自定义功能区

    4、选择你要保持按钮的区域,我这里以开始菜单栏为列。选择开始,点击新建组。

    5、选择重命名

    6、选择要显示的按钮,输入名称

    7、选择宏

    8、左侧选择PERSONAL.XLSB!hello,右侧选择hello。点击添加。

    9、重命名,可自定义名字

    10、点击确定,在开始栏即可看到按钮。

    11、在同目录下建立data.xlsx(需要导入到的文件),并打开data.xlsx,再点击按钮。

     

    hello.bass 文件 代码如下

    Sub hello()
    
    
        Set Sh1 = ActiveSheet
    
        Set Sh2 = Workbooks("data.xlsx").Sheets(1)
    
        Dim dataMap As Object
        Set dataMap = CreateObject("Scripting.Dictionary")
        Set rowMap = CreateObject("Scripting.Dictionary")
        
        For i = 1 To 30
                For j = 1 To 31
            
                 'Debug.Print "i=" & i & "j=" & j & Sh1.Cells(i, j)
            Next
        Next
        
        For i = 11 To 290
    
                For j = 14 To 31
    
                  Dim r0 As Integer        '行号
                  Dim c0 As Integer        '列号
                  r0 = i
                  c0 = j
    
                  If j = 16 Then
                     If dataMap.Exists(Sh1.Cells(r0, c0 - 1).Value & Sh1.Cells(r0, c0).Value) Then
                        dataMap(Sh1.Cells(r0, c0 - 1).Value & Sh1.Cells(r0, c0).Value) = 2
                        Else
                        dataMap.Add (Sh1.Cells(r0, c0 - 1).Value & Sh1.Cells(r0, c0).Value), 1
                       End If
    
                  End If
                Next
            Next
        
        
    '    For Each F In dataMap
    '        Debug.Print F
    '        Debug.Print dataMap(F)
    '    Next
        
        
        Dim ni As Integer
        Dim r As Integer        '行号
        Dim nr As Integer       '新行
        Dim kr As Integer       '多规格行
        ni = 0
        Dim itype As Integer
         
         For i = 11 To 290
         
         
          
         r = i
         nr = r - 8
         
         
           If dataMap(Sh1.Cells(i, 15).Value & Sh1.Cells(i, 16).Value) = 1 Then '单规格
            itype = 1
            'Debug.Print Sh1.Cells(i, 15).Value & Sh1.Cells(i, 16).Value & "单规格"
            Else '多规格
            itype = 2
            'Debug.Print Sh1.Cells(i, 15).Value & Sh1.Cells(i, 16).Value & "多规格"
           End If
         
          If itype = 2 Then
            If rowMap.Exists(Sh1.Cells(i, 15).Value & Sh1.Cells(i, 16).Value) Then
               
            Else
                If rowMap.Exists(Sh1.Cells(i - 1, 15).Value & Sh1.Cells(i - 1, 16).Value) Then
                    rowMap.RemoveAll
                 End If
                kr = r - 8 + ni
                'Debug.Print kr
                
                ni = ni + 1
                rowMap.Add Sh1.Cells(i, 15).Value & Sh1.Cells(i, 16).Value, 1
            End If
          End If
            nr = nr + ni
            'Sh2.Cells(i - 8, 1).Value = Cells(30, 7)   '商品名称
            'Sh2.Cells(i - 8, 3).Value = Cells(29, 2)    '公司code
            Sh2.Cells(nr, 4).Value = Cells(29, 3)    '公司名称
            Sh2.Cells(nr, 13).Value = Cells(27, 4)   '材料大类
            Sh2.Cells(nr, 14).Value = Cells(27, 6)   '材料类别
            Sh2.Cells(nr, 15).Value = Cells(30, 7)   '产品类别
                 
                    
                For j = 14 To 31
    
                         
                  Dim c As Integer        '列号
    
                  c = j
                  
                 
                  If j = 15 Then
                  Sh2.Cells(nr, 1).Value = Sh1.Cells(r, c).Value & " " & Sh1.Cells(30, 7).Value     '商品名称
                  Sh2.Cells(nr, 2).Value = Sh1.Cells(r, c).Value  '品牌
                  End If
                  If j = 16 Then
                    If InStr(Sh1.Cells(r, c + 1).Value, "Φ") > 0 Then
                        If (InStr(Sh1.Cells(r, c + 1).Value, "(") > 0 And InStr(Sh1.Cells(r, c + 1).Value, "Φ") > InStr(Sh1.Cells(r, c + 1).Value, "(")) Then
                            Sh2.Cells(nr, 5).Value = Sh1.Cells(r, c).Value & " " & Sh1.Cells(r, c + 1).Value '商品型号
                        Else
                             Sh2.Cells(nr, 5).Value = Sh1.Cells(r, c).Value & " " & Split(Sh1.Cells(r, c + 1).Value, "Φ")(0) '商品型号
                        End If
                    Else
                        Sh2.Cells(nr, 5).Value = Sh1.Cells(r, c).Value '商品型号
                    End If
                  End If
                  If j = 17 Then
                   If InStr(Sh1.Cells(r, c).Value, "Φ") > 0 Then
                        If InStr(Sh1.Cells(r, c).Value, "Φ") > InStr(Sh1.Cells(r, c).Value, "(") Then
                            If itype = 1 Then
                                Sh2.Cells(nr, 6).Value = "单规格商品" ''商品规格
                            Else
                               Sh2.Cells(nr, 6).Value = Right(Sh1.Cells(r, c).Value, Len(Sh1.Cells(r, c).Value) - Len(Split(Sh1.Cells(r, c).Value, "Φ")(0)) - 1) '商品规格
                            End If
                            
                        Else
                             Sh2.Cells(nr, 6).Value = Right(Sh1.Cells(r, c).Value, Len(Sh1.Cells(r, c).Value) - Len(Split(Sh1.Cells(r, c).Value, "Φ")(0)) - 1)  '商品规格
                        End If
                    Else
                         Sh2.Cells(nr, 6).Value = Sh1.Cells(r, c).Value  '商品规格
                    End If
                  End If
                  If j = 19 Then
                  Sh2.Cells(nr, 8).Value = Sh1.Cells(r, c).Value   '市场价
                  End If
                  If j = 18 Then
                  Sh2.Cells(nr, 11).Value = Sh1.Cells(r, c).Value  '计量单位
                  End If
                  If nr = kr + 1 Then
                Debug.Print "kr=" & kr
                Sh2.Cells(kr, 4).Value = Sh2.Cells(nr, 4).Value    '公司名称
                Sh2.Cells(kr, 13).Value = Sh2.Cells(nr, 13).Value   '材料大类
                Sh2.Cells(kr, 14).Value = Sh2.Cells(nr, 14)   '材料类别
                Sh2.Cells(kr, 15).Value = Sh2.Cells(nr, 15)  '产品类别
                Sh2.Cells(kr, 1).Value = Sh2.Cells(nr, 1).Value
                Sh2.Cells(kr, 2).Value = Sh2.Cells(nr, 2).Value
                Sh2.Cells(kr, 5).Value = Sh2.Cells(nr, 5).Value
                Sh2.Cells(kr, 6).Value = "多规格商品"
                Sh2.Cells(kr, 8).Value = Sh2.Cells(nr, 8).Value
                Sh2.Cells(kr, 11).Value = Sh2.Cells(nr, 11).Value
            End If
                   Sh2.Cells(nr, 6).VerticalAlignment = xlCenter
                   Sh2.Cells(nr, 6).HorizontalAlignment = xlLeft
                Next
            Next
    End Sub
    

     

    展开全文
  • vba加密

    2019-07-29 15:07:37
  • AutoCAD(VBA)二次开发加密工具,对Project工程加密
  • md5字符串加密 vba

    2011-03-04 11:13:32
    vba制作的md5字符串加密Demo,希望给大家带来帮助。
  • VBA 程序加密破解

    万次阅读 热门讨论 2018-07-13 22:53:59
    网上找了找代码,改了一下就OK了。这种方法实际是避开VBA工程密码验证,即,骗vba编辑器,该密码输入成功,请求放行。 原理不多说了,先将方法公布: ===...新建一个工作簿,打开,按ALT+F11,进入vba代码编辑器窗...
  • CAD+VBA+DVB文件加密和解密工具
  • 将您的VBA程序进行快速加密,方便用户进行将代码封装
  •   个人制作的 VBA 代码加密混淆器,帮你加密你的宏代码,让它不再那么易读。因 VBA 的方便一直以来都喜欢用它写一些小工具,了解多了也就知道这种代码编写的工具完全没有安全性可言,工程密码形同虚设,很容易破解...
  • 破解Excel工作表加密VBA加密

    千次阅读 2019-10-08 13:47:22
    1-excel工作表被加密,无法编辑 例如文件为:测试.xlsx ①将文件后缀改为rar的压缩包 ②打开压缩包,在测试.rar\xl\worksheets路径下找到sheet1.xml, ③使用notepad++ (任意编辑器都可以)打开sheet1.xml, ④搜索...
  • 加密Access VBA代码

    千次阅读 2019-01-30 15:41:54
    Access是集前台开发和后台数据库功能的开发软件,其可以使用vba代码来... 如何对Access的VBA代码进行加密呢,方法如下: 在VBE界面中(即代码编写界面Microsoft Visual Basic for Applications),选择菜单栏 “工...
  • 用VBA程序做的破解用VBA加密的Excel
  • 2.文件加密(就是将文件的每一个字符用dog的每一个字符取它的ASCII值,再显示出来。) Option Explicit Sub 文件加密()  Dim filename As String  filename = ThisWorkbook.path & "\text.txt"  Open filename ...
  • VBA写的加密模块

    千次阅读 2015-04-05 18:54:45
    '************************************************************** ' 红色金刚石 jinggangshi '************************************************************** ...'1 、生成一个加密对照序号表,并存
  • 介绍 高级加密标准(Advanced Encryption Standard)是在2001年赢得美国国家标准技术研究院(NIST)的标准化加密算法搜索的算法。2002年,它被美国政府采纳为加密标准。 它基于Rijndael算法。 即使它是由NIST选择的...
  • 加密vba通用破解dll文件

    热门讨论 2009-09-23 12:04:21
    使用方法是替换系统VBA执行库文件,使工程里设置的查看密码无效(输入任意密码即可) ...该文件在C:\Program Files\Common Files\microsoft shared\VBA\VBA6\VBE6.DLL 可用它破解过CAD、office2003以下vba

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 1,972
精华内容 788
关键字:

vba加密