Probleme nach Win7-Umstellung
Hockmock
heute bin ich wieder einmal auf ein Mysterium gestoßen und erhoffe mir hier Hilfe. Ich habe ein xls-datei mit der ich seit mehreren Jahren arbeite. Seit unserer gestrigen Win7-Umstellung (vorher Win2000) funztz nachfolgender Code nicht mehr. Es wird die Abfrage "....if user ="Mueller" or...." völlig ignoriert.
Hat jemand von euch einen Rat?
Danke im voraus,
Grüße Hockmock
Sub Workbook_Activate()
Dim User As String
Dim cb As CommandBar
User = Environ("UserName")
If User = "Mueller" Or User = "Maier" Or User = "Huber" Then
Exit Sub
Else
For Each cb In Application.CommandBars
cb.Enabled = False
Next
Application.CommandBars("MWP-Planungsmodelle").Enabled = True
Application.CommandBars("MWP-Planungsmodelle").Visible = True
End If
End Sub