Ciao a tutti!
ho un file excel sul mio pc che vorrei, ogni volta che lo chiudo salvare una copia in un percorso di rete. come posso fare?
Ho provato con "Sub before close" ma non ho ben capito come funziona.
Potete aiutarmi?
Grazie
Ciao
Moderatori: Anthony47, Flash30005
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Risp = MsgBox("Salvare il file ?", vbYesNo)
If Risp = 6 Then
ActiveWorkbook.Save
Else
' QUI non si salva il file
' puoi dare un messaggio o ...
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Risp
'
'Verifica se file va salvato:
If Not ThisWorkbook.Saved Then
Risp = MsgBox("Salvare le modifiche apportate al file " & ThisWorkbook.Name, vbYesNoCancel)
If Risp = vbYes Then
ActiveWorkbook.Save
Else
If Risp = vbCancel Then
Cancel = True
Exit Sub
End If
End If
End If
'
'Salvataggio copia:
Risp = MsgBox("Salvare il COPIA del file ?", vbYesNo)
If Risp = 6 Then
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"D:\Percorso\NomeFile.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
End If
End Sub
Torna a Applicazioni Office Windows
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
Macro che indica la riga prima della cella attiva Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 19 |
Maiuscola prima lettera cella formato ggg Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 2 |
Formula Excel copia righe e colonne Autore: Francesco6918 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 77 ospiti