Tabellensicht per Makro steueren
mat
wer kann mir bei der Änderung des folgenden Makro helfen?
Private Sub Workbook_Open()
Dim Blatt As Worksheet
For Each Blatt In ThisWorkbook.Worksheets
If Blatt.Name "Abfrage" Then Blatt.Visible = xlSheetVeryHidden
Next
Select Case Environ("username")
Case "Müller"
Worksheets("DB").Visible = True
Worksheets("Data").Visible = True
Worksheets("adr").Visible = True
Case Else
MsgBox "Sie haben Standardsicht!"
End Select
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Blatt As Worksheet For Each Blatt In ThisWorkbook.Worksheets
If Blatt.Name "Abfrage" Then Blatt.Visible = xlSheetVeryHidden
Next
End Sub
Der Anwender Müller hat durch das Makro Sicht auf alle Tabellen. Alle Anderen sehen nur das Tabellenblatt Anfrage. Alle Anwender (auch Müller) sollen aber noch das Tabellenblatt Welcome als erste Sicht sehen.
Gruß Mat