Ciao,
forse esiste già un 3d che illustra l'argomento, ma nonostante l'abbia cercato non l'ho trovato...
Ho un file che è stato preparato in modo da importare un dataBase, lavorarlo mediante imput di opzioni, ottenendo così dei risultati che hanno modificato l'impianto iniziale de file.Vorrei per questo impedire a Excel di salvare (con comando dato accidentalmente) le modifiche fatte durante la sessione di lavoro. Esiste un'istruzione che di fatto risponda in automatico "NO" alla domanda di salvataggio delle modifiche e poi chiuda il file senza presentare la finestra di dialogo? (...magari da scrivere in una finestra in "ThisWorkbook").
Grazie assai, buon pomeriggio
eZio

salve
prova con questa:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean _
, ByRef Cancel As Boolean)

mm = MsgBox("Vuoi salvare il documento?", vbYesNo)
If mm = vbYes Then
Cancel = False
Else
MsgBox ("documento non salvato")
Cancel = True
End If

End Sub

saluti
Giap

---

salve
se non vuoi avvisi di autorizzazione, prova questa.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean _
, ByRef Cancel As Boolean)

MsgBox ("Non puoi salvare il documento!")
Cancel = True

End Sub

saluti
Giap

---

Ciao,
c'è il problema che, non consentendo il salvataggio, ogni volta che si chiude il file si cancella anche l'istruzione :-))
per cui si è in ridondanza, o meglio, alla successiva chiusura del file si torna in balìa dei frettolosi... per non dire cocciuti ottusi.

Ho risolto (il mitico Ulisse è il mio onnipresente e fedele Mentore), ma da volgare profano... per cui se ho commesso qualche errore correggimi:
Per ingannare la macchina (il mio nome è "Nessuno") ho modificato la macro in
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean _
, ByRef Cancel As Boolean)
If Not Salvataggio Then
MsgBox ("Non puoi salvare il documento!")
Cancel = True
Enf If
End Sub
e le ho affiancato quest'altra macro
Private Sub Workbook_Open()
Salvataggio = False
Application.OnKey "+^{F9}", "PermettileILSalvataggio"
End Sub
Entrambe nel modulo del ThisWorkbook

Questa macro invece l'ho scritta in un modulo:
Public Salvataggio As Boolean
Public Sub PermettileILSalvataggio()
Salvataggio = Not Salvataggio
MsgBox "Salvataggio= " & Salvataggio
End Sub

La routine "PermettileilSalvataggio" viene eseguita per permettere di bloccare/sbloccare il salvataggio del file, e per
poter salvare il file con la limitazione devo comunque eseguirla una volta.
Sono sicuro che c'è un metodo ben più semplice, ma nella mia immensa ignoranza della materia ho dovuto arrampicarmi sugli specchi... Però funziona :-))
Grazie assai, buona serata
eZio




_______________________________________________
« L'espace pictural est un mur, mais tous les oiseaux du monde y volent librement à toutes profondeurs »
(Nicolas de Stäel)

Ciao,




Correct... Non avevo pensato a questa possibilità, peraltro elementare :-)))
Grazie assai e buona Domenica
eZo