Ajout de mot de passe à une une copie de sauvegarde

Bonjour à tous,

Dans le cadre d'un fichier pro, je souhaite créer une copie de sauvegarde à chaque ouverture de ce fichier. En effet le fichier est partagé, et pour éviter que des données soient perdues par d'autres utilisateurs, je créé cette copie.

Pour la création de la copie ma macro fonctionne bien, néanmoins j'aimerai ajouter un mot de passe à la copie de sauvegarde, et c'est là que je bloque.

Peut être que vous pourriez m'aider.

Voici ma macro

Private Sub Workbook_Open()

 Dim NomDest$

 NomDest = "Sauvegarde.xlsm"
 Application.DisplayAlerts = False
 ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\Sauv\" & NomDest

 Sheets("Accueil").Activate

End Sub

Merci d'avance pour votre aide.

Bonjour,

A tester

 Private Sub Workbook_Open()

     Dim NomDest$

     NomDest = "Sauvegarde.xlsm"
     Application.DisplayAlerts = False
     ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\Sauv\" & NomDest
     '******* Modification
      ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
     '******Fin de modif

     Sheets("Accueil").Activate

    End Sub

Un mot de passe peut être utilisé

Pierrot

Bonjour,

A tester

Private Sub Workbook_Open()

     Dim NomDest$

     NomDest = "Sauvegarde.xlsm"
     Application.DisplayAlerts = False
     ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\Sauv\" & NomDest
     '******* Modification
      ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
     '******Fin de modif

     Sheets("Accueil").Activate

'********Modification
  Sheets("Accueil").Select
      ActiveSheet.Unprotect (" matimatfr")
    End Sub

Mot de passe : matimatfr

Pierrot

Bonjour,

Merci de la tentative, néanmoins cela ne fonctionne pas comme tel. Je peux ouvrir la sauvegarde normalement.

Je fais des tests aussi de mon côté en attendant, mais non concluants pour le moment.