so wie es scheint stehe ich mit symbolleisten auf Kriegsfuss und erhoffe mir auf diesem Wege abhilfe. Folgendes problem:
Über das Menü "...Anpassen" habe ich in einer Arbeitsmappe eine neue Symbolleiste angelegt. Mit dem folgenden Code blende ich diese nun(benutzerspezifisch) ein und aus....
----------------------------
Sub Workbook_Activate()
Dim User As String
Dim cb As CommandBar
User = Environ("UserName")
If User = "Heini" Or User = "Werner" Or User = "Olm" 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
Sub Workbook_deactivate()
Dim cb As CommandBar
For Each cb In Application.CommandBars
cb.Enabled = True
Next
Application.CommandBars("MWP-Planungsmodelle").Enabled = False
Application.CommandBars("MWP-Planungsmodelle").Visible = False
End Sub
---------------------------
Soweit, sogut. Wenn ich das ganze mache (sprich Datei öffnen, schließen, andere Arbeitmappe aktivieren, ...) funktioniert alles einwandfrei. Wenn aber mein Kollege die Datei von seinem Arbeitsplat aus öffnet bekommt er einen Laufzeitfehler (#5) gemeldet.
Woran kann das liegen? Was kann ich tun?
Danke im voraus,
Andreas