Bloccare salva con nome

[BG66]

Ciao a tutti.
Su un file Excel utilizzato da un discreto numero di persone sulle 24 ore, c'è un "buontempone" che ogni tanto effettua il salvataggio usando SALVA CON NOME e, ovviamente per "errore"........ ...... sovrascrive un file di altro impianto causandomi la perdita di dati che poi devo ricostruire dal cartaceo.

A vostro avviso c'è una soluzione tecnica...prima e oltre al licenziamento dello stesso!!!!

Grazie in anticipo.

[Anthony47]

Prova mettendo questo codice nel modulo ThisWorkbook:

Codice: Seleziona tutto

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Stop
If SaveAsUI Then
    MsgBox ("Chiama Gene che ti deve dire un paio di cose" & vbCrLf & "Usa solo i pulsanti per salvare (o altro tuo messaggio)")
    Cancel = True
End If
Application.SendKeys "{ESC}"
End Sub

Ciao

[BG66]

Ciao Anthony.
Nel file è gia presente questo script per cautelarmi dalle momentanee assenza di linea :

Codice: Seleziona tutto

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If InStr(ThisWorkbook.Name, " (Salvato automaticamente)") > 0 Then
        Application.EnableEvents = False
        Application.DisplayAlerts = False
        ThisWorkbook.SaveAs Replace(ThisWorkbook.Name, " (Salvato automaticamente)", "")
        Application.EnableEvents = True
        Application.DisplayAlerts = True
        Cancel = True
    End If
End Sub

Devo integrarla? Come?

Grazie
Gene

[Anthony47]

Posiziona il mio blocco qui:

Codice: Seleziona tutto

        Cancel = True
    End If
' <<<  IL NUOVO BLOCCO VA QUI
End Sub


Ciao

[BG66]

[RISOLTO]
Grazie Anthony...hai evitato..forse, l'aumento percentuale dei disoccupati in Italia

Alla prossima
Gene
STAY SAFE