Με την παρακάτω μακροεντολή μπορείτε να αλλάξετε τη διαθεσιμότητα της γραμμής μενού του βιβλίου εργασίας, της τυπικής γραμμής εργαλείων και μιας προσαρμοσμένης γραμμής εντολών.
Την πρώτη φορά που εκτελείτε τη μακροεντολή το μενού και η τυπική γραμμή απενεργοποιούνται, η προσαρμοσμένη γραμμή εργαλείων είναι ενεργοποιημένη.
Την επόμενη φορά που θα εκτελέσετε τη μακροεντολή το μενού και η τυπική γραμμή είναι ενεργοποιημένα, η προσαρμοσμένη γραμμή εντολών απενεργοποιείται.
Sub ToggleCommandBars () Dim cbEnabled Ως Boolean "λάβετε την τρέχουσα κατάσταση της γραμμής εντολών cbEnabled = Not Application.CommandBars (1). Enabled" εφαρμόστε τη νέα κατάσταση στην εφαρμογή γραμμής μενού βιβλίου εργασίας. CommandBars (1). Enabled = cbEnabled "εφαρμόστε τη νέα κατάσταση στην Τυπική γραμμή εργαλείων Application.CommandBars ("StandardOPE"). Enabled = cbEnabled 'εφαρμόστε τη νέα κατάσταση σε μια προσαρμοσμένη γραμμή εντολών (αντίθετα από τις δύο προηγούμενες) Application.CommandBars ("MyCustomCommandBar"). Enabled = Not cbEnabled End Sub