分享

EXCEL技巧,工作表认电脑,偷偷复制走全失效

 新华书店好书榜 2017-10-28 发布于山东

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

EXCEL技巧,工作表认电脑,偷偷复制走全失效

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

EXCEL技巧,工作表认电脑,偷偷复制走全失效

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

EXCEL技巧,工作表认电脑,偷偷复制走全失效

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

EXCEL技巧,工作表认电脑,偷偷复制走全失效

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


    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多