| | Post: 165 | Registrato il: 03/09/2018
| Città: GROTTAGLIE | Età: 25 | Utente Junior | Microsoft Office Professional Plus 2019 64 bit | | OFFLINE | |
|
31/05/2021 12:01 | |
Buon inizio settimana! Dopo aver aperto il file excel mi accorgo che tutti i codici sono scomparsi incredibilmente, a testimonianza delle mie ore di lavoro trascorse solo i pulsanti che utilizzavo per richiamarne le esecuzioni. Avendo già vissuto in passato questa antipatica situazione (almeno un paio di volte in quest'ultimo anno), ogni sera prima di chiudere il laptop, faccio una copia di tutti i file sui quali ho lavorato. La cosa che vorrei chiedervi è se esiste un modo, prima della chiusura del file, per capire se l'ultimo salvataggio si sia realizzato correttamente o no.
Grazie
P.S. Utilizzo Microsoft Office Professional Plus 2019 64 bit versione 2105 |
|
| | Post: 2.278 | Registrato il: 10/10/2013
| Città: VICENZA | Età: 69 | Utente Veteran | 365 | | OFFLINE |
|
31/05/2021 12:07 | |
ciao
no non mi è mai successo.
se però crei delle macro e poi non salvi come XSLM
le perdi.
ma prima dl salvataggio ti avvisa che stai sbagliando. |
| | Post: 6.384 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | OFFLINE |
|
31/05/2021 12:26 | |
Ciao melissa potresti tentare di recuperare una versione precedente se non hai salvato il file nel chiuderlo,
fai cosi vai a controllare apri il file incriminato
vai su file-Informazioni e vedi su "cronologia versioni" oppure "gestisci cartella di lavoro"
ma nella versione 2019 dovrebbe anche esserci ultimo salvataggio o qualcosa del genere, qualche volta per ripristinare un file ho trovato una versione precedente all'ultima apertura.
comunque creati una macro per il backup, ogni tanto la lanci almeno non perdi tutto.
empiricamente ho creato questa
Sub salvaBk() 'macro di salvataggio file di Backup
Dim Nome$, ind$, est$, x, L1, L2, dd
Dim mese '---------------Aggiunta
'SetFG
dd = Sheets("Tuo FOGLIO").Cells(7, 16) 'cella del percorso di salvataggio
ind = dd & ":\BK\"
If S1 = "" Then S1 = 0
Select Case S1
Case 0: S1 = 1
Case 1: S1 = 2
Case 2: S1 = 0
End Select
Nome = ActiveWorkbook.Name
mese = Format(Date, "mmmm") '-----------------aggiunta ricavo nome mese
L1 = Len(Nome)
For x = L1 To 1 Step -1
If Mid(Nome, x, 1) = "." Then L2 = x: Exit For
Next x
est = Mid(Nome, L2, L1)
Nome = Mid(Nome, 1, L2 - 1)
'ind = ind & Nome & "-" & S1 & "-" & mese & est '-------- Modifica per la scrittura del mese
ind = ind & Nome & "-" & S1 & "-" & est
ActiveWorkbook.Save
ActiveWorkbook.SaveCopyAs ind
End Sub
devi creare una variabile pubblica "S1" uno, ed una cartella chiamata "BK" dove fare i salvataggi
crei un pulsante ed ogni tanto quanto ti serve la lanci anche una volta al giorno o più volte crea copie successive
Ciao By sal (8-D
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui |
| | Post: 165 | Registrato il: 03/09/2018
| Città: GROTTAGLIE | Età: 25 | Utente Junior | Microsoft Office Professional Plus 2019 64 bit | | OFFLINE | |
|
31/05/2021 12:29 | |
Ciao Federico, il file era già stato salvato come un .xlsm pochi istanti dopo la nascita (avrà almeno un 5-6 mesi di età) e ad ogni modifica, quotidianamente, lo salvavo cliccando l'apposito pulsante in alto a sinistra e poi lo chiudevo. Ieri sera ho aggiunto un paio di codici e stamane ho trovato la sorpresa. Fortunatamente avevo una copia di backup del giorno prima. |
| | Post: 166 | Registrato il: 03/09/2018
| Città: GROTTAGLIE | Età: 25 | Utente Junior | Microsoft Office Professional Plus 2019 64 bit | | OFFLINE | |
|
31/05/2021 12:49 | |
Grazie By Sal per il tuo contributo 😊
Certo, mi piacerebbe capire come mai a volte il salvataggio sia corrotto. Tempo fa mi successe con un file di grosse dimensioni parecchio rallentato (e lo giustificai per questo) ma ieri sera è senza spiegazione. Non credo di essere stata così stanca da non capire quello che stavo facendo. 😕 |
| | Post: 35 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Junior | EXCEL 2016 - SPREAD32 | | OFFLINE |
|
31/05/2021 13:06 | |
ciao
potresti dare uno sguardo a questo link....per casi di massima importanza
https://excel.recoverytoolbox.com
alla peggio costerebbe sui 25 euro
io l'ho provato recentemente per un file XLSX, ma il sito dice che recupera tutto
Leo
LEO
https://t.me/LordBrum |
| | Post: 167 | Registrato il: 03/09/2018
| Città: GROTTAGLIE | Età: 25 | Utente Junior | Microsoft Office Professional Plus 2019 64 bit | | OFFLINE | |
|
31/05/2021 13:27 | |
Grazie Leo, fortunatamente la mia routine mi espone a rischi tutto sommato gestibili ma sapere esistano anche certe soluzioni tranquillizza.
|
|
|