我已经有一个宏下面的单击一个按钮取消隐藏工作表和工作正常。不过,我希望更改此宏,以便只有两个用户(其用户名是“JSMITH”和“DTAYLOR”)能够取消隐藏名为“Rates”的表。如何只允许特定的用户取消隐藏工作表
如果其他人(其用户名不是上述两个中的任何一个)试图取消隐藏工作表,我希望Excel显示“您无权打开该邮件”的消息。此外,我需要确保只有那两个用户能够以传统方式取消隐藏(例如,通过右键单击可见工作表选项卡并选择取消隐藏或从任何工作表选项卡中选择格式,工作表,然后取消隐藏)。
你能否建议如何修改下面的代码来完成上述所有内容?
我想出了这一点,但它不工作:
Sub GoToRates_WS()
Select Case Environ$("username")
Case "jsmith", "taylor"
Worksheets("Rates").Visible = True
ThisWorkbook.Sheets("Rates").Activate
Case Else MsgBox "you're not authorised to open this"
End Select
End Sub
你用“jsmith的”或“泰勒”作为您的Windows登录? –