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

秦歌 · 发表于 2006-9-1 12:16

用了060901更新的软件封装后直接点叉号关闭工作薄能保存,可是用我自己做的界面关闭时不能保存还显示"你可能尚未封装此EXCEL文件或文件头丢失所以，现在暂时不需要（或者不能够）更新！"我操作系统是WINXP+OFFICE2003~~

simen · 发表于 2006-9-1 12:33

秦歌：
用了060901更新的软件封装后直接点叉号关闭工作薄能保存,可是用我自己做的界面关闭时不能保存还显示"你可能尚未封装此EXCEL文件或文件头丢失所以，现在暂时不需要（或者不能够）更新！"我操作系统是WINXP+OFFICE2003~~

因为各用户自己的VBA代码各各不同，所以要在研究beforeclose的基础上解决它们之间的冲突，

这已经不是《EXCEL封装机》所应该解决的了

[此贴子已经被作者于2006-9-1 12:34:28编辑过]

秦歌 · 发表于 2006-9-1 12:46

难道没有办法解决了吗?

[此贴子已经被作者于2006-9-1 12:47:51编辑过]

simen · 发表于 2006-9-1 12:49

传上来，我帮助你看看吧

秦歌 · 发表于 2006-9-1 16:08

QUOTE:

以下是引用simen在2006-9-1 12:49:20的发言：

传上来，我帮助你看看吧

太感谢了~~~请看一下能解决吗?

2e6JjlwP.rar (33.25 KB, 下载次数: 30)

[此贴子已经被作者于2006-9-1 16:11:07编辑过]

simen · 发表于 2006-9-1 17:34

太感谢了~~~请看一下能解决吗?

调用过程 open--form1--form3--quit--close

正在寻找冲突中。。。

bsad · 发表于 2006-9-1 20:50

请楼主选择“文件”----“保存工作区”看看，和“另存为”是一个效果。密码还是容易被盗。

ybzdexcel · 发表于 2006-9-1 21:24

QUOTE:

以下是引用simen在2006-8-30 13:16:09的发言：

QUOTE:

楼主：我试过“另存为”，完全可以另存为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

检查是否被执行？

关注中！

“移动或复制工作表”也可以成为新的.xls文件的！

[此贴子已经被作者于2006-9-1 21:31:30编辑过]

wjcs · 发表于 2006-9-1 21:39

Shell ThisWorkbook.Path & "\" & ThisWorkbook.Name & ".exe" '关闭文件时自动封装

封装第一个正常，第二个就不行了，不知怎么了，提示缺少变量或过程。

simen · 发表于 2006-9-1 21:53

请楼主选择“文件”----“保存工作区”看看，和“另存为”是一个效果。密码还是容易被盗。

保存工作区--只是相当提供了一个链接，xls文件关闭后就找不到被链接对象了，对密码不构成实质性影响

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

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