Fonction à inclure dans la feuille de code de "thisworkbook" :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Dim strDate As String
Count = Len(ActiveWorkbook.Name)
Nom = Left(ActiveWorkbook.Name, Count - 4)
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
ThisWorkbook.SaveCopyAs filename:=Name & strDate & ".xls"
End Sub

Permet de créer une copie de sauvegarde de votre classeur à chaque enregistrement de celui-ci.

Changez simplement le niveau de sécurité :

Menu : Outils > Macros > Sécurité > Niveau bas

Une petite astuce qui fonctionne dans la plupart des cas. Pour éviter l'exécution des macros maintenez la touche Maj enfoncée lors de l'ouverture du document susceptible d'être infecté par un macrovirus.

1. Laissez l'ordinateur sous tension en permanence (éteignez le que la nuit).
2. Protégez vos disques contre les défauts d'alimentation (onduleur).
3. Testez la surface du disque au moins une fois par an (scandisk).
4. Utilisez des programmes de défragmentation (défragmenteur)
5. Vérifier périodiquement vos sauvegardes.

En cas de perte de données, si un disque devient bruyant ou ne tourne plus, ne compromettez pas vos chances de récupérer vos informations, éteignez votre ordinateur et appelez le ++33 4 77 71 75 61 !