Blocco copia incolla taglia

Question

Buonasera, ho una forte necessità di poter bloccare qualsiasi azione di copia incolla taglia di dati presenti su un file excel, ma concedere solo la possibilità all'utilizzatore di poter visualizzare soltanto. Il blocco è inteso non solo nel foglio stesso ma anche di effettuare l'azione verso altri file di lavoro excel, il disabilitare queste funzioni che siamo esteso nell totalità delle possibilità (copia incolla taglia tramite tastiera,mouse e barra multifunzione) sicuramente ci vorrà l'ausilio del vba, ma non fa nulla va bene lo stesso.Grazie a tutti

Answer 1

Niente di facile per chi non ha dimestichezza col PC ma basta cercare su google, comunque, non è questo il luogo dove spiegarli!

Inoltre una password può essere assegnata anche al codice VBA quindi puoi unire le due cose, per aggiungere la password, dal modulo Sviluppo col tasto destro sul progetto VBA nel menu a sinistra fai Proprietà del Progetto VBA e poi in Protezione metti la spunta a "Proteggi progetto dalla visualizzazione", inserisci una password e dai l'ok.

Answer 2

Ciao Daniele innanzitutto un grande grazie, i modi per bypassare quali sarebbero?

Answer 3

Proteggendo il foglio di lavoro andando in Revisione > Proteggi Foglio e inserendo una password.

Purtroppo anche questo è aggirabile in qualche modo, non con la stessa facilità del precedente.

Answer 4

Il fine è evitare che altri si fanno proprio il lavoro altrui cioè in questo caso il mio, quali accorgimenti potrei adottare affinché il lavoro rimanga solo in modalità visualizzazione? Oltre a quello che mi hai scritto, sempre se un metodo c'è

Answer 5

Ciao Antonio,

qui Daniele, bentrovato nella community Microsoft,

puoi aggiungere questo in VBA nella scheda sviluppo a: "Questa Cartella di Lavoro" del file che vuoi bloccare

Private Sub Workbook_Open()
    ClearClipboard
End Sub

Private Sub Workbook_Activate()
  ClearClipboard
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  ClearClipboard
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  ClearClipboard
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
  ClearClipboard
End Sub

Sub ClearClipboard()
  Application.CutCopyMode = False
End Sub

Ovviamente funzionerà solo se l'utente abilita le macro, se non le abilita il copia e incolla resterà funzionante.

C'è anche da dire che è facilmente aggirabile e non esiste un modo non aggirabile.