让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 IfEnd Sub

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

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

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

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