Salvare foglio su condizione

Hai un problema con Excel?

Nuova discussione

Salvataggio discrezionale
di Letuealiweb (utente non iscritto) data: 21/03/2009
N un foglio excel un utente può, da un elenco di nomi situato su un altro foglio, scegliere il nominativo che preferisce. una volta scelto gli viene visualizzato un msg con il quale si chiede la conferma. se si conferma allora parte il salvataggio. se clicca su "annulla" il salvataggio ...parte lo stesso. e' possibile evitare il salvataggio della cartella di lavoro nel secondo caso? allego l'attuale codice

Private Sub Worksheet_Change(ByVal Target As Range)

Select Case Target.Address(False, False)
    Case "B9", "B12", "B15"
        If Target.Value <> PrecValue Then
              retval = MsgBox("Vuoi salvare e aggiornare l'Agenda?", vbOKCancel Or vbQuestion, "Nuovo Appuntamento!")
              If retval = vbCancel Then
                  Target.Value = PrecValue
                  Else
                  PrecValue = Target.Value
              End If
        End If
        ActiveWorkbook.Save
End Select

di Big ronnie (utente non iscritto) data: 21/03/2009
Ciao,

in questo modo dovresti aver risolto.

Private Sub Worksheet_Change(ByVal Target As Range)

Select Case Target.Address(False, False)
    Case "B9", "B12", "B15"
        If Target.Value <> PrecValue Then
              retval = MsgBox("Vuoi salvare e aggiornare l'Agenda?", vbOKCancel Or vbQuestion, "Nuovo Appuntamento!")
              If retval = vbCancel Then
                  Target.Value = PrecValue
                  exit sub'riga aggiunta 
                  Else
                  PrecValue = Target.Value
              End If
        End If
        ActiveWorkbook.Save
End Select

Vuoi Approfondire?