Macro om op alle werkbladen de formulebalk en koppen te verbergen

[Bakkerbakgraag]

Beste allemaal,
ik ben op zoek naar een macro om op alle werkbladen in een bestand de formulebalk te verbergen en de koppen te verbergen. Middels "Macro Opnemen" lukt dit me slechts per blad. Kan iemand mij helpen?
Bij voorbaat dank!

 

[emields]

een voorbeeldbestandje moeten we zelf maken?

 

[Bakkerbakgraag]

Bij deze.

 

[roeljongman]

De formulewerkbalk verbergen geldt altijd voor de hele werkmap. Dat kan niet per tabblad ingesteld

De Rij en kolomkoppen verbergen gaat wel per tabblad.

Ik heb daarom in de ThisWorkbook module de volgende code gezet

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWindow.DisplayHeadings = False
End Sub

Die zet dan dus de kolomkoppen en rijnummers uit zodra je naar een tabblad gaat.

In module 1 heb ik 2 kleine macro's gezet daar een sneltoets aan gekoppeld

Sub FormulebalkTonen()
'CTRL+SHIFT+F
Application.DisplayFormulaBar = Not Application.DisplayFormulaBar
End Sub

Sub RijKolKopTonen()
'CTRL+SHIFT+K
ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings
End Sub

Met deze kun je dus met sneltoetscombinatie CTRL+SHIFT+F de formulebalk tonen of verbergen
en met 'CTRL+SHIFT+K kun je de kolom en rijkoppen ook handmatig verbergen of tonen.

de code zorgt dat er steeds tussen TRUE en FALSE wordt gewisseld als je de code uitvoert om te tonen of te verbergen

Je kunt de instellingen ook via opties aan en uitzetten maar met de sneltoetscombinatie heb je altijd een snelle optie



zie bijlage

 

[emields]

of zo? volgens uw eigen voorbeeld moeten ook de tabbladen verborgen worden.

 

[Obrecht]

Maak wel een knop of een snelkoppeling anders heb je een probleempje.

Sub ToggleFullScreen()
    With Application
        .DisplayFullScreen = Not .DisplayFullScreen
        .DisplayFormulaBar = Not .DisplayFullScreen
        ActiveWindow.DisplayWorkbookTabs = Not ActiveWindow.DisplayWorkbookTabs
     End With
End Sub

DisplayFullScreen:

Application.DisplayFullScreen property (Excel)

Office VBA reference topic

learn.microsoft.com

DisplayFormulaBar:

Application.DisplayFormulaBar property (Excel)

Office VBA reference topic

learn.microsoft.com

DisplayWorkbookTabs:

Window.DisplayWorkbookTabs property (Excel)

Office VBA reference topic

learn.microsoft.com

 

[snb]

Sub M_snb()
    Application.DisplayFormulaBar = Not Application.DisplayFormulaBar
    Sheets.Select
    ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings
End Sub

 

[mvdvlist]

DIT vergroot of verkleint ALLES.
Let wel op. Bij afsluiten heb ik voor de veiligheid ook Minimize ingevuld, om te voorkomen dat je volgende bestand ook gemaximaliseerd geopend wordt.