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

zgb4461

能进入VB，还有临时文件为xls不太安全，最好改进。

[此贴子已经被作者于2006-8-30 10:51:06编辑过]

中国风

“它是把你的文件放在“保险柜”里”是什么意思，我按照你的方法封装后，打开来还是EXCEL表格，跟没封装的区别在哪里？

ykcbf

不过，我感觉这种封装形同虚设，打开封装后的文件后，xls文件可以用另存为方法另存为一个新的xls文件，这样下次打开时就不必用到那个封装后的.exe文件了。这样的封装没有任何使用意义啊，希望改进一下。

plxmm

QUOTE:

以下是引用ykcbf在2006-8-30 10:38:39的发言：
不过，我感觉这种封装形同虚设，打开封装后的文件后，xls文件可以用另存为方法另存为一个新的xls文件，这样下次打开时就不必用到那个封装后的.exe文件了。这样的封装没有任何使用意义啊，希望改进一下。

封装为*.exe文件时，有个密码选项的设置，这里是一道门槛。如果知道文件的打开密码，你要另存为，是你的权利了。

就象保险柜密码只有相关的人员知道，凭密码打开保险柜后，你要如何如何做，保险柜无法干预你的行为。

任何事情，没有十全十美的方案。

simen

 

不过，我感觉这种封装形同虚设，打开封装后的文件后，xls文件可以用另存为方法另存为一个新的xls文件，这样下次打开时就不必用到那个封装后的.exe文件了。这样的封装没有任何使用意义啊，希望改进一下。

不知道ykcbf是否试过“另存为”？以下代码中红字部分已经将“另存为”屏蔽！

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'-----------------------------------------------------------------------------

'如有必要你可以在双虚线之间添加你自己的代码,但必须保证虚线下的代码能够被执行
'-----------------------------------------------------------------------------
If SaveAsUI = True Then Cancel = True  'protect Xls file
End Sub

simen

中国风：

“它是把你的文件放在“保险柜”里”是什么意思，我按照你的方法封装后，打开来还是EXCEL表格，跟没封装的区别在哪里？

没封装时，你可以用VBA的一些密码破解工具攻击xls文件

封装后，你可以再试一下

simen

能进入VB，还有临时文件为xls不太安全，最好改进。

ZGB4461:请解释一下上面的意思？

zgb4461

QUOTE:

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

QUOTE:

ZGB4461:请解释一下上面的意思？

simen

回楼上的，明白了你的意思，但是

这是常规的做法，还有一个随机的方法，因为时间限制暂时没有做上来，有待日后版本了。

ykcbf

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