Excel/VBA-工作簿与当前用户绑定

微信公众号原文

系统：Windows 7
软件：Excel 2010

使用场景介绍：

不知大家上班时有无遇到这样的问题，因为公司电脑所有内部账号都可以登陆，有一些敏感信息
不希望登陆同一台电脑的其它用户看到，例如你的王者荣耀绝版攻略，哈哈

当然也没那么严肃,需要专门设置密码，然后每次自己使用也得输密码什么的，太过于麻烦。

如果你的信息是Excel文件，那么下面介绍的一招，轻松解决你的困惑

效果图

2.gif

正常Excel打开状态

1.JPG

1. 从上面的效果图可以看到，其它用户打开的时候，Excel不会显示工作表信息，会觉得是不是这个Excel秀逗了
2. 然后就放弃打开了，哈哈（也有锲而不舍者，那也得服-_-！）
3. 代码如下，关键是获取登陆用户的名称，如果不是设定的名称，则自动关闭当前工作簿（想关闭Excel软件也可以，Application.Quit）
4. 这段代码使用到了工作簿事件，Workbook_Open即工作簿一打开就会执行以下这段代码

Private Sub Workbook_Open()
    user = Environ("username")
    If user <> "Administrator" Then
        ThisWorkbook.Close
    End If
End Sub

直播写代码

1.gif

以上为本次的学习内容，下回见

如发现有错误，欢迎留言指出

---

更多精彩，请关注微信公众号

扫描二维码，关注本公众号
让重复工作一键化，让时间更有意义

公众号底部二维码.jpg