Ben ik hier eigenlijk wel goed bezig, als ge zo'n 20 werkbaden bijeen krijgt wordt het dan niet teveel, en gaat het misschien wel op een andere manier ?

Mijn macro's om de werkbalken te verbergen.



Sub WerkbalkenMenuUIT()     'Alle werkbalken onzichbaar - Geldig voor alle werkbladen tegelijk
    Application.CommandBars("Standard").Visible = False
    Application.CommandBars("Formatting").Visible = False
    Application.CommandBars("PivotTable").Visible = False
    Application.CommandBars("External Data").Visible = False
    Application.CommandBars("Picture").Visible = False
    Application.CommandBars("Forms").Visible = False
    Application.CommandBars("Chart").Visible = False
    Application.CommandBars("Borders").Visible = False
    Application.CommandBars("Reviewing").Visible = False
    Application.CommandBars("Drawing").Visible = False
    Application.CommandBars("Visual Basic").Visible = False
    Application.CommandBars("Web").Visible = False
    Application.CommandBars("Stop Recording").Visible = False
    Application.CommandBars("Control Toolbox").Visible = False
    Application.CommandBars("WordArt").Visible = False
    'Application.CommandBars("EuroValue").Visible = False
    'Application.CommandBars("Protection").Visible = False
    'Application.CommandBars("Formula Auditing").Visible = False
    'Application.CommandBars("Task Pane").Visible = False
    'Application.CommandBars("Text To Speech").Visible = False
    'Application.CommandBars("Watch Window").Visible = False
    Application.CommandBars(1).Enabled = False      ' De bovenste programma MENU-balk onzichtbaar maken
End Sub
Sub SchuifTabFormuleStatusBalkenUIT()     'Schuifbalken, Tabbladen, Formulebalk en Statusbalk onzichtbaar
    With ActiveWindow                     'Geldig voor alle werkbladen tegelijk
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
    End With
    With Application
        .DisplayFormulaBar = False
        .DisplayStatusBar = False
    End With
End Sub
Sub RestBalkenStartUIT()          'Gridlijnen, Kolom en Rij nummers, Nullen en Ouline onzichtbaar
    Sheets("Start").Select        'Geldig voor één enkel werkblad
    With ActiveWindow
        .DisplayGridlines = False
        .DisplayHeadings = False
        .DisplayOutline = False
        .DisplayZeros = False
    End With
    Application.ShowWindowsInTaskbar = False
End Sub
Sub RestBalkenInvoerUIT()          'Gridlijnen, Kolom en Rij nummers, Nullen en Ouline onzichtbaar
    Sheets("Invoer").Select        'Geldig voor één enkel werkblad
    With ActiveWindow
        .DisplayGridlines = False
        .DisplayHeadings = False
        .DisplayOutline = False
        .DisplayZeros = False
    End With
    Application.ShowWindowsInTaskbar = False
End Sub
Sub RestBalkenAanpassenUIT()       'Gridlijnen, Kolom en Rij nummers, Nullen en Ouline onzichtbaar
    Sheets("Aanpassen").Select     'Geldig voor één enkel werkblad
    With ActiveWindow
        .DisplayGridlines = False
        .DisplayHeadings = False
        .DisplayOutline = False
        .DisplayZeros = False
    End With
    Application.ShowWindowsInTaskbar = False
End Sub
Sub RestBalkenBerekeningenUIT()     'Gridlijnen, Kolom en Rij nummers, Nullen en Ouline onzichtbaar
    Sheets("Berekeningen").Select   'Geldig voor één enkel werkblad
    With ActiveWindow
        .DisplayGridlines = False
        .DisplayHeadings = False
        .DisplayOutline = False
        .DisplayZeros = False
    End With
    Application.ShowWindowsInTaskbar = False
End Sub

Bedankt PowerKite, maar heb je geen klein voorbeeldje ?

Wat wordt er gewoonlijk gedaan in een excel programma ?
Ik heb eigenlijk geen voorbeelden.
Had het graag gehad met een volledig scherm, maar hoe dan ?

Met deze routine ben ik er nog niet uit

Sub WerkbalkenUIT()
    Application.DisplayFullScreen = True
    Application.CommandBars(1).Enabled = False
End Sub

Nog eens HELP

Heb graag een proper schermpje.
Maar zal  toch maar werken met  de beveiliging dan.
Ingrid, Bedank voor de moeite.

'k moet toch nog veel leren hoor