Option Explicit
Private Sub Workbook_Open()
Dim A As Integer, myTabs As Worksheet
Dim sUserName As String
With Application
.ScreenUpdating = False
' Ist der Username der am PC angemeldet ist
sUserName = Environ$("USERNAME")
With ThisWorkbook
For A = 1 To .Worksheets.Count
Worksheets(A).Visible = True
Next A
For A = 1 To .Worksheets.Count
'If Abfrage entsprechend erweitern
'Username und Tabelle die er benutzen darf
With Worksheets(A)
If sUserName = "Franz" And .Name = "Tabelle1" Then
.Visible = True
ElseIf sUserName = "Paul" And .Name = "Tabelle2" Then
.Visible = True
ElseIf sUserName = "Mayer" And .Name = "Tabelle3" Then
.Visible = True
ElseIf sUserName = "Lisa" And .Name = "Tabelle4" Then:
.Visible = True
ElseIf sUserName = "Fritz" And .Name = "Tabelle5" Then
.Visible = True
Else: .Visible = xlVeryHidden
End If
End With
Next A
End With
.ScreenUpdating = True
End With
End Sub
Gruß Tino
Option Explicit
Private Sub Workbook_Open()
Dim sUser As String
sUser = Environ$("USERNAME")
Application.ScreenUpdating = False
Application.EnableEvents = False
With ThisWorkbook
If sUser = "Administrator" Then
.Sheets("Tabelle1").Select
ElseIf sUser = "Hans" Then
.Sheets("Tabelle2").Select
ElseIf sUser = "Mayer" Then
.Sheets("Tabelle3").Select
End If
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Dim sUser As String
sUser = Environ$("USERNAME")
Application.ScreenUpdating = False
Application.EnableEvents = False
With ThisWorkbook
If sUser = "Administrator" Then
.Sheets("Tabelle1").Select
ElseIf sUser = "Hans" Then
.Sheets("Tabelle2").Select
ElseIf sUser = "Mayer" Then
.Sheets("Tabelle3").Select
End If
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Ich würde es eher so machen wie im ersten Beitrag beschrieben und alle Zellen einer Tabelle für einen bestimmten User Freigeben, dann können andere zwar reinschauen aber nichts ändern.
Gruß Tino
