nur eine Tabelle sichtbar lassen
17.07.2008 14:50:31
Ralf
ich habe einen ganz tollen Code, der es ermöglicht, daß wenn
andere auf meine Datei zugreifen, nur eine Tabelle sehen: Pivots_2
Das funktionierte in einer kleinen Testdatei auch ganz toll ( mit 5 Tabellen)
Nun wollte ich es auf eine größere Datei übertragen ( 23 Tabellen ), und ...
wenn ein anderer Username sie öffnet, sieht er immer alle Tabellen :-(
Woran kann das liegen ?
Private Sub Workbook_Open()
Dim i As Integer
If Application.UserName "Hollmann" Then
For i = 1 To Worksheets.Count
If Worksheets(i).Name "Pivots_2" Then
Worksheets(i).Visible = 2
End If
Next
Else
For i = 1 To Worksheets.Count
Worksheets(i).Visible = 1
Next
End If
End Sub
Viele Grüße
Ralf
Anzeige