Protection sauvegarde

[DLP77]

Bonsoir tout le monde,

J'ai créée un userform pour des rapports journaliers et ces rapports sont enregistrés automatiquement dans un dossier par date.

J'aimerais que ces rapports, lorsqu'on les ouvre pour les consulter, soient bloqués, c'est-à-dire qu'on peut seulement lire le rapport mais pas le modifier. Ci-joint le code.

Quelqu'un peut m'aider?😎

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.SaveCopyAs "C:\Documents and Settings\All Users\Alex\Mes documents\Archive\Année 2012\" & Format (Date, "mm dd yyyy") & ".xl"
End Sub

Merci.

 

[jmps]

Re : Protection sauvegarde

Bonsoir DLP77,

J'utiliserais plutôt SaveAs tout court avec laquelle tu peux mettre un mot de passe ou pas mais faire du ReadOnly à l'ouverture.
Pas testé mais l'aide a l'air assez claire.

Tape "SaveAs" dans l'aide de l'éditeur VBA.
Première option "SaveAs, méthode".

 

[DLP77]

Re : Protection sauvegarde

Merci pour le conseil, je vais aller voir ça.

Bonne soirée