Excel bestand openen zonder werkbalken via marco

[Budel]

Hallo allemaal,

wie kan mij helpen, ik heb een bestand die ik wil openen zonder de werkbalken te zien.
Ik weet dat dit kan door een macro toe te voegen maar het lukt mij niet meer.
wie kan dit voor mij in orde maken.
Heb een test file hierbij toegevoegd.
Bekijk bijlage testmap.xlsx

 

[Cobbe]

Ik heb een code voor u die je op EIGEN risico gebruikt.
Steek dit niet in een bestand dat voor iemand anders bestemd is, hij of zij zal niet erg tevreden zijn.

'Status = xlOf  of xlOn
Sub Plaatsbalk(Status)
 Static pOudeBalk As New Collection
 Dim pBalk As Variant
  If Status = xlOf Then
   For Each pBalk In Application.CommandBars
    If pBalk.Type <> 1 And pBalk.Visible Then
     pOudeBalk.Add pBalk
     pBalk.Visible = False
    End If
   Next pBalk
Else
  For Each pBalk In pOudeBalk
    pBalk.Visible = True
  Next pBalk
 End If
 End Sub

 

[snb]

Full screen overwogen ?

 

[Budel]

Cobbe,



Bedankt voor de snelle reactie.
Dit is wat ik nodig had dankje.