VBA Frage
30.01.2007 12:00:49
Richy
ich hab eine VBA Frage
Bei dem Code unten, sage ich Ihm wenn der Chef bzw der 2.Chef die Datei aufmacht das er alle Tabellenblätter auf visible stellt.
Dann sage ich ebenfalls, für jeden anderen, soll er nur sein spezifisches Tabellenblatt anzeigen.
Wie kann ich in dem Code noch unterbringen, das wenn ein Environ name (hier: unam) auftaucht, der aber kein spezifisches Tabellenblatt enthält Excel das Programm schliesst (Aussnahme Chef und 2.Chef)
Hat jemand eine Idee?
Private Sub workbook_open()
Dim objSh As Worksheet
Dim unam As String
If ThisWorkbook.ReadOnly Then ThisWorkbook.Close False
Application.ScreenUpdating = False
unam = Environ("Username")
If unam = "richard.kuhn" Or unam = "alexa.theis" Then
For Each objSh In Me.Worksheets
objSh.Visible = xlSheetVisible
Next
Else
For Each objSh In Me.Worksheets
If objSh.Name = unam Then
objSh.Visible = xlSheetVisible
Exit For
End If
Next
End If
Application.ScreenUpdating = True
End Sub