Ein-/Ausblenden, Scripts 1-2 in Script 3 einbauen?

Sub SpaltenZeilenueberschriften_Ausblenden()
ActiveWindow.DisplayHeadings = False
End Sub

Sub SpaltenZeilenueberschriften_Einblenden()
ActiveWindow.DisplayHeadings = True
End Sub

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