Pozdravljeni
Moram priznati, da sem to vprašanje že zastavil, dobil sem namig, naprej mi ni šlo in sem ostal pri stari daljši varianti .
Želel bi vse orodne vrstice odstraniti (Application.CommandBars("xxx").Visible = False). Dobil sem namig - For Each zanko. Ni mi ratalo. Ostal sem na tem, da vsako vrstico poimensko odstranim. Tu pa se tudi pojavi kaka težavica .
Za odgovor se zahvaljujem.
Lp
Orodne vrstice
Pozdravljeni,
Če vas prav razumem iščete tole:
Kje je problem?
Če vas prav razumem iščete tole:
Koda: Izberi vse
' www.matjazev.net
' 16.09.2005
Sub Skrij()
Dim cb As CommandBar
For Each cb In Application.CommandBars
cb.Visible = false
Next
End Sub
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Ja res ne dela... Sploh nisem preizkusil. No rešitev navkljub temu ni težka saj je problem samo v tem, da so CommandBar-i tudi elementi, ki se ne smejo skriti. Orodne vrstice imajo tip 2, zatorej je delujoča(!) koda sledeča:
Koda: Izberi vse
' www.matjazev.net
' 16.09.2005
Sub Skrij()
Dim cb As CommandBar
For Each cb In Application.CommandBars
If (cb.Type = 0) Then cb.Visible = False
Next
End Sub
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator