用winrar将Excel封装成exe

toad13 · 发表于 2011-5-3 17:26

楼主的想法也许可以这样应用，设计好execl表格，然后将里面所生成和得出的数据保存至acc数据库，execl表格vba设计只为录入数据和调出数据用。这样估计出错的几率就不会太大了，数据更新问题就好解决了。数据库可以单独加密或者设置成mde格式。这个压缩包里也可以加一个脚本程序，解压后先运行脚本程序跳过execl的宏提示直接打开有宏的表格，这样就更像.exe文件了。这个是本论坛上网友做的一个，楼主看看有没有帮助

RunMacro.rar (417 Bytes, 下载次数: 65) ，解压后和表格一起创建自解压文件，然后设置RunMacro.vbs为解压后运行程序。
将vba封装成dll无疑是最好的保密方法，但是封装调试过程太过麻烦。现在也没弄太好。个人觉得用win加密也可以算是一个高效率加密的方式吧。毕竟平时做的一些代码只是为了使用方便而不是为了发行上市，所以个人感觉写代码的好手不一定都得死扣封装dll，有一些简单的方式可以尽可能的保护我们的vba还是值得研究一下的。
至少我现在是没耐心做dll了，在论坛里学了半年还是一头雾水啊，学vba才用了不到半年就以做够应付我平日的需要了，论坛里也发过一个比较实用的财务报表系统，里面也涉及到了用win创建自解压文件以方便使用，不过那会还没看到楼主的帖子呢，楼主的思路比我的更好，学习了
希望楼主能设计出更好的作品。

[ 本帖最后由 toad13 于 2011-5-3 17:39 编辑 ]

HHAAMM · 发表于 2011-5-3 18:29

被人一说我也没心思弄了
这种形式本来就类似于"寄居蟹"，就这种形式。这样做至少能使得Excel得到某些情况下的安全
在这种模式下，winrar的参数设置才是问题的关键，讨论别的似乎意义不大
通过弄这个，我也学习了些rar的 <命令> -<开关> ，目前已基本解决了所有能发现的问题
一楼附件中的" a -m1 -sfx "这句代码其实是远远不够的，也是很差的
欢迎有兴趣者继续讨论winrar参数问题
我现在的语句是"a -m0 -sfx -zd:\tmp\1\1.txt d:\tmp\1\1.exe d:\tmp\1"
欢迎winrar高手指正

HHAAMM · 发表于 2011-5-3 18:40

原帖由 余瑞龙 于 2011-5-3 08:38 发表
楼主:
我测试了你一楼的第二个附件,没有出错,但你所要求输入的密码不起作用,在第二次再打开文件时仍然不需要输入密码。
还有一个问题我不明白，用 WinRar 将".xls"打包成".exe" 有什么作用呢，你还是要 ...

大有意义
至少主人不在时，没人能进得了房门

HHAAMM · 发表于 2011-5-3 19:01

裸露于硬盘的Excel、access等，应该说毫无秘密可言，但裸露的这种exe安全性就大大提高了

再换个思路，如果access装入这种exe用VB调用(如果再施以随机释放access)，access的安全性就能够得到极大的提高

[ 本帖最后由 HHAAMM 于 2011-5-3 19:04 编辑 ]

lskvslgt · 发表于 2011-5-3 19:06

我很菜，有点不明白，要是属于隐私的问题可以用文件保险箱呀，难倒哪样不安全吗？

uefj2 · 发表于 2011-5-3 19:36

学习了，有参考价值

baomaboy · 发表于 2011-5-3 19:45

原帖由 HHAAMM 于 2011-5-3 18:29 发表
我现在的语句是"a -m0 -sfx -zd:\tmp\1\1.txt d:\tmp\1\1.exe d:\tmp\1"

版主更新了代码，怎么没见新的附件啊？

HHAAMM · 发表于 2011-5-3 21:23

原帖由 余瑞龙 于 2011-5-3 08:38 发表
楼主:
我测试了你一楼的第二个附件,没有出错,但你所要求输入的密码不起作用,在第二次再打开文件时仍然不需要输入密码。
还有一个问题我不明白，用 WinRar 将".xls"打包成".exe" 有什么作用呢，你还是要 ...

"密码不起作用"
附件中我用错了命令
-p[密码] 这个是不对的应该是 -hp[密码] 加密文件数据和标头
惭愧 winrar命令接触不久

HHAAMM · 发表于 2011-5-3 21:26

p = Application.InputBox("...
      If p <> "" And p <> False Then mima = "-p" & p
      Set o = CreateObject("wscript.shell")
      Rarexe = o.Regread("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\App Paths\winrar.EXE\Path") _
      & "\rar.exe "
      Source = ThisWorkbook.Path & "\test.xls"
      Target = ThisWorkbook.Path & "\test.rar"
      FileString = Rarexe & " a -ep " & mima & " -m1 -sfx  """ & Target & """ """ & Source & """"
红色部分错了

HHAAMM · 发表于 2011-5-3 21:32

rar <命令> -<开关 1> -<开关 N> <档案文件> <文件...>
            <@列表文件...> <释放路径\>

<命令>
  a          添加文件到档案文件中
  c          添加档案文件注释
  cf          添加文件注释
  ch          改变档案文件参数
  cw          将档案文件注释写到文件中
  d          从档案文件中删除文件
  e          释放文件到当前目录
  f          刷新档案文件内的文件
  i[参数]=<字符串>  在档案文件内查找字符串
  k          锁定档案文件
  l[t,b]       列表档案文件 [技术支持信息, 梗概信息]
  m[f]       移动到档案文件 [仅文件]
  p          打印文件到标准输出设备
  r          修复档案文件
  rc          重建丢失的卷
  rn          重命名已归档的文件
  rr[N]       添加数据恢复记录
  rv[N]       创建恢复卷
  s[模块名|-]    转换档案文件为自释放格式
  t          测试档案文件
  u          更新档案文件内的文件
  v[t,b]       列表档案文件详细资料 [技术支持信息, 梗概信息]
  x          以完整路径释放文件

<开关>
  -          停止开关扫描
  ac          压缩或释放后清除「存档」属性
  ad          追加档案文件名到目标路径
  ag[格式]    使用当前日期做为档案文件名
  ao          添加带有「存档」属性的文件
  ap<路径>    设置档案文件内部路径
  as          同步档案文件内容
  av          设置用户身份校验 (仅用于注册版)
  av-          禁止用户身份校验检查
  c-          禁止注释显示
  cfg-       禁止读取配置
  cl          转换名字为小写字母
  cu          转换名字为大写字母
  df          归档后删除来源文件
  dh          打开共享文件
  ds          禁止固定档案文件的名称排序
  e[+]<属性> 设定文件排除和包含属性
  ed          不添加空目录
  en          不要放置 '档案文件末尾' 块
  ep          排除路径
  ep1          排除基准目录
  ep2          扩充为完整路径
  ep3          展开包含驱动器字母的完整路径
  f          刷新文件
  hp[密码]    加密文件数据和标头
  id[c,d,p,q] 禁止讯息
  ieml[地址] 通过电子邮件发送档案文件
  ierr       发送所有讯息至标准错误输出设备
  ilog[文件名]  记录错误讯息到文件 (只在注册版中可用)
  inul       禁止所有讯息
  ioff       完成操作后关闭计算机
  isnd       允许声音提示
  k          锁定档案文件
  kb          保留损坏的文件
  m<0..5>    设置压缩等级 (0-存储...3-默认...5-最大)
  mc<参数>    设置高级压缩参数
  md<大小>    以 KB 为单位的字典大小 (64,128,256,512,1024,2048,4096 或 A-G)
  ms[扩展名;扩展名] 指定要保存的文件类型
  mt<线程数> 设定线程数目
  n<文件>    只包含指定的文件
  n@          从标准输入设备读取要包含的文件名
  n@<列表>    包含指定列表文件中的文件
  o+          覆盖已存在的文件
  o-          不覆盖已存在的文件
  oc          置值 NTFS 压缩属性
  or          自动重命名文件
  os          保存 NTFS 数据流
  ow          保存或还原所有者和组
  p[口令]    设置口令
  p-          不询问口令
  r          包含所有子目录
  r0          只包含与通配符匹配的所有子目录
  ri<P>[:<S>] 设置优先级 (0-默认,1-低..15-高) 及以毫秒为单位的睡眠停顿时间
  rr[N]       添加数据恢复记录
  rv[N]       创建恢复卷
  s[<N>,v[-],e] 创建固定格式档案文件
  s-          禁止创建固定格式档案文件
  sc<字符集>[目标]  指定字符集
  sfx[模块名]    创建自释放档案文件
  si[名字]    从标准输入设备 (stdin) 读取数据
  sl<大小>    处理小于指定大小的文件
  sm<大小>    处理大于指定大小的文件
  t          归档后测试文件
  ta<日期>    处理在 YYYYMMDDHHMMSS 格式中 <指定日期> 后修改的文件
  tb<日期>    处理在 YYYYMMDDHHMMSS 格式中 <指定日期> 前修改的文件
  tk          保持原有的档案文件时间
  tl          将档案文件时间设为最新文件的时间
  tn<时间>    处理比 <指定时间> 更新的文件
  to<时间>    处理比 <指定时间> 旧的文件
  ts<m,c,a>[N]  保存或恢复文件时间属性 (修改、创建及访问时间)
  u          更新文件
  v          创建分卷压缩时自动检测大小或列出所有的分卷
  v<大小>[k,b]  创建分卷, 分卷大小 = <大小> * 1000 [*1024, *1]
  vd          创建分卷前先清除磁盘内容
  ver[n]       文件版本控制
  vn          使用旧样式的卷命名方案
  vp          在每个分卷压缩前暂停
  w<路径>    指定工作目录
  x<文件>    排除指定的文件
  x@          从标准输入设备读取要排除的文件名
  x@<列表>    排除指定列表文件中的文件
  y          所有的询问都回答是
  z[文件]    从档案文件读取注释内容

		自动登录	找回密码
密码			免费注册

[分享] 用winrar将Excel封装成exe