如何用硬盘序列号加密EXCEL文件

zhengrwei

在论坛里看到有用U盘作加密狗加密EXCEL文件的，有没有用硬盘物理序列号加密EXCEL文件，这样就不怕重要的文件被别人复制走了，另外如何做到启动某个EXCEL文件时，自动检测宏安全级是否为最低，如果是打开文件，如果不是就将宏安全级降为最低
请高手出招!!!!!!!!

wangminbai

没有办法的。既然宏的都运行不了。又怎样通过运行宏来改级别呢？

figfig

原帖由 zhengrwei 于 2008-12-9 17:19 发表
在论坛里看到有用U盘作加密狗加密EXCEL文件的，有没有用硬盘物理序列号加密EXCEL文件，这样就不怕重要的文件被别人复制走了，另外如何做到启动某个EXCEL文件时，自动检测宏安全级是否为最低，如果是打开文件，如果不 ...

本人以前提出过的最简单办法

把SHEET设为XLVERYHIDDEN,不允许宏，啥都看不到

zhengrwei

请说的具体些

joen168

Private Sub Workbook_Open()
  On Error Resume Next
1:
  Set fs = CreateObject("Scripting.FileSystemObject")
  DrivesCount = fs.drives.Count
' Set d = fs.GetDrive(Chr(66 + DrivesCount))'U盘时用
  Set d = fs.GetDrive("D:")
  dt = d.drivetype
  sn = d.serialnumber
  If dt <> 2 Then
'    If dt <> 1 Then 'U盘时用
    msg = MsgBox("系统检测无密钥盘，单击是，插入密钥盘重试，单击否，退出程序", vbYesNo, "提示")
    If msg = vbYes Then
        GoTo 1
    Else
        ThisWorkbook.Close False
        Exit Sub
    End If
  Else
    If sn = 1955786478 Then    '密钥盘序列号
        Exit Sub
    Else
        MsgBox "找不到密钥盘，系统将退出。"
        ThisWorkbook.Close False
    End If
  End If
End Sub

用这个可以通过硬盘的分区或U盘来加密。那如果用硬盘的硬盘物理序列号（唯一）进行加密，请教应如何设置代码？

链接：获取硬盘物理系列号http://club.excelhome.net/viewth ... p;page=1#pid2875800

joen168

硬盘分区的序列号并不唯一。电脑与电脑之间的硬盘分区系列号经常是一样的。为防止一些局域网共享文件不想在不授权的电脑使用，希望能通过硬盘的物理系列号进行设置。

qwe_way

rterterwterwtwetwetw

飞云流水

joen168 发表于 2009-6-6 18:45
Private Sub Workbook_Open()
  On Error Resume Next
1:

多谢，我正需要呢

wuchen0311

好文章，收藏一个

sunny_8848

虽然有了其他的，还是参考下。多谢