für dieses Problem brauche ich wirklich einmal Eure ganze Unterstützung. BITTE!!
Mein Ziel: Eine Dateiansicht in der nur die Excel Titelleiste erhalten bleibt. Weiterhin in der ich zusätzlich festlegen kann ob z.B. die Registerkarten sichtbar oder unsichtbar sind bzw die Bildlaufleisten.
Folgendes Makro bereitet mir jedoch richtige Probleme. Nach 'Beenden' verschwinden die Symbole unterhalb der Menueleiste (wie Kopieren, Öffnen, Ausschneiden usw.)
Ich kann sie auch nicht wieder herstellen, sie sind im Nirwana. Laufend installiere ich deshalb Office neu.
Option Explicit
Dim myCollection As New Collection
Dim cb As CommandBar
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If myCollection.Count Then
For Each cb In myCollection
cb.Enabled = True
cb.Visible = True
Next
End If
End Sub
Private Sub Workbook_Open()
On Error Resume Next
For Each cb In Application.CommandBars
If cb.Visible Then
myCollection.Add cb
cb.Enabled = False
cb.Visible = False
End If
Next cb
End Sub
Ich bin sehr dankbar für jeden Rat der mir hilft. Ich brauche Stunden um das jedesmal wieder hinzukriegen, weil ich ja nicht aufgeben will.
Gruß
Wolfgang