⑴ 我现有一个EXCEL表格文档，如何制作一个加密狗，让别人有了加密码狗才可以使用并修改数据

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盘的序列号？
Sub sn()

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) & ":")
Cells(i, 1) = Chr(64 + i) & ": " & d.serialnumber
Next i

⑵ USB加密狗可以复制么如何复制

普通加密狗可以通过分析硬件或是修改dll的方式进行复制，高档一点的加密狗，硬件上面会比较复杂，没办法真正复制，只能从usb通讯上面去复制数据。因此一些比较高端的加密狗就会把硬件跟系统的通讯通道加密，以达到安全的目的，比如wibu的codemeter。

⑶ 寻求一款office文档加密狗： 要求是office文档加密后的格式是exe，只能插入加密狗才能运行

office文档加密狗：safenet超级狗（淘宝店铺：赛孚耐加密狗武汉金雅特），
不过该加密狗使用有一些限制：
1. 操作系统：win7以上版本（包括win7）
2. office版本：必须是：office2007/2010/2013的32位版本
3. pdf版本： Adobe Reader 11.0.12及以上（仅支持32位版本）
Adobe Acrobat Reader DC 2015.008.20082及以上（仅支持32位版本）
他加密以后生成的文件不是exe文件，但是必须插上加密狗才能运行。
您可以试试这款加密狗，加密效果很好。

⑷ 关于PKPM软件的加密狗的问题／！！！！

他用的是正版的加密狗吗？应该不会和黑屏有关吧，你再给他安上试试，没有加密狗是运行不了PKPM的！

⑸ 加密狗大概多少钱一个，在哪里有卖的

看你是要买来自己加密软件还是要买某些软件匹配的了，自己加密软件可以直接联系厂家版购买，一般权就是十几块钱到上百左右吧。如果是软件匹配的一般都属于盗版的了，tb一般几百块吧。自用加密可以试下ROCKEY系列。

⑹ 关于软件加密狗无法识别问题

加密狗只要在一台电脑上可以使用,那正确的情况下应该是亮绿灯.而你更换电脑后,出现红灯,那表示加密狗驱动没有被系统识别到. 需要安装对应型号的加密狗驱动.
可以联系你的软件经销商或代理商,厂商寻求帮助.
也可以利用网络的加密狗型号检测工具,查找到对应的型号后.再去加密狗官网下载相应的驱动程序