Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema ScrollBar
BildScreenshot zu ScrollBar ScrollBar-Seite mit Beispielarbeitsmappe aufrufen

Toolbar hide beim Öffnen

Betrifft: Toolbar hide beim Öffnen von: Dennis
Geschrieben am: 19.06.2008 17:24:25

Dear all,

Gibt es ein Macro das mir beim oeffnen eines Excel Files, die ganze Toolbar entfernt, sowie die scroll leisten und die Spalten/Reihen Beschriftung ( A ; B ; C // 1 ; 2 ; 3)
also das ich nur noch die Menue leiste (File Edit view ...)habe.

Wenn mir da einer von euch weiterhelfen kann, waere ich sehr erfreut.

Danke
Dennis

  

Betrifft: AW: Toolbar hide beim Öffnen von: Matthias G
Geschrieben am: 19.06.2008 17:30:03

Hallo Dennis,

in "DieseArbeitsmappe":


Private Sub Workbook_Activate()
Dim cb As CommandBar
For Each cb In Application.CommandBars
    If cb.Index <> 1 Then cb.Enabled = False
Next cb
Application.DisplayFormulaBar = False
With ActiveWindow
    .DisplayHeadings = False
    .DisplayHorizontalScrollBar = False
    .DisplayVerticalScrollBar = False
    .DisplayWorkbookTabs = False
End With
End Sub

Private Sub Workbook_Deactivate()
Dim cb As CommandBar
For Each cb In Application.CommandBars
    cb.Enabled = True
Next cb
Application.DisplayFormulaBar = True
With ActiveWindow
    .DisplayHeadings = True
    .DisplayHorizontalScrollBar = True
    .DisplayVerticalScrollBar = True
    .DisplayWorkbookTabs = True
End With


Gruß Matthias