bene63
2011-06-21 08:32:24 UTC
Un saluto a tutti i componenti il Gruppo.
Espongo il mio problema già affrontato in altro sito ma, ahimè, con
esito negativo. Vengo subito a quanto riscontrato: selezionando un
qualsiasi "Controllo ActiveX" del foglio di Excel 2010 (senza alcuna
protezione sia nel foglio sia in VBA) e cliccando col tasto destro del
mouse nel relativo menù che si apre, le voci "Proprietà e Visualizza
codice" non fungono, come se fossero, tanto per usare il linguaggio
VBA, in modalità "Enabled False". Qualcuno sa dirmi il perché?
Poi, la cosa strana è che in Word le due voci funzionano, quindi il
problema è limitato ad Excel.
Sicuramente avrò aperto qualche file di Excel con codice VBA
"malevolo" trovato qua e là su internet e mi avrà disattivato quelle
voci.
Ho provato anche il codice sotto per un eventuale ripristino, niente,
non va, rimangono sempre in "Enabled False".
Private Sub Workbook_Open()
Dim CB As CommandBar
For Each CB In Application.CommandBars
CB.Enabled = True
Next CB
Application.CommandBars("Worksheet Menu Bar").Visible = True
Application.DisplayFormulaBar = True
Application.CellDragAndDrop = True 'ripristina + trascina formule
Application.CommandBars("Cell").Enabled = True
End Sub
Grazie.
Benedetto
Espongo il mio problema già affrontato in altro sito ma, ahimè, con
esito negativo. Vengo subito a quanto riscontrato: selezionando un
qualsiasi "Controllo ActiveX" del foglio di Excel 2010 (senza alcuna
protezione sia nel foglio sia in VBA) e cliccando col tasto destro del
mouse nel relativo menù che si apre, le voci "Proprietà e Visualizza
codice" non fungono, come se fossero, tanto per usare il linguaggio
VBA, in modalità "Enabled False". Qualcuno sa dirmi il perché?
Poi, la cosa strana è che in Word le due voci funzionano, quindi il
problema è limitato ad Excel.
Sicuramente avrò aperto qualche file di Excel con codice VBA
"malevolo" trovato qua e là su internet e mi avrà disattivato quelle
voci.
Ho provato anche il codice sotto per un eventuale ripristino, niente,
non va, rimangono sempre in "Enabled False".
Private Sub Workbook_Open()
Dim CB As CommandBar
For Each CB In Application.CommandBars
CB.Enabled = True
Next CB
Application.CommandBars("Worksheet Menu Bar").Visible = True
Application.DisplayFormulaBar = True
Application.CellDragAndDrop = True 'ripristina + trascina formule
Application.CommandBars("Cell").Enabled = True
End Sub
Grazie.
Benedetto