Anzeige
Archiv - Navigation
280to284
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
280to284
280to284
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Symbolleiste gesucht...

Symbolleiste gesucht...
18.07.2003 10:04:17
chris
Hallo zusammen,
Ich brauche Hilfe. Für Euch ist sicherlich ein Witz!!!
In der Symbolleiste ist "Daten" verschwunden!!!!! Wie kann die Symbolleiste zurücksetzen (lieferzustand)????
Danke Chris und bitte.... nicht lachen:-))

Ich habe sogar Excel deinstalliert und wieder installiert: Die Einstellungen bleiben. Ich muss dazu sagen, dass ich mit Makros herumexperimentiert habe: habe vielleicht etwas umgestellt? Ich bitte um Eure Hilfe!!!!
Danke Chris

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Symbolleiste gesucht...
18.07.2003 10:10:18
ivan


hi chris
gib das in ein modul ein!
UND FÜHRE AUTO CLOSE DURCH.
Option Explicit

     Dim Cn%
     Dim CdbList()
     Dim Status_StandardBar As Boolean
     Dim Status_FormulaBar As Boolean
     Dim Status_HorScroll As Boolean
     Dim Status_StatusBar As Boolean
     Dim Status_VerScroll As Boolean
     Dim Status_Gridlines As Boolean
     Dim Status_Headings As Boolean
     Dim Status_WorkbookTabs As Boolean
     Dim xCn%
     Dim xCdbList()

     
     Sub auto_close()
     Dim bar
    For Each bar In Application.CommandBars
        bar.Enabled = True
        Next
     
     Dim Cdb As CommandBar
     Dim Ci%

     For Ci = 1 To Cn - 1
         Application.CommandBars(CdbList(Ci)).Visible = True
     Next Ci

     With ActiveWindow
         .DisplayHeadings = Status_Headings
         .DisplayHorizontalScrollBar = Status_HorScroll
         .DisplayVerticalScrollBar = Status_VerScroll
         .DisplayGridlines = Status_Gridlines
         .DisplayWorkbookTabs = Status_WorkbookTabs
     End With

     With Application
         .DisplayStatusBar = Status_StatusBar
         .DisplayFormulaBar = Status_FormulaBar
    End With

     CommandBars(1).Enabled = True
     
     'Dim Cdb As CommandBar

     'Wenn Titelleiste von Excel geändern werden soll
        Application.Caption = "" '"     Mp3 Reader 1.0    Copyright by "

     'falls die eigenen Symbolleisten auch ausgeblendet werden sollen, dann
     'den Code 'And Cdb.BuiltIn = True' aus nachstehender Zeile entfernen
     Cn = 1
     For Each Cdb In Application.CommandBars
         If Cdb.Visible And Cdb.Type <> msoBarTypeMenuBar Then
         'And Cdb.BuiltIn = True Then
             ReDim Preserve CdbList(Cn)
             CdbList(Cn) = Cdb.Name
             Cn = Cn + 1
             Cdb.Visible = True
         End If
     Next

     With ActiveWindow
         Status_HorScroll = .DisplayHorizontalScrollBar
         If .DisplayHorizontalScrollBar = False Then .DisplayHorizontalScrollBar = True

         Status_VerScroll = .DisplayVerticalScrollBar
         If .DisplayVerticalScrollBar = False Then .DisplayVerticalScrollBar = True

         Status_Gridlines = .DisplayGridlines
         If .DisplayGridlines = False Then .DisplayGridlines = True

         Status_Headings = .DisplayHeadings
         If .DisplayHeadings = False Then .DisplayHeadings = True
     
         Status_WorkbookTabs = .DisplayWorkbookTabs
         If .DisplayWorkbookTabs = False Then .DisplayWorkbookTabs = True
     
     End With

     With Application
         Status_StatusBar = .DisplayStatusBar
         If .DisplayStatusBar = False Then .DisplayStatusBar = True

         Status_FormulaBar = .DisplayFormulaBar
         If .DisplayFormulaBar = False Then .DisplayFormulaBar = True
     End With
    Application.CommandBars("Standard").Visible = True
    Application.CommandBars("Formatting").Visible = True
    Application.DisplayFullScreen = False
 End Sub


Anzeige
AW: Symbolleiste gesucht...
18.07.2003 10:19:22
chris
DankeIVAN!!
Erledigt!!!!!!!!
MfG Chris


Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige