Ehm, a me quel codice non funziona...Originariamente inviato da nicola75ss
Apri l'editor vba, fai doppio click sul foglio cui vuoi applicare il codice e incolla questo:
nel mio esempio verrà richiesta conferma per la cella a20 e per il range a1:a3, giusto per darti un'idea di come applicare il tutto anche a intervalli non contigui.codice:Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, Range("$A$1:$A$3,$A$20")) Is Nothing Then If MsgBox(Prompt:="Vuoi rendere effettive le modifiche?", Buttons:=vbYesNo, Title:="Conferma") = 7 Then Application.Undo End If End If Application.EnableEvents = True End Sub
Mi servirebbe su un foglio Excel particolarmente complesso (simulazione di una mareggiata con un modello matematico...), ma su un foglio di prova, seguendo le indicazioni e cambiando soltanto le celle da controllare
mi modifica tranquillamente tutto senza avvisi! :master:codice:Target, Range("$A$1:$B$1")
Solo che all'apertura del file mi dice che contiene macro, io lo autorizzo ad attivarle, ma nisba!![]()
Ho Excel 2003 del relativo pacchetto Office, e VB 6.3.