bei dateiladen nur meine symbo



Excel-Version: 97
  

Re: bei dateiladen nur meine symbo

von: Hajo
Geschrieben am: 14.04.2002 - 17:04:17


Hallo Mike

ich gehe mal davon aus das Du Deine Symbolleiste selber eingeblendet und ausgeblendets kriegts. Für alle anderen

in ein Modul


Option Explicit

Public Leiste(26) As String
' es gibt 15 Symbolleisten 5 noch für pesönliche
' bei XP gibt es 21 Symbolleisten 5 noch für pesönliche

in DieseArbeitsmappe
Option Explicit

Private Sub Workbook_Activate()
    Dim As Long
    For x = 1 To Toolbars.Count
        On Error Resume Next
        If Toolbars(x).Visible Then
            Leiste(x) = Toolbars(x).Name
            Toolbars(x).Visible = False
        End If
    Next x
'    Application.CommandBars("Formatting").Visible = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim As Long
    For x = 1 To 26
        If Leiste(x) <> "" Then Toolbars(Leiste(x)).Visible = True
    Next x
End Sub

Private Sub Workbook_Deactivate()
    Dim As Long
    For x = 1 To 26
        If Leiste(x) <> "" Then Toolbars(Leiste(x)).Visible = True
    Next x
End Sub

Private Sub Workbook_Open()
    Dim As Long
    For x = 1 To Toolbars.Count
        On Error Resume Next
        If Toolbars(x).Visible Then
            Leiste(x) = Toolbars(x).Name
            Toolbars(x).Visible = False
        End If
    Next x
'    Application.CommandBars("Formatting").Visible = True
End Sub

Gruß Hajo

  

Re: bei dateiladen nur meine symbo

von: MikeS
Geschrieben am: 15.04.2002 - 08:25:46


Hallo Hajo,

erstmal vielen Dank für Deine Antwort.

Ich habe Deinen Code mal ausprobiert. Es werden alle Symbolleisten ausgeblendet bis auf die "Arbeitsblatt-Menüleiste".

Ich wollte aber nur "Mike`s Symbolleiste" angezeigt und alle anderen ausgeblendet lassen.

Vielleicht noch Idee, woran das liegen könnte???

Vielen Dank
Ciao Mike

nach unten

Betrifft: bei dateiladen nur meine symbo
von: MikeS
Geschrieben am: 14.04.2002 - 16:54:33

Hallo Leute,

ich möchte beim öffnen der Datei "Test", daß alle Symbolleisten ausgeblendet werden und nur "meine symbolleiste" sichtbar ist.

Beim schließen dieser Datei soll der Ursprungszustand wieder hergestellt werden.

Wer kann mir helfen???

Vielen Dank
MikeS


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "farbige Eintrage zählen"