使用用戶名隱藏/取消隱藏工作表

Question

我只想問問是否可以創建一個VBA，以使用Environ $（“ username”）來檢測打開工作簿的人員的身份，並使用它來隱藏一些工作表並取消隱藏只有該人可以看到的其他工作表？ 然后，如果另一個人打開同一工作簿，則它將為該另一個人隱藏/取消隱藏工作表。

Answer 1

您想要的示例（ 僅用於教育目的 ）：

Private Sub Workbook_Open()

Select Case Environ("username")
    Case "bloggsj"
        Sheets(1).Visible = False
        Sheets(2).Visible = True
    Case "doej", "murphyp", "manm"
        Sheets(2).Visible = True
        Sheets(1).Visible = False
    Case Else
        '// Unknown, close workbook
        ThisWorkbook.Close False
End Select

End Sub

重要說明：正如評論中已經提到的那樣，這不是保護數據的安全方法，例如，有兩個快速原因：

• 可以輕松更改環境變量“用戶名”，這將使代碼誤以為該人是另一個用戶。
• 打開文件時，按住Shift鍵可以輕松繞過Workbook_Open事件。