Schreibgeschütztes Öffnen
18.01.2007 17:13:55
Richy
ich hab hier ein super VBA Teil gefunden, allerdings habe ich noch ein kleines Prboblem hiermit. Wenn ich als Master diese Datei öffne und anschliessend jemand dieselbe Datei ebenfalls öffnet, sieht er meine Masterdaten, die er eigentlich nicht sehen dürfte, er darf nur sein eigenes Blatt sehen.
Kann mir jemand hier helfen?
Hier die Code:
Private Sub workbook_open()
Dim objSh As Worksheet
Dim unam As String
Application.ScreenUpdating = False
unam = Environ("Username")
If unam = "master" Or unam = "assistent" 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
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim objSh As Worksheet
Application.ScreenUpdating = False
Sheets("Dokumentation").Visible = xlSheetVisible
Dim i As Byte
For Each objSh In Me.Worksheets
If objSh.Name <> "Dokumentation" Then _
objSh.Visible = xlVeryHidden
Next
Application.ScreenUpdating = True
End Sub