电子表格EXCEL VBA防盗代码哪里有问题,求帮忙修改

1.EXCEL VBA防盗代码哪里有问题,求帮忙修改

1. 你确定你的GetHardDiskInfo函数能正常工作吗？这是一个外部函数，网上某大神编的，我也下了一个，但是在我的电脑上运行是不起作用的（不能正常获取硬盘的唯一序列号）；

2. 你的文件夹名最好不要带英文逗号（中文逗号都可以）；

3. 发现盗拷的时候没必要做关机处理（那句SHELL "shutdown。有点太狠了，不让拷直接自杀就行了），而且你是先执行的关机，你确认后面那句自杀的代码还能正常执行吗；

4. 下面一段代码是我在别处看到求硬盘唯一序列号的，或许能帮上点忙（S就是序列号）；

1

2

3

4

SetWMI = GetObject("winmgmts:")

strCls = "Win32_PhysicalMedia"

strKey = strCls & ".Tag=""\\\\.\\PHYSICALDRIVE0"& """"

s = Trim(WMI.InstancesOf(strCls)(strKey).serialnumber)

5. 建议你在第一句设断点然后一步一步地调试程序（并且先把关机那句注释掉），方便你知道程序错在哪里。

2.关于防止公司重要文件被盗用的方法,跪求这方面的软件

可以防止员工通过U口拷贝文件，但是并不能防止通过网络传输出去。如果防止通过U口传播出去，可以对注册表进行设置。将如下内容复制到记事本中，另存成.REG文件。之后又击导入即可。

Windows Registry Editor Version 5.00

；只读=1，读写=0

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\StorageDevicePolicies]

"WriteProtect"=dword:00000001

————————————————此结束

说明一下：dword:00000001只能通过U口向电脑内拷贝文件，而不能向外拷贝。

dword:00000000，双向都可。

3.如何保护Excel文档?

步骤一、选择需要设置权限的工作簿，在“文件”选项卡中单击“保存”（针对新建的工作簿）或“另存为”按钮。

打开“另存为”对话框，在其中单击“工具”按钮，在弹出的下拉菜单中选择“常规选项”命令。 步骤二、打开“常规选项”对话框，在“文件共享”栏中的“打开权限密码”和“修改权限密码”文本框中分别输入打开和修改工作薄的密码，单击“确定”按钮。

步骤三、在打开的“确认密码”对话框中再次输入打开权限的密码，单击“确定”按钮，再在打开的“确认密码”对话框甲输入修改权限的密码，然后单击“确定”按钮。返回“另存为”对话框，单击“保存”按钮即完成操作。

此外，如果只需要设置打开权限，还可在“文件”选项卡“信息”界面中单击“保护工作簿”按钮，在弹出的下拉菜单中选择“用密码进行加密”命令，在打开的对话框中设置工作簿的打开密码。