让EXCEL文件指定电脑才能打开其他电脑打不开

1、新建Excel,并开启宏：点击文件----选项------信任中心----信任中心设置-----宏设置-----启用所有宏

2、按alt+F11键，打开EXCEL文件的VBA编辑模式

3、双击左侧的 workbook ，在右侧空白区域粘贴上代码

4、代码如下：

Private Sub Workbook_Open()    Dim DriveID    Dim a As String    Set DriveID = CreateObject("Scripting.FileSystemObject")    a = DriveID.GetDrive("C").SerialNumber    If a <> "序列号一"  and   a <> "序列号二" Then            ThisWorkbook.Close 0    End If

End Sub

5、获取自己电脑的C盘序列号，点击开始，运行，在窗口输入CMD进入命令提示符界面

6、在命令提示符里面，输入wmic volume回车会得到所有卷的信息，其中有个字符串是以负号 -开头的，就是C盘序列号

7、将C盘序列号复制替换代码中的   序列号一   ，这样只有这台电脑可以打开，如要另外一台，同样方式，替换序列号二

8、保存，关闭VBA窗口，可以找台电脑进行测试