werkbalken verbergen vraag 2

[Max De Vylder]

de suggestie van daarnet van IMOD werkt uitstekend
nu wou ik alle werkbalken die er zijn op onzichtbaar plaatsen
zodat de gebruiker enkel de werkbalk die van toepassing is kan zien

mijn poging

Dim i As Integer
For i = 1 To CommandBars.Count
CommandBars(i).Visible = False
Next i
End Sub

maar helaas het gaat niet

iemand enige suggestie

 

[Jan van Asseldonk]

Als je op deze manier werkt gooi je de eigen werkbalkinstellingen van een gebruiker op z'n kop en daar zijn de meeste op z'n zachtst gezegd niet blij :evil: mee.

Met onderstaande macro stel je alle werkbalken veilig en verberg je ze daarna, bij het afsluiten kun je ze dan weer allemaal terugplaatsen.

Om ze te verbergen roep je de macro aan met PlaatsBalk xlOf

Om de orginelen terug te plaatsen gebruik PlaatsBalk 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


Dus kort

Sub EigenBalkPlaatsen
PlaatsBalk xlOf

'hier de code om je eigen werkbalk op te bouwen en te plaatsen
End Sub

Sub EigenBalkVerwijderen
'Code om eigen balk te verwijderen of uit te zetten.
PlaatsBalk xlOn
end Sub

 

[Tsarevitsj]

Ik doe het altijd op deze manier, kun je zelfs in de code van het workbook zetten;

Sub probeer01()
For Each cb In CommandBars
If cb.Enabled = True Then
cb.Enabled = False
End If
Next cb
With Application
.DisplayFormulaBar = False
.DisplayStatusBar = False
.ShowWindowsInTaskbar = False
End With
Application.CommandBars("Mijn eigen balk").Enabled = True
Application.CommandBars("Mijn eigen balk").Visible = True
End Sub

En daarna weer alles in omgekeerde volgorde