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

studio51701 · 发表于 2012-1-6 15:34

感谢楼主分享，学习中。

lshlyn · 发表于 2012-3-1 16:43

学习了几天，终于有点收获，感谢各位高手

gsbybgd · 发表于 2012-3-11 12:23

太利害了

dodo2000 · 发表于 2012-3-11 13:37

最好的办法是把需要加密的文件存进U盘里……

gdlihaoran · 发表于 2012-3-13 00:54

設一個登陸窗口，U盤放一個鑰匙，電腦放一個鑰匙，這對鑰匙由設置的密碼生成，然後輸入密碼。把兩把鑰匙放到指定的文件夾，就可以打開文件

gdlihaoran · 发表于 2012-3-13 01:01

我剛寫好了一個簡單的，生成一個跟數字密碼等長的隨機數，與密碼相加，只取個位，做成一把鑰匙，用INI文件存儲或放進註冊表。然後與密碼相減，只取個位，生成另一把鑰匙，用INI文件存儲並放到U盤。把主要實現功能的按鍵做為觸發點，不打開宏就用不了這個重要功能，打開並使用的話系統不出任何提示，有U盤搜索U盤鑰匙，沒有就輸入密碼並把備用鑰匙放到指定的路徑，這樣應該會好一些

kanhazi · 发表于 2012-5-8 22:59

真心牛呀！

7786910 · 发表于 2012-5-25 19:19

Private Sub Workbook_Open()
  Dim fs, d, s$
  On Error Resume Next
  For i = 3 To 26
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(Chr(64 + i) & ":")
s = d.serialnumber
Select Case s
   Case "1222130052"  'U盘序列号
      Exit Sub
   End Select
  Next i
  MsgBox "找不到U盘，系统将退出。"
  ThisWorkbook.Close False
End Sub

ZYOL · 发表于 2012-6-10 16:04

这个创意很好，学习了

卓朝晖 · 发表于 2012-9-7 07:17

真是棒呀。。。受教了。。。

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