salve
la macro che segue ti elenca le voci contenute nel menù contestuale
Sub ListaComandi()
Dim ctrl As CommandBarControl
riga = 1
For Each ctrl In Application.CommandBars("Ply").Controls
Cells(riga, 2).Value = ctrl.Caption
riga = riga + 1
Next
End Sub
quella che segue disabilita le voci in esso contenute. nell'esempio, disabilita il comando "Rinomina"
Sub disabilita()
Dim ctrl As CommandBarControl
For Each ctrl In Application.CommandBars("Ply").Controls
If ctrl.Caption = "&Rinomina" Then ctrl.Enabled = False
Next
End Sub
Se questa operazione deve essere eseguita su file da distribuire, la macro va eseguita all'apertura del file
senza dimenticarsi di farla riattivare alla sua chiusura, altrimenti l'utente si troverà sempre disabilitato il comando ed avrebbe mille ragioni per rincorrerti con il randello.
saluti
Giap
