禁止打开Excel VBE窗口

后来仔细想了想该方法并没有所谓的防止查看和修改代码的作用,因为只要限制了宏功能或者不信任对VBA工程对象模型的访问就可以限制该功能从而打开VBE窗口。 禁止打开VBE窗口,可以防止查看和修改代码。 运行机理:在打开事件中添加windows监视,一旦VBE打开,就运行VBEwindow过程,并调用CheckVBE_Event过程强制...

       时间 : 2015-02-20| 栏目 : 案例专题| 浏览 : 3,263 次| 评论关闭 [阅读全文]

    过日期后自动删除Excel

    打开Excel时自动运行程序,将当前时间与设置的时间进行比较,如果超时的话就将工作簿自动删除,可以起到设置使用期限的作用。 Private Sub Workbook_Open()If Now() >= #2/12/2015# ThenActiveWorkbook.ChangeFileAccess xlReadOnlyKill Ac...

         时间 : 2015-02-16| 栏目 : 案例专题| 浏览 : 4,545 次| 评论 : [阅读全文]

      下载百度地图搜索结果

      看个网抓的例子。 在百度地图搜索杭州,然后在杭州搜索关键词“母婴店”,现在要将搜索得到的结果提取出来,这里只提取店名,地址和电话。 Sub BaiDuMap() Dim winhttp, URL, arr, i, j, p, t, objSC, strJSON, objJSON, pages, n, strFunc, jsonI...

           时间 : 2015-02-16| 栏目 : 网页采集| 浏览 : 3,674 次| 评论关闭 [阅读全文]

        利用高级筛选做查询

        这节讲下用VBA自动实现高级筛选功能。利用高级筛选就可以做出一个简单的查询功能,在对应的表头下输入要查询的内容就可以得到相应的结果。 Sub Search() Range("A4").CurrentRegion.ClearContents Sheets("Sheet1").Range("A1:D9").AdvancedFilter ...

             时间 : 2015-02-12| 栏目 : 案例专题| 浏览 : 3,193 次| 评论 : [阅读全文]

          同一列中禁止输入重复值

          在工作中有时需要保证输入数据的唯一性,这节来讲下该功能的实现方法。 第一种方法是可以通过设置数据有效性来实现,选中A列,数据-数据有效性-设置-自定义,输入公式"=COUNTIF(A:A,A1)=1",确定。其原理就是在输入一个数据时统计该列该数据的个数,只有个数为1的时候才说明这是该列的唯一值。但这个方法有个问题是只支持手动输入数...

               时间 : 2015-02-11| 栏目 : 案例专题| 浏览 : 3,155 次| 评论 : 2 [阅读全文]

            简单的按权限登陆实例

            在多个人对同一个工作簿进行操作的时候可能需要给不同的用户设置不同的权限,同过VBA可以初步实现这一功能,不过VBA的密码只能提供一个初步的保护,有点基础的人可以很容易的破解,所以通过VBA来编写的登陆权限可以说是防君子不防小人,平时自己用用就可以了,这里主要给大家提供思路。 实现不同权限登陆是利用了Excel本身的保护功能和工作表的...

                 时间 : 2015-02-10| 栏目 : 案例专题| 浏览 : 3,397 次| 评论 : [阅读全文]