[分享]用U盘做加密狗,加密Excel文件(108楼有新代码!)

dengxu · 发表于 2009-3-20 15:13

在EXCEL+VBA环境下讨论加密本来就是可笑的事情，但是本文还是有一定的实际意义，因为大部分用户并非向我们这样成天泡在编程论坛里面的人，他们大多数是一般的用户他们只会觉得好奇为什么会这样？如果真的能够解决无法禁用宏我想还是有一定的实际意义，例如单位的这个表格不想叫别人看见等等应用！但其实excel自带的安全性方案不行吗？我认为已经足够了对一般用户而言虽然也很好破解！

迅岐同心 · 发表于 2009-3-24 13:11

好贴，精华之精华！

yw20080808 · 发表于 2009-4-7 20:52

Sub Auto_Open()
Dim fs, d, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(ThisWorkbook.Path)))
s = d.serialnumber 'U盘序列号（现在返回的序列号是C：盘的序列号）

If s = -1330828335 Then Exit Sub
MsgBox "请插入密钥U盘！"

ThisWorkbook.Close False '关闭不保存

End If
End Sub

maditate · 发表于 2009-4-7 21:02

把文件存放到U盘里随身带那就安全了。

beyond1314 · 发表于 2009-4-7 22:27

又学了一招

马上回家 · 发表于 2009-4-8 17:28

占个地方，学习下

YZLSZAJ · 发表于 2009-4-26 10:13

又学了一招，谢谢！

vern · 发表于 2009-5-13 17:34

打开了117楼的文件后，再打开excel 出现以下问题。如何还原？

zcyindex · 发表于 2009-6-4 23:04

这个创意很好，学习了

joen168 · 发表于 2009-6-5 11:28

太好了。爽歪歪。。。

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

[分享]用U盘做加密狗,加密Excel文件(108楼有新代码!)

救助