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

simen · 发表于 2006-8-30 19:32

此程序用VB编写，如果有感兴趣的朋友，可以联络我共同开发，进一步升级此软件。

联络方式见软件中EMAIL地址。

wzsy2_mrf · 发表于 2006-8-30 19:56

将下面事件的代码稍作修改后，可以做到让用户选择是否保存而不是强制保存。这样显然提高对用户的友好性。
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'-----------------------------------------------------------------------------

'如有必要你可以在双虚线之间添加你自己的代码,但必须保证虚线下的代码能够被执行
'-----------------------------------------------------------------------------
If MsgBox("是否保存", vbYesNo) = vbYes Then
    ThisWorkbook.Save
Else
    ThisWorkbook.Saved = True
End If
If Dir(ThisWorkbook.Path & "\" & ThisWorkbook.Name & ".exe") = "" Then
   MsgBox "你可能尚未封装此EXCEL文件或文件头丢失，所以现暂不能更新！", vbCritical
Else
   Shell ThisWorkbook.Path & "\" & ThisWorkbook.Name & ".exe" '关闭文件时自动封装
End If

End Sub

excelHelper · 发表于 2006-8-30 20:58

报告楼主，封装成功后，发现对于 Application.EnableEvents = False语句感冒，封装前正常运行，封装后出现NG现象

月黑风高 · 发表于 2006-8-30 21:42

[/IMG]

试了N次，都出现相同的提示，未找到路径

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

zhengchuan · 发表于 2006-8-31 09:31

我也是，试了N次，都出现相同的提示，未找到路径

zgb4461 · 发表于 2006-8-31 12:41

我在XP 和98两种系统都用了下，没有出错，正常！楼主做得不错！

simen · 发表于 2006-8-31 14:12

上面遇到错误的朋友，请到一楼下载更新版本

zgb4461 · 发表于 2006-8-31 14:42

更新版出现上面的错误！！

[此贴子已经被作者于2006-8-31 14:42:41编辑过]

zgb4461 · 发表于 2006-8-31 14:52

killl · 发表于 2006-8-31 15:49

你好强！

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

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