使用用户名指定运行vba模块

Question

当某个用户打开工作簿时，是否可以运行excel模块？ 这个想法很简单 - 当某个用户打开excel工作簿时，刷新所有数据源，保存并关闭。它打开的另一种方式。

Answer 1

我不确定这是多么“安全”，但它对我有用。请注意，您需要将其放在“ThisWorkbook”对象（而不是模块）中：

Private Sub Workbook_Open()
If Environ$("Username") = "bWayne" Then
    MsgBox ("Hi Bruce")
   ' Do whatever
End If
End Sub

另存为.xlsm，当您打开它时，如果用户名为bWayne，则会显示消息框...否则，没有任何反应。

Answer 2

还可以使用

检查Excel用户的姓名

If Application.UserName = “bWayne” Then
…
End If

在Workbook_Open（）程序中。