problema con avviso excel

Hai un problema con Excel?

Nuova discussione

problema con avviso excel
di dani3l380 data: 21/07/2015 22:53:25
Salve, spiego brevemente quello che sono riuscito a fare e in che cosa mi occorre un auto:
ho dei fogli Excel in cui ci sono archiviati dei dati che devo copiare manualmente dal foglio originale a uno
nuovo. Per velocizzare un po' l'operazione ho scritto, in maniera molto artigianale il codice allegato, che mi
permette in automatico di fare il copia del codice accanto all'articolo che seleziono. La cosa che mi disturba un
po', certo non è la fine del mondo, è che essendo i fogli originali protetti capita spesso che esca il messaggio
che dice che le celle non possono essere modificate se premo troppo in fretta col mouse.
Vorrei sapere se esiste un modo per eliminare questo messaggio o quantomeno la possibilità di rispondere ok in automatico.
Grazie anticipatamente
ps ho trovato queste funzione che potrebbero fare al caso mio, ma non riesco ad usarle:screenupdating
disable events
displayalerts

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Column <> 1 And Target.Column <> 3 And Target.Column <> 10 And Target.Column <> 12 Then Exit Sub
    ActiveCell.Offset(0, 1).Select
    Selection.Copy
 End Sub

di alfrimpa data: 21/07/2015 23:31:09
Ciao Dani

Allega un tuo file di esempio (senza dati sensibili) e spiega esattamente qual è il risultato che vuoi ottenere.

Così sarà più facile aiutarti.

Alfredo
di dani3l380 data: 22/07/2015 00:00:51
innanzitutto grazie del celere interessamento.
Ho allegato un file dimostrativo, non è niente di coplicato un semplice elenco di dati e codici.
Cosi com'è praticamente mi manda in copia in maniera automatica quando seleziono il nome articolo per risparmiare un po di tempo e nell'altro foglio fa la stessa cosa con incolla alla selezione.
Quello che vorrei risolvere è il fatto che passando da un foglio all'altro se clicco troppo velocemente sull'originale protetto compare avviso Excel che dice non si può cambiare conteuto celle protette....
Se possibile dovrei eliminare questo avviso o rispondere in automatico ok per non doverlo sempre chiudere manualmente.
Spero di essermi spiegato
ps la password del blocco celle è prova.
di cromagno data: 22/07/2015 07:14:12
La prima cosa che mi è venuta in mente è di utilizzare
SendKeys "Enter"
per simulare la pressione del tasto INVIO ad un certo punto del codice ma ho provato e non ha dato i risultati sperati.
In alternativa, conoscendo la password, potresti togliere la protezione dopo la condizione "If" vera e rimettere la password alla fine del codice:

ActiveSheet.Unprotect ("password")

ActiveSheet.Protect ("password")
di Vecchio Frac data: 22/07/2015 09:37:06
LOL
SendKeys è uno di quei comandi che dovrebbero sparire dal compilatore ^_^
(a parte che dovresti scrivere SendKeys "{ENTER}" oppure SendKeys "{~}")
La cosa migliore è proprio sproteggere e riproteggere il foglio al volo quando serve.
di dani3l380 data: 22/07/2015 22:25:00
credo proprio che sproteggerò i fogli.
grazie mille dei consigli

Vuoi Approfondire?