[分享]彻底解决EXCEL文件封装成EXE后无法保存的问题

smokinglog

还没有到研究封装的阶段,支持一下

邹开程

没有做过EXE封装,先来学习一下.

zldccmx

QUOTE:

以下是引用bsad在2006-9-17 19:55:56的发言：

谢谢zldccmx小妹的关注！我做了一个，麻烦帮我看看。我实在是找不到原因了。

1。运行XLS文件，关闭后文件就自动消失了。

2。执行合成的EXE文件，关闭后文件就改变了，下次无法启用。

这是因为你制作的VB6文件头有问题：

它没有实现往excel文件写入文件名信息和EXCEL文件名信息，因为在VB中没有解除EXCEL文件的保护。

建议对EXCEL文件实行保护不要在EXCEL菜单中操作，而是放在EXCEL文件的VBA中实现，使用时对文件进行保护，退出时解除保护：

Private Sub Workbook_Open() Sheets("temp").Visible = xlSheetHidden '将表隐藏
  Sheets("temp").Protect ("1111") '保护表，密码为1111
  Sheet1.Select
   Application.Visible = 1 '取消隐藏EXCEL主窗口

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Application.Visible = False '隐藏EXCEL主窗口
  Sheets("temp").Visible = xlSheetVisible 

  Sheets("temp").Select
  Sheets("temp").Unprotect ("1111")
'*******************

End Sub

bsad

谢谢zldccmx小妹！我做了一个晚上，还是不行，还是老问题：一退出来，EXE文件就被破坏了。文件路径始终写不进timp工作表的单元格里。

请教zldccmx能帮我做好再发上来吗？先谢谢了！（代码和工程都在36楼）

[此贴子已经被作者于2006-9-18 1:24:57编辑过]

bsad

封装好的EXE文件打开后，顶端要显示临时工作簿的名字，如tmp3D.tmp。这个名字怎么才能不显示出来呢
？

jsddlp

正在学习中!

zldccmx

QUOTE:

以下是引用bsad在2006-9-19 16:47:58的发言：

封装好的EXE文件打开后，顶端要显示临时工作簿的名字，如tmp3D.tmp。这个名字怎么才能不显示出来呢
？

Private Sub Workbook_Open()
With Application
      .Caption = "＊＊管理系统"  '为程序换名
      .ActiveWindow.Caption = "你想设定的窗口名称"    '可以设定为""，将活动窗口去掉名称
   End With
end sub

不知道是不是你想要的！

[此贴子已经被作者于2006-9-20 21:03:17编辑过]

simen

LZ ＭＭ又泡在网上了?ＬＧ要打你ＰＰ了

zldccmx

QUOTE:

以下是引用simen在2006-9-20 21:04:34的发言：

LZ ＭＭ又泡在网上了?ＬＧ要打你ＰＰ了

[em04]

CWB138

先支持你一下，再顶.顶.顶.

研究研究再说！