Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte novú Visual Basic súbor a začať nový subrutinu pomocou nasledujúci kód :
Sub RemoveToolbars ( )
2
Definujte kedy sa panely nástrojov by mali byť odstránené a za akých podmienok , napríklad :
On Error Resume Späť
s aplikáciou
DisplayFullScreen = TRUE
CommandBars .. ( " Full Screen " ) . Visible = False
. CommandBars ( " ExampleToolbarItemName " ) . Enabled = true
. CommandBars ( " ExampleToolbarItemName2 " ) . Enabled = true
pridanie " On Error Resume Back " donúti aplikácii obnoviť späť do svojej pôvodnej , neupravený, mal by narazíte na chyby . Zmena " ExampleToolbarItemName " a " ExampleToolbarItemName2 " názvov položiek panela nástrojov , ktorý chcete zmeniť , napríklad " Edit " alebo " Format " .
3
Zatvorte podprogramu s nasledujúci kód :
End With
On Error GoTo 0
End Sub
Copyright © počítačové znalosti Všetky práva vyhradené