VBA mit Case-Anweisung
30.07.2015 14:57:20
WalterK
den folgenden Code habe ich in der Recherche gefunden. Damit kann der Zugriff auf die Blätter gesteuert werden. Mein UserName bei meinem PC lautet: User
Den Namen User habe ich auch bei der ersten Case-Anweisung eingegeben. Trotzdem wird die erste Case-Anweisung immer übersprungen. Was mache ich falsch?
Sub Test()
'Private Sub Workbook_Open()
Dim strUser As String, wks As Worksheet
With Application
.EnableCancelKey = False
.ScreenUpdating = False
End With
strUser = Environ("Username")
MsgBox strUser 'die MsgBox gibt bei meinem PC den Namen "User" aus (ohne die Anfü _
hrungszeichen)
On Error GoTo ERRHANDLER
Select Case LCase(strUser)
Case "User"
For Each wks In Worksheets
wks.Visible = True
Next
Case Else
Worksheets("Tabelle1").Visible = True
End Select
Sheets("NoMacro").Visible = 2
ERRHANDLER:
Application.EnableCancelKey = True
If Err.Number Then
MsgBox "Kein Zugriff erlaubt!", , "Berechtigungsprüfung"
Me.Close
End If
End Sub