【360和金山软件认证双双通过】自动重新封存的《EXCEL封装机》(2012.11.22更新)

ykcbf · 发表于 2006-8-30 13:07

我总认为，既然封装成.exe文件，那就要彻底一点，让文件打开后，不能“另存为”操作，否则，何必要封装成可执行文件呢？！就xls文件就行了啊，何必要封装一下这多此一举呢？！

simen · 发表于 2006-8-30 13:16

楼主：我试过“另存为”，完全可以另存为xls文件的。我用的office版本是2003版。

Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)

SaveAsUi 如果显示“另存为”对话框，则为 True。

Cancel 当事件产生时为 False。如果该事件过程将本参数设为 True，则该过程执行结束之后不保存工作簿。

==========================================

本机测试OK,If SaveAsUI = True Then Cancel = True 'protect Xls file

检查是否被执行？

中国风 · 发表于 2006-8-30 13:43

我制作的EXCEL文件要放在公用电脑上大家使用，又要保护好自己的VBA代码，这种封装好象没有这个保护作用，是吗？

plxmm · 发表于 2006-8-30 13:53

lz把

Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)

SaveAsUi = False

Cancel ＝True

End Sub

没必要判断

simen · 发表于 2006-8-30 14:05

SaveAsUi = False

Cancel ＝True

感谢小MM，但 Cancel ＝True 这句也把 EXCEL的SAVE功能 给屏蔽了

[此贴子已经被作者于2006-8-30 14:11:12编辑过]

simen · 发表于 2006-8-30 14:08

我制作的EXCEL文件要放在公用电脑上大家使用，又要保护好自己的VBA代码，这种封装好象没有这个保护作用，是吗？

----这个软件正是为解决这个问题而开发的。

你把.xls格式文件以.exe格式分发。

ykcbf · 发表于 2006-8-30 14:31

楼主：不好意思，刚才我又重新找了二个xls文件试了下，“另存为”操作不行，可能是开始时我没有封装好的原因吧。

如果不能“另存为”操作，我觉得这个封装机是有作用的，更重要的是封装很方便，确实挺不错的。希望楼主继续努力，拿出更多好的作品来。

谢谢分享。

simen · 发表于 2006-8-30 15:01

楼主：不好意思，刚才我又重新找了二个xls文件试了下，“另存为”操作不行，可能是开始时我没有封装好的原因吧。
如果不能“另存为”操作，我觉得这个封装机是有作用的，更重要的是封装很方便，确实挺不错的。希望楼主继续努力，拿出更多好的作品来。
谢谢分享。

使用中如有任何宝贵意见请多多提出，以便软件改进。

bsad · 发表于 2006-8-30 15:22

simen真了不起！而且无私奉贤。

hhkg · 发表于 2006-8-30 18:47

谢谢simen,望把VB原码也提供学习、研究!

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

[原创] 【360和金山软件认证双双通过】自动重新封存的《EXCEL封装机》(2012.11.22更新)