ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: stanleypan

Excel To EXE 7.0 版发布!

[复制链接]

TA的精华主题

TA的得分主题

发表于 2006-12-3 22:09 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
QUOTE:
以下是引用CCHH在2006-10-18 12:43:11的发言:

43楼的运行后出错:



出现同样问题,楼主这是什么问题?

TA的精华主题

TA的得分主题

发表于 2007-1-18 10:32 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

有问题啦:旧版本(某些2.1版)能实现自杀(经封装后自动关闭,不能自杀),但新版本就提示出错。

最新版本只在同一地方建立临时文件,只要把临时文件复制到另一个地方,改名就破解封装了(请不要做得这么简单,旧版本还好点)。

还有的就是上几楼提到的保存问题,不能在作业期间保存,只能关闭保存。

我在excel里插入了一段代码。没封装前能实现自杀。

Private Sub Workbook_Open() '限制andysky才能开此工作簿。,其它人打开则自杀
Application.EnableCancelKey = xlDisabled '此句表示禁用CTRE+Break中断代码执行
If CreateObject("wscript.network").UserName <> "andysky" Then '检查用户名
Application.DisplayAlerts = False               ' 不出现提示
ActiveWorkbook.ChangeFileAccess xlReadOnly      '文件唯读
Kill ActiveWorkbook.FullName                    '自杀
ThisWorkbook.Close False                        '关闭
Else
MsgBox "你已授权开启", vbDefaultButton1, "恭禧" '提示
End If                                          '结束IF语句
End Sub

[此贴子已经被作者于2007-1-18 10:42:26编辑过]

TA的精华主题

TA的得分主题

 楼主| 发表于 2007-1-18 12:40 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
旧版本是临时文件随机产生在不同目录下,由于对保存的机制还不是太了解,可能是在内存中进行一些动作,所以没有再进行更新.

TA的精华主题

TA的得分主题

发表于 2007-1-19 08:36 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2007-1-27 16:05 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2007-1-30 19:08 | 显示全部楼层
版主不厚道,在这里作广告。就不能为大家提供一个免费用的???[em16][em16][em16][em16]

TA的精华主题

TA的得分主题

发表于 2007-2-3 12:45 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2007-4-3 23:23 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2007-4-4 13:50 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2007-4-6 14:18 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
学习学习.
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-6-2 02:00 , Processed in 0.044697 second(s), 7 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表