SrollArea
30.04.2006 12:24:58
Rico
habe hier einen Code (Von Hajo`s Homepage) wo man Symbolleisten entfernen kann.
Ich habe noch für eine Tabelle eine SrollArea hinzugefügt. Ich müßte aber noch für 2-3 Tabellen ScrollArea dazufügen. Kann mir jemand helfen den Code zu ändern.
Gruß Rico
Hier der Code!!!
Option Explicit
'**************************************************
'* H. Ziplies *
'* 07.03.04 *
'* erstellt von Hajo.Ziplies@web.de *
'* http://home.media-n.de/ziplies/ *
'**************************************************
Private Sub Workbook_Activate()
If Application.CommandBars("Worksheet Menu Bar").Enabled = True Then
Application.DisplayFullScreen = Not Application.DisplayFullScreen
Application.CommandBars("Full Screen").Enabled = Not Application.CommandBars("Full Screen").Enabled
Application.CommandBars("Worksheet Menu Bar").Enabled = Not Application.CommandBars("Worksheet Menu Bar").Enabled
ActiveWindow.DisplayHeadings = False
Worksheets("Tabelle1").ScrollArea = "a1:k35"
End If
End Sub
Private Sub Workbook_Deactivate()
If Application.CommandBars("Worksheet Menu Bar").Enabled = False Then
Application.DisplayFullScreen = Not Application.DisplayFullScreen
Application.CommandBars("Full Screen").Enabled = Not Application.CommandBars("Full Screen").Enabled
Application.CommandBars("Worksheet Menu Bar").Enabled = Not Application.CommandBars("Worksheet Menu Bar").Enabled
ActiveWindow.DisplayHeadings = True
End If
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWindow.DisplayHeadings = False ' Zeilen- und Spaltenüberschriften ausblenden
ActiveWindow.DisplayWorkbookTabs = False ' Tabreiter unten (tabelle1;tabelle2;...)
End Sub