保存和更新工作表的VBA代码仅适用于我？

Question

因此，我有一个应保存的工作表，并在单元格P1中更新Excel用户的名称，并在Q1中标记当前时间。当按下保存按钮时，这也应该使用密码锁定单元格进行编辑。

但是，我更新工作表时工作正常，但其他用户则不行。他们启用了宏，所以我知道这不是原因。

以下是我正在使用的代码：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Range("P1") = "Last Update: " & Format(Now)
Range("Q1").Value = Application.UserName 'Stamp the current user name
Worksheets("Org Chart").Activate
ActiveSheet.Protect ("Password")
End Sub

此代码中是否存在可能导致此行为的错误？

Answer 1

尝试使用：

Range("Q1").Value = Environ("username")

当不同的用户打开工作簿时，这应该给出不同的值。如果多个用户使用同一工作站打开工作簿，您将需要一些其他技术......

Answer 2

没关系，这个问题。我道歉，用户说他们是'＃34;肯定＆＃34;他们启用了宏，但显然他们没有。

但是，我认为使用环境名称而不是程序许可证名称的替代方案更好，所以我感谢您的帮助。