[原创]用函数禁止别人使用U盘

andysky

huamixinhua 发表于 2011-12-16 06:49
斑竹现在还没有公开源码吗，想学习一下代码，翻了17页，也没有找到vba密码

源代码就在一楼啊

1. Function U盘(andy As String)
   
2.     If andy = "禁用" Then Call 禁用U盘
   
3.     If andy = "允用" Then Call 允用U盘
   
4.     U盘 = "已经" & andy
   
5. End Function
   
6. Private Sub 禁用U盘()
   
7.     Dim AA As Object
   
8.     Dim RegPath As String
   
9.     Set AA = CreateObject("WScript.shell")
   
10.     RegPath = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR\Start"
    
11.     AA.regWrite RegPath, 4, "REG_DWORD"
    
12.     Set AA = Nothing
    
13. End Sub
    
14. Private Sub 允用U盘()
    
15.     Dim AA As Object
    
16.     Dim RegPath As String
    
17.     Set AA = CreateObject("WScript.shell")
    
18.     RegPath = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR\Start"
    
19.     AA.regWrite RegPath, 3, "REG_DWORD"
    
20.     Set AA = Nothing
    
21. End Sub

复制代码

VBA加密  一秒钟就可以破解的
http://club.excelhome.net/thread-794315-1-1.html
Excel密码工具箱 分享

groovcoverage

大哥，禁用U盘，也能这样禁吗？？神的孩子

huamixinhua

非常感谢楼主的分享，努力学习中。

kjianwu

用了VBA，并且VBA加密了。

李玥颖

谢楼主 的分享

lgh978

楼主厉害。

zhoutianxiang

谢谢楼主分享，再也不怕u盘病毒了

dazhang2030

真厉害啊 ！！！！