Impedire Copia Incolla

[alby60]

Ciao a tutti, ecco il mio quesito ho un file con varie celle nelle quali ho inserito la convalida con elenco contenente “Codice” in una colonna e “Progressivo” in un’altra. Su queste due colonne c’è anche la formattazione condizionale ed il foglio è protetto per impedire le cancellazioni accidentali delle formule che sono nelle altre colonne; sono sprotette solo queste due colonne. Il file è su un server e viene aggiornato da più utenti.
Vorrei impedire in queste due colonne (o in tutto il file) il copia incolla perché in questo modo si perde la formattazione condizionale.
Se avete altri suggerimenti a me va bene lo stesso. La cosa che mi serve è non perdere il formato di queste due colonne .

[Anthony47]

Il mio suggerimento e' che accetti il rischio e ne eviti l' effetto con una macro di Worksheet_Change che ripristina sulla cella modificata la formattazione che ti interessa mantenere.

Ciao

[alby60]

Ciao, grazie per la tua risposta. In altro sito ho avuto questa soluzione

Codice: Seleziona tutto

Private Sub Workbook_Open()
With Application
.CellDragAndDrop = False
.ExtendList = False
End With
Application.CommandBars("Cell").Enabled = False
Application.OnKey "^x", ""
Application.OnKey "^c", ""
Application.OnKey "^v", ""
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In
Application.CommandBars.FindControls(ID:=19)
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In
Application.CommandBars.FindControls(ID:=21)
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In
Application.CommandBars.FindControls(ID:=22)
Ctrl.Enabled = False
Next Ctrl
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application
.CellDragAndDrop = True
.ExtendList = True
End With
Application.CommandBars("Cell").Enabled = True
Application.OnKey "^x"
Application.OnKey "^c"
Application.OnKey "^v"
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In
Application.CommandBars.FindControls(ID:=19)
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In
Application.CommandBars.FindControls(ID:=21)
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In
Application.CommandBars.FindControls(ID:=22)
Ctrl.Enabled = True
Next Ctrl
End Sub

Fa proprio al caso mio.

[Anthony47]

Grazie per ave condiviso quella soluzione.
Ovviamente quelle modifiche saranno valide su tutti i file che l' utente ha aperto sul suo Pc, potrebbe sorgere qualche malumore... Come possibile bypass a questo effetto collaterale, inserire il codice della BeforeClose anche in una Workbook_Deactivate, e quello del Workbook_Open anche in una Workbook_Activate.
Inoltre non viene disabilitata l' icona "pennello" che consente di copiare la formattazione; nel caso ti interessi completare, il suo ID e' 108

Ciao.

[alby60]

Ciao Anthony, grazie delle precisazioni. Le inserirò nel mio lavoro. Agli utilizzatori del mio file sono state date delle indicazioni molto dettagliate su come lavorare e cosa fare e non fare però la prudenza non è mai troppa. Grazie di nuovo