Grauer Balken trotz ausgeblendeter CommandBar
04.03.2006 23:21:43
nightswimming26
Ich werd`einfach nicht schlau draus:
Ich habe über ein Makro zu Beginn des Programms alle CommandBars ausgeblendet:
[Diese Arbeitsmappe]:
Option Explicit
' Spalten- Zeilenköpfe ausblenden
Private Sub Workbook_Activate()
Leisten False
End Sub
Private Sub Workbook_Deactivate()
Leisten True
End Sub
Private Sub Workbook_Open()
Stand = Application.DisplayFormulaBar
ActiveWindow.DisplayHeadings = False
Application.Goto Reference:=Worksheets("Front").Range("A1"), _
Scroll:=True
Range("E10:G11").Select
ActiveSheet.ScrollArea = "$A1:$GP104" ' Spalten- Zeilenköpfe ausblenden
' der Urzustand für diese wird beim schliessen nicht wieder hergestellt
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWindow.DisplayHeadings = False ' Spalten- Zeilenköpfe ausblenden
End Sub
[Normales Modul]:
Option Explicit
Public symbol As CommandBar
Public Stand As Boolean
Sub Leisten(AnAus As Boolean)
Application.ScreenUpdating = False
For Each symbol In Application.CommandBars
symbol.Enabled = AnAus
Next symbol
Application.ScreenUpdating = True
If AnAus = False Then
Application.DisplayFormulaBar = False
Else
Application.DisplayFormulaBar = Stand
End If
End Sub
Private Sub MenüleistenWiederherstellen()
' Notmakro zum einblenden der Symboleisten
Leisten True
End Sub
Private Sub MenüleistenAusblenden()
Leisten False
End Sub
Alles funzt perfekt, bis zu dem Zeitpunkt, an dem ich dieses Makro aus einer ComboBox heraus laufen lasse:
Private Sub ComboBox3_Change()
ActiveSheet.Unprotect Password:=Worksheets("Source").Range("$B$3")
ActiveSheet.Select
Range("K27:DC27").ClearContents
Select Case ComboBox3.Value
Case "8"
Range("O27").Activate
ActiveCell.FormulaR1C1 = "X"
Range("L27").Activate
ActiveCell.FormulaR1C1 = ""
Case "20"
Range("BK27").Activate
ActiveCell.FormulaR1C1 = "X"
Range("L27").Activate
ActiveCell.FormulaR1C1 = ""
'[usw.]
End Select
ActiveSheet.Protect Password:=Worksheets("Source").Range("$B$3")
End Sub
Dann nämlich breitet sich in den Zeilen 1 und 2 meines Worksheets ein schöner grauer Balken aus, der auch nicht weichen will. Muß eine Symbolleiste sein (RightClick ergibt Menü "Anpassen", das sich aber nicht verfolgen läßt...]
Ich wäre extrem dankbar, wenn mir jemand einen Tip geben könnte, was diesen Fehler auslöst!
Viele Grüße
Christian