具才软件 教育综合 学科资源 具才视界 站主习作
工具软件 图片频道 本站消息 电脑手机 故乡渭源

当前位置:具才苑资料频道具才习作信息技术


Excel作品的保护方法

作者:陈具才  来源:本站整理
发布/更新时间:2012-10-04 15:12:26



  如果你是Excel开发爱好者,当你辛辛苦苦开发出程序作品后,是不是想过怎样来保护好程序的源代码呢?遗憾的是,Excel不像其他的开发软件一样,在加密上很容易被各种密码破解软件破译。尽管这样,我们也应尽可能来保护Excel工作簿和VBA源码。下面是笔者自己用过的或是从网上搜集到的几种方法,贡献出来与大家分享!
  一、为VBA工程设置密码
  限制别人查看VBA源代码的一个简单办法就是设置VBA工程密码或设置工程不可查看。方法如下:
  1、按Alt+F11,在VBE窗口在,单击“工具—VBAproject属性”,打开“VBAproject属性”对话框。
  2、单击“VBAproject属性”对话框中的“保护”选项卡。选中“查看时锁定工程”复选框。在“密码”框中输入保护密码,在“确认密码”框中再输入一次密码,然后单击“确定”,关闭“VBAproject属性”对话框。
  3、保存并关闭工作簿。
  当你再打开该工作簿后,打开VBE窗口时,就不再显示VBA的窗体、模块等对象,看不到VBA源代码了。
  ★提示:这种密码保护很容易破解。★
  二、设置工程不可查看
  限制别人查看VBA源代码的方法就是设置“工程不可查看”。方法如下:
共享级锁定:先对Excel文件的“VBAProject工程”进行密码保护(参考“为VBA工程设置密码”)。再打开要保护的文件,单击“工具_保护_保护并共享工作簿_以追踪修订方式共享”,输入保护密码再保存文件。当你得新打开“VBAProject”工程属性时,就将会提示:“工程不可看!”
  破坏型锁定:用16进制编辑工具(如WinHex等)打开Excel文件,查找定位以下地方: ID="{00000000-0000-0000-0000-000000000000}"(注:实际显示不会全部为0),此时,你只要将其中的字节随便修改一下即可。
  ★提示:在修改前最好做好你的文档备份。当然这种方法也可破解的,因为加密总是相对。★
  三、防止强制中断方式查看VBA代码
  有时,我们可以通过运行程序,然后在运行的过程中强制按“Ctrl+Break”强制中断程序运行,进VBE编辑器查看源码。为此,我们可以在工作簿的open事件中加入以下语句来屏蔽“Ctrl+Break”组合键:
  Application.EnableCancelKey = xlDisabled
  如果要恢复“Ctrl+Break”组合键,则用下面的语句:
  Application.EnableCancelKey = xlInterrupt
  四、禁用宏则关闭Excel文件
  当打开含有宏的文件时,如果“禁用宏”并打开文件后,所有编辑的VBA程序将失效。如何当用户打开Excel文件并禁用宏时,让文件自动关闭呢?
  我们可以通过调用Excel4.0版(Excel的一个老版本)的宏命令来解决这个问题。因为“禁用宏”功能无法禁用4.0版本的宏。当您设置完成,再打开文件并点击禁用宏时,系统就会弹提示信息:对不起,由于你未启用宏,本文件将关闭。单击“确定”后文件就会自动关闭。
  设置步骤和使用方法:
  (1)打开要设置的文件,在VBE编辑器中添加一个模块。写入以下代码:
  Function NoRunMacro ()  ’A3单元格中的字符
  End Function
  (2)在任一个工作表标签上单元格右键,执行“插入”命令打开对话框,在常用选项卡中选取“MS Excel4.0宏表”项,然后单击“确定”按钮,在当前工作簿中就会新建一个默认名Macro1的“宏表”,更改表名为“宏表1”。
  在宏表的以下单元格中输入公式:
  A2单元格: =ERROR(FALSE)
  A3单元格: =RUN("MY")
  A4单元格: =IF(ISERROR($A$3))
  A5单元格: =GOTO($A$11)
  A6单元格: =END.IF()
  A7单元格: =ERROR(TRUE)
  A8单元格: =RETURN()
  A11单元格:=ALERT("对不起!由于禁用了宏,本文件将自动关闭!",3)
  A12单元格:=FILE.CLOSE(FALSE)
  A13单元格:=RETURN()
  (3)逐个选取工作簿中其他工作表,然后执行【插入】/【名称】/【定义】命令,打开【定义名称】对话框。在“在当前工作簿中的名称”框中输入:工作表名称+Auto_Activate。如在Sheet1工作表中打开【定义名称】对话框,定义的名称就为:Sheet1!Auto_Activate。然后在引用位置文本框中输入:=宏表1!$A$2。
  ★提示:对于一个工作表数量较多的工作表逐个设置会很麻烦。所以这时可以只需为其中一个设置名称,但要保障“当打开工作簿时,必需是设置名称的工作表处于选取状态”。另外,这种措施在Excel2003上是有效的,在2007/2010上笔者未试过。★
  五、限制工作簿的使用次数,超过次数就自我删除
  限制工作簿的使用次数,超过次数就自我删除,也不失为保护作品的一种好方法。但这种方法需要修改注册表。
  有关程序的代码如下:
Private Sub Workbook_Open()
Dim counter As Long, term As Long, chk
chk = GetSetting("hhh", "budget", "使用次数", "")
If chk = "" Then
term = 50 '限制使用50次
MsgBox "本工作簿只能使用" & term & "次" & vbCrLf & "超过次数将自动销毁!", vbExclamation
SaveSetting "hhh", "budget", "使用次数", term
Else
counter = Val(chk) - 1
MsgBox "你还能使用" & counter & "次,请及时注册!", vbExclamation
SaveSetting "hhh", "budget", "使用次数", counter
If counter <= 0 Then
DeleteSetting "hhh", "budget", "使用次数"
killme
End If
End If
End Sub

Public Sub killme()
Application.DisplayAlerts = False
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ThisWorkbook.Close False
End Sub
  将上述程序复制到工作簿的ThisWorkbook对象模块中,保存文件即可。
  ★提示:使用该方法也可以限制工作簿的使用时间
 

[]



本栏最新

  • 学校招生,网上报名,高...
  • 如何关闭微信个性化广告...
  • 如何让含有特殊字体的文...
  • 微信文件传输助手怎么用...
  • 如何批量制作荣誉证书
  • 用Word2010/2003制作试卷...
  • Excel表格的行列数据转置...
  • 师生信息查询系统的研发...
  • 轻松移除Excel工作表保护...
  • 学生通家书制作系统研发...
  • Excel作品的保护方法
  • 电子白板教学的美中不足...
  • 用VB6简单封装excel
  • 帮你理解常见“网语”
  • 如何找回误删除的文件
  • 如何才能快速成为Excel高...
  • 本栏热点

  • 用Word2010/2003制作试卷...
  • 如何批量制作荣誉证书
  • 用Excel编制自动分班软件...
  • 用VB6简单封装excel
  • 几何画板中复杂动画的制...
  • 如何救活“电脑假死机”...
  • 如何把Word文件变成JPG图...
  • 轻松移除Excel工作表保护...
  • Excel打印技巧介绍
  • 微信文件传输助手怎么用...
  • 帮你理解常见“网语”
  • Excel表格的行列数据转置...
  • 如何才能快速成为Excel高...
  • 如何找回误删除的文件
  • 如何让含有特殊字体的文...
  • Excel作品的保护方法
  • 学生通家书制作系统研发...
  • 电子白板教学的美中不足...
  • 师生信息查询系统的研发...
  • 如何关闭微信个性化广告...
  • 学校招生,网上报名,高...
  • 最新资料

  • 大气磅礴的领导讲话排比...
  • 正确处理教学与教研关系...
  • 能“叫醒”一个人的,是...
  • 熊孩子是惯出来的,好孩...
  • ××小学教学常规精细化...
  • 别人的屋檐再大,都不如...
  • 渭源古城记忆
  • 再优秀的老师,也弥补不...
  • 论怎样上好高三试卷讲评...
  • 如何上好试卷讲评课?
  • 听课记录到底应该记什么...
  • 一位生活简朴到“另类”...
  • 如何缓解孩子对教育的焦...
  • 笨人自有笨人的光辉
  • 中国历史上十大兵家必争...
  • 52个教师常用网站
  • 甘肃省中小学教师减负清...
  • 退休打油诗
  • 中国科技核心期刊目录(...
  • 中国的自然之最和古建筑...
  • 尖子生培养的一些做法
  • 赞美各学科老师的对联
  • 常自省,能自律,懂自愈...
  • 永远不要与人性为敌
  • 缺德之人的四大特征
  • 高考百日誓师大会被网暴...
  • 探访木寨岭特长隧道:中...
  • 心态对了,一切都顺了
  • 习惯把洋芋叫洋芋
  • 2023中国最新10大科技出...
  • 人生五劝
  • 不生气,不抱怨,不强求...
  • 只要皱纹不长进心里,我...
  • 寒风阵阵,去哪里泡温泉...
  • 跟对人,走对路,做对事...
  • 南墙服人,磨难醒人
  • 教室管理的52个有效工具...
  • 教育部关于全面实施学校...
  • 致教师 致学生 致家长 致...
  • 人生五难

  • 全站导航

    软件频道

    具才软件 工具软件

    资料频道

    ┌─── 本站视界───┐

    世事观察 茶余饭后 做人有道
    名家论道 时势聚焦 酸甜苦辣
    涉猎有益 老年生活 多彩世界
    人生领悟 定西甘肃 抗击疫情

    ┌───具才习作───┐

    数学教研 教育思考 高考探索
    管理拾零 人生记录 社会视角
    信息技术    

    ┌───故乡渭源───┐

    渭源历史 渭源当今 渭源儿女
    靓文摘发 南坪文丛 维和记事

    ┌───教育综合───┐

    政策条规 学校管理 工作博览
    教师参考 教学常规 教育探究
    教育万象 高考关注 家校共育

    ┌───学科资源───┐

    数学资源 数学参考 语文资源
    英语资源 理综资源 文综资源
    多科综合    

    ┌───站内消息───┐

    站主消息 站务信息

    ┌───电脑手机───┐

    操作系统 软件应用

    图片频道

    学习交流 合作共事 天伦之乐 为照而照
    良师益友 省外旅行 省内游玩 奇妙自然

     


    站主其人 | 网站帮助 | 下载声明 | 网站地图 | 友情链接


      具才苑是一个主要以中小学教师、师范类学生、中老年朋友为主要服务对象,教学资源丰富,兼顾社会关注问题的小型综合网站。具才苑是所有具才软件的首发官方网站,因此在这里下载的具才软件才是最新最可靠的。具才苑资源全部免费下载。因手机浏览者越来越多,本站作了全新改版,力求手机、电脑用户都能使用。如因此给您带来不便,深表歉意!