Question

我已经在下面有一个宏，只需点击一下按钮即可隐藏工作表，并且工作正常。但是我想要更改这个宏，以便只有两个用户（其用户名是＆＃34; JSMITH＆＃34; AND＆＃34; DTAYLOR＆＃34;）能够取消隐藏这个名为＆＃34; Rates＆＃34; 。

如果其他人（其用户名不是上述两个中的一个）尝试取消隐藏工作表，我希望Excel显示一条消息＆＃34;您无权打开此消息＆＃34;。

此外，我需要确保只有这两个用户能够在没有vba的情况下以传统方式取消隐藏（例如，通过右键单击可见工作表选项卡并选择取消隐藏或从任何工作表选项卡，选择格式，表格，然后取消隐藏）。

请问您如何修改以下代码以执行上述所有操作？

我想出了这个，但它不起作用：

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

Answer 1

1-打开您的ThisWorkbook代码模块。

2-将此行粘贴在其顶部：

Private RatesVisible As Variant

3-找到以下例程：

Private Sub Workbook_Open()
...
...
End Sub

在第End Sub行之前插入以下行：

RatesVisible = Worksheets("Rates").Visible

4-删除旧例程GoToRates_WS

5-复制以下代码并将其粘贴到代码模块的末尾：

Private Function privilegedUser() As Boolean
    Select Case UCase(Environ$("username"))
        Case "JSMITH", "DTAYLOR"
            privilegedUser = True
        Case Else
        End Select
End Function

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    RatesVisible = Worksheets("Rates").Visible
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name <> "Rates" Then
        RatesVisible = Worksheets("Rates").Visible
        Exit Sub
    End If
    If privilegedUser Then
        RatesVisible = Worksheets("Rates").Visible
    Else
        Worksheets("Rates").Visible = RatesVisible
    End If
End Sub

Private Sub GoToRates_WS()
    If privilegedUser Then
        RatesVisible = xlSheetVisible
        Worksheets("Rates").Visible = xlSheetVisible
    Else
        MsgBox "You are not authorized to open this worksheet"
    End If
End Sub

如何仅允许特定用户取消隐藏工作表

1 个答案: