Impedire copia e incolla tra celle
beppe
foglio excel?
Da premettere che non posso semplicemente bloccare le celle perchè in
ciascuna l'utente deve poter inserire dei dati.
eliano
Ciao beppe.
Se avessi cercato sul NG o con google avresti trovato queste due
routines del grande Tiziano Marmiroli (ciao [se mi leggi :-)) azzardo
un BUONE FESTE ]),
da inserire in ThisWorkbook, che dovrebbero risolvere il tuo problema,
visto che impedisce il copia/incolla anche con CTRL+(caratteri)..
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", ""
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
Dovrebbe funzionare su tutti i fogli del solo file interessato.
Eliano
eliano
Bel colpo! Il copia/incolla mi ha perso una istruzione.
Nella prima routine: Private Sub Workbook_Open()
prima dell'istruzione: For Each Ctrl In
Application.CommandBars.FindControls(ID:=19)
inserisci l'istruzione: Dim Ctrl As Office.CommandBarControl
La vendetta del copia/incolla, lo possino
Eliano
beppe
Con le routines che mi hai indicato sono riuscito ad impedire copia/incolla
con CTRL+(caratteri) ed anche per trascinamento.
A questo punto, per completare l'opera, devo solo impedire
copia/taglia/incolla mediante l'uso delle rispettive funzioni presenti nei
menù di excel.
Come faccio a disabilitare tali funzioni.
Dammi un ultimo aiuto.
A presto
"eliano" ha scritto:
eliano
> Sei grande. GRAZIE a te ed anche a Tiziano Marmiroli.
>
> Con le routines che mi hai indicato sono riuscito ad impedire copia/incolla
> con CTRL+(caratteri) ed anche per trascinamento.
>
> A questo punto, per completare l'opera, devo solo impedire
> copia/taglia/incolla mediante l'uso delle rispettive funzioni presenti nei
> menù di excel.
>
> Come faccio a disabilitare tali funzioni.
> Dammi un ultimo aiuto.
Oh Beppe,
intendi dire che se inserisci quella routine in un evento Open riesci
ancora a copia/incollare qualcosa ??
Per caso usi una colla speciale ?? :-))
Eliano
beppe
mi spiego:
una volta inserita la routine non è più possibile eseguire copia/incolla con
CTRL+(caratteri) o per trascinamento celle, ma:
- nella versione 2007 di excel è ancora possibile eseguire copia/incolla
selezionando le relative voci dei menù col mouse;
- nella versione precedente è possibile eseguire il "copia formato" sempre
utilizzando il mouse.
Addirittura se non si attivano le macro all'apertura del file tutte le
funzioni copia/incolla rimangono attive!
Come posso risolvere questi inconvenienti?
"eliano" ha scritto:
eliano
>
> - Mostra testo citato -
Ciao Beppe.
Per il 2007 non ne ho la più pallida idea, ma fino al 2003 quella
routine funziona in tutte le situazioni.
Eliano
eliano
> Addirittura se non si attivano le macro all'apertura del file tutte le
> funzioni copia/incolla rimangono attive!
Stranamente mi sembra ovvio !!!
genera...@gmail.com
mi date il percorso per favore, non sono cosi avvanzata