ich habe eine "Anwendung" gebastelt wo bei dem Aufruf ein entsprechendes Userform aufgerufen werden soll. Dieses Userform soll immer beim Öffnen der Datei aufgerufen werden, auch wenn der User die Datei in einer anderen Arbeitsmappe verlassen hat.
Ich habe folgenden Code in "Diese Arbeitsmappe" erstellt, aber irgendwie funktioniert das nicht.
Die gesamte Datei kann ich leider nicht hochladen (Firewall verhindert dies)
'Symbolleisten ausblenden
Private Sub Workbook_Open()
Dim cb As CommandBar
For Each cb In Application.CommandBars
cb.Enabled = False
Next cb
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
With Application
.DisplayStatusBar = False
.DisplayFormulaBar = False
End With
End Sub
'Userform einblenden und ausführen lassen
Private Sub Worksheet_Activate()
UserForm5.Show
End Sub
'Symbolleisten einblenden
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim cb As CommandBar
For Each cb In Application.CommandBars
cb.Enabled = True
Next cb
With ActiveWindow
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
With Application
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
End Sub
Wo liegt denn mein Fehler?
Im Voraus besten Dank
Benjamin