Condividi:        

Bloccare salva con nome

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Bloccare salva con nome

Postdi BG66 » 18/09/20 09:54

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"........ :evil:...... 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.
BG66
Excel2010
Avatar utente
BG66
Utente Senior
 
Post: 320
Iscritto il: 20/08/16 07:44

Sponsor
 

Re: Bloccare salva con nome

Postdi Anthony47 » 18/09/20 11:27

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Bloccare salva con nome

Postdi BG66 » 18/09/20 13:10

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
BG66
Excel2010
Avatar utente
BG66
Utente Senior
 
Post: 320
Iscritto il: 20/08/16 07:44

Re: Bloccare salva con nome

Postdi Anthony47 » 18/09/20 13:56

Posiziona il mio blocco qui:
Codice: Seleziona tutto
        Cancel = True
    End If
' <<<  IL NUOVO BLOCCO VA QUI
End Sub

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Bloccare salva con nome

Postdi BG66 » 18/09/20 15:22

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

Alla prossima
Gene
STAY SAFE
BG66
Excel2010
Avatar utente
BG66
Utente Senior
 
Post: 320
Iscritto il: 20/08/16 07:44


Torna a Applicazioni Office Windows


Topic correlati a "Bloccare salva con nome":


Chi c’è in linea

Visitano il forum: Nessuno e 107 ospiti