symbolleiste Ein Aus ...nicht auf allen tabellen
17.11.2006 18:42:52
roland_k
ich habe folgenden code:
Sub symb_aus()
Dim cb As CommandBar
wbk = ThisWorkbook.Name
For Each cb In Application.CommandBars
cb.Enabled = False
Next
Application.DisplayFormulaBar = False
With Windows(wbk)
.DisplayHeadings = False
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = False
'.DisplayWorkbookTabs = False
End With
End Sub
Sub symb_ein()
Dim cb As CommandBar
wbk = ThisWorkbook.Name
For Each cb In Application.CommandBars
cb.Enabled = True
Next
Application.DisplayFormulaBar = True
With Windows(wbk)
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
End Sub
das funkts auch soweit ---bis auf das
.DisplayHeadings = False
das schaltet sich nur im activen blatt aus....
bei den andern tabellen ist das noch vorhanden.
irgendwie muss ich da die tabellen einlesen und für alle
DisplayHeadings = False setzen
weiss mir da jemand rat .....was da falsch ist bzw ..wie Abhilfe funktioniert ?
danke
gruss
roland_k
Anzeige