EXCEL技巧，工作表认电脑，偷偷复制走全失效(excel应用技巧)

小编在发技巧和经验过程中，经常有朋友问到是否有方法文件只能在自己的电脑打开，离开自己的电脑就打开不了，下面小编就分享一下，让EXCEL只认自己的电脑，其他的都不认，打不开的方法。小编亲测，亲们在测试中如有什么疑问，欢迎讨论。

步骤1，新建EXCEL工作表，另存为启用宏的工作表，而后依次点击文件-选项-信任中心-信任中心设置-宏控制--开启所有宏。

2，获取C盘序列号：在左下角点击开始图标，在搜索框输入运行，而后点击运行，输入CMD，进入命令提示符窗口，在命令提示符窗口输入wmic volume得到所有硬盘卷的信息，其中有个，是负值的，就是C盘的序列号，记住他

3，按ALT F11，进入VFBA编辑页面，讲代码复制到VBA编辑窗口，而后将上一步记录下来的序列号，添加到序列号一，而后保存即可。

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

关注小编，后期大量技巧整理中

想要从零系统学习Excel，查看本站上方“视频教程”获取最新秋叶Office三合一办公应用课程！

以上内容由优质教程资源合作伙伴 “鲸鱼办公” 整理编辑，如果对您有帮助欢迎转发分享！

你可能对这些文章感兴趣：

• Excel表格利用数据验证防止重复数据的输入(excel表格利息计算公式)
• Excel表格为工作表的部分区域设置保护密码同时隐藏单元格内容。(excel表格为啥输入数字又变成其它啦)
• Excel表格入库表自动录入入库时间(excel表格制作教程入门)
• Excel表格快速批量隐藏/显示不连续的工作表(excel表格快速排序)
• Excel表格利用切片器快速筛选数据/实时更新柱状图(excel表格利息计算公式)
• Excel表格在筛选状态下实时更新序号(excel表格在电脑上怎么下载)
• Excel表格不复制隐藏数据(excel表格不能自动求和)
• Excel表格隔行填充颜色(excel表格隔一行插一行怎么操作)
• Excel表格快速汇总多个工作表的数据到同一个工作表(excel表格快速查找)
• Excel表格三种方法实现多条件查找(excel表格三位数变成两位数)