XLS文件保密

lzqlaj

在哪下载？

mingdaoen

为了不使我的得意之作沉下去.

再发一个美观一点的界面，也是我的最近进展，供大家进一步研究。

fgwei

楼主，我支持你，麻烦你提供最新的给我，谢谢

[ 本帖最后由 fgwei 于 2009-9-21 17:26 编辑 ]

mingdaoen

下载链接躲在1楼最下面，看不到是吗？都已被下载254次了。

现在我把他们移到两张图片上面来，直接下载应该可以。

[ 本帖最后由 mingdaoen 于 2009-9-15 18:55 编辑 ]

sendsend

原帖由 mingdaoen 于 2009-7-22 16:26 发表
这是一个为XLS文件提供保密，加密，封装平台软件，它使你的私人文件作品得到保密和安全。本软件无需安装，绿色软件，将其拷到任意文件夹中都可使用，运行环境要求你的电脑首先安装了EXCEL和WINRAR。

     这是一个 ...

期待更好的方法啊：Private Sub Workbook_Deactivate()
Sheet4.Range("A4:L10000").ClearContents
End Sub

Private Sub Workbook_Open()
a = Split(Application.Caption, " ")
If CheckApplicationIsRun(Trim(a(0)) & ".exe") = False Then
   'Call 文件自删除
   Exit Sub
End If
Application.OnKey "{F12}", "界面还原"
Application.OnKey "%{F11}", "返回首页"
Application.OnKey "{F11}", "返回首页"
Application.CommandBars("Standard").Position = msoBarTop
Application.CommandBars("Formatting").Position = msoBarTop
Call 界面还原

Sheet8.Select
n = fd("my", True, 11, "仓库管理员")
If Sheet8.CommandButton1.Caption = "参数修改" Then
   ActiveSheet.ScrollArea = "$D$2:$N$" & n
Else
   ActiveSheet.ScrollArea = ""
End If
End Sub

galaxynt

好用吗，下来试试

joforn

非常遗憾的通知楼主，本人只用了五分钟不到就得到了你所谓的非常保密的样板文件。
本来不想说的……不过楼主既然是收费的软件(而且注册费高达50RMB)，出于对注册用户的负责，提醒各位一句：
   如果你的文档非常重要的话并且是用这款软件加密了，一定要在加密前给自己的文档自己再用其它的方式加密，这个软件只不过是用FindWindow的方式找到你的浏览器是不是某个路径的名字，是的话就关闭它 ……至于后加的那个自杀的VBA就更别说了，请无视它吧。

kanny_a

这个很好啊，只是有点不明白……

枫桥夜泊lwb

先顶一下``

joforn

新版的用一个窗体挡在了Excel窗体上面一部分，可是Excel窗体还是能被拉出来。
还有文档能被直接另存出来。
比你以前的版本要好多了，不过并没有像楼主说的无法保存。
附件是被另存出来的Excel文档。有兴趣的话可以查看下。