Macro che ti permette di salvare un lavoro prima di cancellare!

Stai vedendo 4 articoli - dal 1 a 4 (di 4 totali)

Autore

Articoli

04/09/2020 alle 21:09 #27476 Score: 0 | Risposta

Partecipante

Buonasera,

ho creato una macro che mi cancella della righe da una tabella di Excel, c'è un modo per poter salvare il lavoro se per errore viene cancellato, io utilizzo il salvataggio automatico quindi anche che se non salvo il lavoro andrebbe comunque perso.

Saluti.

Massimiliano

Sub Pulisci()
Application.ScreenUpdating = False
Dim Prova
    
    ActiveSheet.Unprotect 
    Prova = MsgBox("ATTENZIONE TUTTI I DATI SARANNO CANCELLATI!! Vuoi proseguire ?", vbYesNo)
        If Prova = vbYes Then

Range("D9:D40").Select
    Selection.ClearContents
    Range("E9:E14").Select
    Selection.ClearContents
    Range("E16").Select
    Selection.ClearContents
    Range("E18:E22").Select
    Selection.ClearContents
    Range("E24:E27").Select
    Selection.ClearContents
    Range("E29:E30").Select
    Selection.ClearContents
    Range("E32").Select
    Selection.ClearContents
    Range("E34").Select
    Selection.ClearContents
    Range("E36").Select
    Selection.ClearContents
    Range("E38").Select
    Selection.ClearContents
    Range("E40").Select
    Selection.ClearContents
    Range("F9:F40").Select
    Selection.ClearContents

End If
    ActiveSheet.Protect 
    
Application.ScreenUpdating = True
End Sub

04/09/2020 alle 21:45 #27477 Score: 0 | Risposta

zer0kelvin

Partecipante

Karma: 5 pts

Puoi creare una copia della cartella Excel usando Workbook.SaveCopyAs ad inizio macro oppure creando una copia del foglio tarmite Worksheet.Copy.

04/09/2020 alle 22:03 #27478 Score: 0 | Risposta

tempusfugit

Partecipante

Quindi se metto l'istruzione all'interno della mia macro, quando schiaccio il tasto pulisci lui mi crea una copia nel mio stesso foglio (esempio foglio 1(2), giusto?

Sub Pulisci()
Application.ScreenUpdating = False
Dim Prova
    Worksheet.Copy "Foglio1" 
    ActiveSheet.Unprotect 
    Prova = MsgBox("ATTENZIONE TUTTI I DATI SARANNO CANCELLATI!! Vuoi proseguire ?", vbYesNo)
        If Prova = vbYes Then

05/09/2020 alle 10:21 #27479 Score: 0 | Risposta

tempusfugit

Partecipante

Ciao Karma,

ti ringrazio per il suggerimento, però adesso mi salva il foglio nuovo con la protezione delle celle ed il vecchio no, come posso fare per ovviare al problema e dirgli che sull'originale deve lasciare le celle bloccate e sulla copia quelle sbloccate?

Grazie.

Autore

Articoli

Stai vedendo 4 articoli - dal 1 a 4 (di 4 totali)