Ausblenden eines Arbeitsblatts basierend auf dem Benutzernamen

Question

Ich habe bereits ein Makro darunter, das ein Arbeitsblatt auf Knopfdruck ausschaltet und in Ordnung arbeitet. Ich möchte jedoch, dass dieses Makro geändert wird, so dass NUR zwei Benutzer (deren Benutzernamen "JSMITH" UND "DTAYLOR" sind) dieses Blatt mit dem Namen "Rates" anzeigen können.

Wenn jemand anderes (dessen Benutzername nicht einer der beiden oben genannten ist) versucht, das Blatt einzublenden, möchte ich, dass Excel die Meldung "Sie sind nicht berechtigt, dies zu öffnen" anzeigt.

Darüber hinaus muss ich sicherstellen, dass nur diese beiden Benutzer in der Lage sind, sich ohne vba traditionell auszublenden (z. B. indem Sie mit der rechten Maustaste auf ein sichtbares Arbeitsblatt klicken und Einblenden wählen oder auf einem beliebigen Arbeitsblatt Format wählen , Blatt und dann wieder einblenden).

Können Sie bitte beraten, wie Sie den folgenden Code ändern können, um all die oben beschriebenen Dinge zu tun?

Sub Hide_AllRatesSheet() 

Worksheets("Rates").Visible = False 
ThisWorkbook.Sheets("Names").Activate 

End Sub 

Answer 1

Hinweis: Sie xlSheetVeryHidden Eigenschaft verwenden, könnte es zu ermöglichen, nur Einblenden von Code (und nicht von der rechten Maustaste).

versuchen, etwas wie den folgenden Code:

Sub Hide_AllRatesSheet() 

Select Case Environ$("username") '<-- check username 
    Case "JSMITH", "DTAYLOR" 
     If ActiveSheet.Name <> "Rates" Then '<-- make sure "Rates" is not the ActiveSheet 
      Worksheets("Rates").Visible = False 
     Else 
      ThisWorkbook.Sheets("Names").Activate 
      Worksheets("Rates").Visible = False 
     End If 
    Case Else 
     MsgBox "you're not authorised to open this" 
End Select 

End Sub