Alle Tabellen, nicht nur die aktive
10.02.2005 12:46:35
Giuseppe
Ich habe hier ein Makro, dass mir die Menüs und Icons
aus- bzw. einblendet.
Das Problem:
- Ich möchte ALLE Tabellen wieder zurücksetzten, nicht nur die
aktuelle.
... ich vermute, dass sich das Problem in der
Zeile " With ActiveWindow " verbirgt.
Doch ich weiss nicht wie und was!
Private Sub Excelansichten_einschalten()
Application.ScreenUpdating = False
With ActiveWindow
.DisplayGridlines = True
.DisplayHeadings = True
.DisplayOutline = True
.DisplayZeros = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
With Application
.ShowStartupDialog = True
.DisplayFormulaBar = True
.DisplayStatusBar = True
.ShowWindowsInTaskbar = True
End With
' Leisten wieder einblenden
Application.ScreenUpdating = False
Dim symbol As CommandBar
For Each symbol In Application.CommandBars
symbol.Enabled = True
Next symbol
Application.DisplayFormulaBar = True
Application.ScreenUpdating = True
Application.CommandBars("Full Screen").Visible = False
Application.CommandBars("Full Screen").Enabled = True
Application.DisplayFullScreen = False
'Die Tastenkombinationen werden wieder aktiviert
Application.OnKey "%{F2}"
Application.OnKey "%{F8}"
Application.OnKey "%{F11}"
Application.OnKey "%+{F2}"
Application.OnKey "+{F12}"
Application.OnKey "^{F12}"
Application.OnKey "{F12}"
Application.OnKey "^{s}"
Application.OnKey "^{o}"
Application.OnKey "^{c}"
Application.OnKey "^{v}"
' ' Tabellen ein
'Dim wks As Worksheet
'For Each wks In ActiveWorkbook.Worksheets
'If wks.Name <> "Dateien" Then
'wks.Visible = True
'End If
'Next
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Application.ScreenUpdating = True
End Sub
Kann mir jemand weiterhelfen? Bitte!
mfG
Giuseppe