Hallo beisammen,
folgende 2 Codeabschnitte laufen nach dem Wechsel von Office2000 zu Office2003 nicht mehr:
1)
Dim ws As Worksheet
Dim Username As Integer
Dim wsCollection As Collection
Set wsCollection = New Collection
wsCollection.Add Worksheets("SETT")
wsCollection.Add Worksheets("PROTOC")
wsCollection.Add Worksheets("REVJ")
wsCollection.Add Worksheets("RE18LJ")
wsCollection.Add Worksheets("BU12LJ")
wsCollection.Add Worksheets("Accounts")
For Each ws In wsCollection
If Application.Username = "GWS-TKR" Or _
Application.Username = "GWS-FRB" Then
ws.Visible = xlSheetVisible
Else
ws.Visible = xlSheetVeryHidden
End If
Next ws
Die selektierten WS werden trotz meines Users (GWS-TKR) nicht mehr eingeblendet beim Öffnen der Datei.
2)
With Worksheets("START")
.Shapes("cmb_PROT").Visible = Application.Username = "GWS-TKR" Or _
.Shapes("cmb_PROT").Visible = Application.Username = "GWS-FRB"
.Shapes("cmb_UNPROT").Visible = Application.Username = "GWS-TKR" Or _
.Shapes("cmb_UNPROT").Visible = Application.Username = "GWS-FRB"
End With
Die selektierten cmb_Buttons werden trotz meines Users (GWS-TKR) nicht mehr eingeblendet beim Öffnen der Datei.
Wie müssen die Codes angepasst werden, damit's wieder läuft?
Vielen Dank für Eure Hilfe.
Gruß
Torsten