Promijenite dostupnost CommandBars pomoću VBA u Microsoft Excelu

Anonim

Pomoću makronaredbe ispod možete promijeniti dostupnost trake izbornika radne knjige, standardne alatne trake i prilagođene naredbene trake.
Prilikom prvog pokretanja makronaredbe izbornik i Standardna traka onemogućeni su, prilagođena alatna traka je omogućena.
Sljedeći put kada pokrenete makronaredbu izbornik i standardna traka su omogućeni, prilagođena naredbena traka onemogućena je.

Pod ToggleCommandBars () Dim cbEnabled Kao Boolean 'dohvati trenutno stanje naredbene trake cbEnabled = Nije Application.CommandBars (1) .Enabled' primijeni novo stanje na traku izbornika radne knjige Application.CommandBars (1) .Enabled = cbEnabled 'primijeni novo stanje na standardnu ​​alatnu traku Application.CommandBars ("StandardOPE"). Enabled = cbEnabled 'primijeni novo stanje na prilagođenu naredbenu traku (suprotnost od prethodne dvije) Application.CommandBars ("MyCustomCommandBar"). Enabled = Nije cbEnabled End Sub