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

powerbaby

高手

glf32052858

学习了,不错!

zez

谢谢分享

beren

见识了，这都可以。学习中。

a6789

QUOTE:

以下是引用Zamyi在2008-9-6 15:24:00的发言：

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

U盘序列号可否自动到Sheet1    A1单元格索取,谢谢!

lhm667788

QUOTE:

以下是引用a6789在2008-9-15 16:00:00的发言：

U盘序列号可否自动到Sheet1    A1单元格索取,谢谢!

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 [a1]  '   单元格A1中为U盘序列号
        Exit Sub
      End Select
  Next i
  MsgBox "找不到U盘，系统将退出。"
  ThisWorkbook.Close False
End Sub

a6789

谢谢lhm667788!

ajtgdrrrfcu

我在此看到一个电子表,保存后自动备份了一个电子表备份文档.他是怎样设置的,请高手告诉我,谢谢了.

Excel数软件

你好：请问高手，如果没有U盘，可以控制用多少天或多少次吗？要是我的U盘坏了，那这个文件就永远不能打开了，请问能设计搞好吗啊！

37duboy

非常好的東東, 收藏了,強烈要求版主加精