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

刘志文

很好,正需要!!

okk

谢谢!分享

qq8286

请问我下面的为什么不行啊？我想检测到正确的U盘就弹出denglu这个窗口，但是，下面那个命令，denglu窗要弹出四次？请问怎样修改呢xiexie
Private Sub Workbook_Open()
  Dim objWMIService As Object
  Dim colItems As Object
  Dim objitem As Object
  Dim a, b, c, d, e, U_Dist
  Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
  Set colItems = objWMIService.ExecQuery("Select * From Win32_USBHub")
  For Each objitem In colItems
    a = objitem.DeviceID
    If a Like "*VID*" Then
      b = Split(a, "\")
      c = Split(b(UBound(b) - 1), "&")
      d = Split(c(UBound(c) - 1), "_")
      e = Split(c(UBound(c)), "_")
      U_Dist = d(UBound(d)) + e(UBound(e)) + b(UBound(b))
      If U_Dist = "058F6387AYC00598" Then Exit Sub  'U盘物理序列号
    End If
denglu.Show
  Next
  MsgBox "找不到正确U盘，系统将退出！"
  ThisWorkbook.Close False
End Sub

dongfei_1972

学习一下，谢谢分享

courageous

太强了，这里真是藏龙卧虎啊！！

walp

对于我们这种菜鸟来说能有这样的效果已经很不错了，一切加密解密都是防君子不防小人的，连操作系统都能破解，还有什么软件不能破的呢，所以各位高手们也没必要钻牛角尖了

pingpingdandan

值得学习！

yfzdb

学习了。真的很不错

fangxu

高啊，实承是高。我用不了那么深，只要能判断上级文件夹的名字正确就行了，那位大侠帮改改

happygogogo

强烈建议存储多个U盘序列号，读取其中一个解密，对于高手们相信难度不会太高！