Ein-/Ausblenden, Scripts 1-2 in Script 3 einbauen?
12.12.2016 17:26:38
Peter
Ich habe unten stehende Scripts 1-3. Script 1 blended die Bearbeitungszeile und die Menubar aus/ein. Nun möchte ich noch die Zeilen und Sapltenüberschriften ein-/ausblenden. Dazu habe ich die Scripts 1-2. Jedoch habe ich es nicht geschaft, diese in das Script3 so einzubauen, das die Zeilen/Spaltenüberschriften ebenfalls mit ein/ausgeblendet werden. Wie muss ich das Script anpassen?
Script1
Sub SpaltenZeilenueberschriften_Ausblenden()
ActiveWindow.DisplayHeadings = False
End Sub
Script2
Sub SpaltenZeilenueberschriften_Einblenden()
ActiveWindow.DisplayHeadings = True
End Sub
Script3
Sub AllesAusEinBlenden()
Dim oBar As CommandBar
With CommandBars("Worksheet Menu Bar")
If .Enabled Then
.Enabled = False
Application.DisplayFullScreen = True
For Each oBar In Application.CommandBars
If oBar.Name "Worksheet Menu Bar" Then
If oBar.Visible Then
oBar.Visible = False
End If
End If
Next oBar
ActiveWorkbook.Protect Windows:=True
Else
ActiveWorkbook.Unprotect
.Enabled = True
Application.DisplayFullScreen = False
End If
End With
End Sub
Danke
Gruss,
Peter