Evidenza riga della cella selezionata... ma rendendo il codice VBA disponibile per tutti le cartelle excel

Question

Buongiorno

lo so, argomento già trattato. Ciò che non trovo nelle diverse discussioni é come salvare il codice VBA:

Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

   Cells.Interior.ColorIndex = xlNone

   Target.EntireRow.Interior.ColorIndex = 19

   Target.Interior.ColorIndex = xlNone

End Sub

in modo da poterlo poi utilizzare per tutti i fogli Excel che si aprono, per esempio inserendolo nella barra multifunzione e quindi attivare/disattivare il codice con un pulsante.

Grazie.

[corretta l'impaginazione]

Answer 1

Mi fa piacere che si tratti della soluzione desiderata.

Ti chiederei, a questo punto, di indicare l'ultima mia risposta come risolutiva.

In questo modo se altri utenti, in futuro, dovessero avere la stessa esigenza troverebbero la soluzione evidenziata.

Answer 2

Ciao Casanmaner e grazie per la pronta risposta.

Cosi ho capito e ho fatto, ma non produce il risultato atteso.

Answer 3

Ciao Eleuterio,

che in realtà quanto faccio io, ad esempio, per impostare in automatico per ogni nuova cartella di lavoro l'allineamento verticale centrale per lo stile Normal, i margini e altre impostazioni.

Il vantaggio di un "addin" è che può essere facilmente disabilitato se necessario.

Answer 4

Oltre al consiglio di casanmaner (ciao), puoi valutare l'opportunità di creare un addin .xlam per poterlo utilizzare indipendentemente dal file usato, ma non so che conoscenze hai di programmazione.

Ciao.

Answer 5

Hai un file PERSONAL.xlsb?

Se non ce l'hai registra una macro qualsiasi indicando come cartella di salvataggio la cartella personale.

In "ThisWorkbook" o "Questa_cartella_di_lavoro" come prime dichiarazioni scrivi

Option Explicit

Public WithEvents App As Application

Poi con l'evento Open sempre della cartella Personal.xlsb carichi la variabile:

Private Sub Workbook_Open()

Set App = Application

End Sub

Ora si tratta di sfruttare gli eventi di "App".

Ad es.

Private Sub App_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

Cells.Interior.ColorIndex = xlNone

Target.EntireRow.Interior.ColorIndex = 19

Target.Interior.ColorIndex = xlNone

End Sub

In questo modo dovresti eseguire quel codice per ogni foglio di ogni cartella di lavoro aperta