Barra menu personalizzata

Hai un problema con Excel?

Nuova discussione

Barra menu personalizzata
di Salvatore (utente non iscritto) data: 11/06/2011
Ciao, vorrei sapere se è possibile modificare in un solo file excel (2003) la barra dei menu in pratica mi servirebbe che quando lancio quel file excel i tasti "formato" e "finestra" non funzionino o non siano visualizzabili.

grazie salvatore
di Isy (utente non iscritto) data: 11/06/2011
Ciao

puoi disattivare le voci della barra come da esempio vedi allegato.
ricordo che se in chiusura appicativo la procedura non viene eseguita i menu rimangono disabilitati.
' Disabilita i Menu With Application.CommandBars(1) .Controls("Formato").Enabled = False .Controls("Finestra").Enabled = False End With
di Salvatore (utente non iscritto) data: 12/06/2011
Ok, ma c'è un modo per evitare che se aprò un altro file excel contemporaneamente a questo le voci finestra e formato siano utilizzabili?

e poi in chiusura per far tornare tutto normale cosa e dove dovrei(in thisworkbook) scrivere?

salvatore
di Isy (utente non iscritto) data: 12/06/2011
Ciao

forse non l'hai notato, ma in alto a destra trovi un'icona con l'allegato dove mostra la procedura adatta allo scopo.

a risentirci
di Salvatore (utente non iscritto) data: 16/06/2011
Ciao, scusami ma dove sta sto file?

di Isy (utente non iscritto) data: 17/06/2011
Ciao

ricorda che dopo qualche tempo l'allegato verrà rimosso.

codice completo da inserire in thisworkbooks:

Private Sub Workbook_Activate()
'   Disabilita i Menu
    With Application.CommandBars(1)
        .Controls("Formato").Enabled = False
        .Controls("Finestra").Enabled = False
    End With
End Sub

Private Sub Workbook_Deactivate()
'   Disabilita the Menu
    With Application.CommandBars(1)
        .Controls("Formato").Enabled = True
        .Controls("Finestra").Enabled = True
    End With
End Sub

Private Sub Workbook_Open()
'   Ripristina i Menu
    With Application.CommandBars(1)
        .Controls("Formato").Enabled = False
        .Controls("Finestra").Enabled = False
    End With
End Sub

di Salvatore (utente non iscritto) data: 22/06/2011
Grazie, lo provo con calma e ti faccio sapere :))

Vuoi Approfondire?