Sujet Précédent Sujet Suivant

Protection Excel

Metha91 Messages postés 1 Statut Membre -  
 papou -
Bonjour,

Voici mon problème :
J'utilise une note de calcul au bureau (créer par moi-même) avec des macros en VBE.
A chaque nouveau dossier, j'accède à ma note de calcul (vierge) par :
- Nouveau -> créer à partir d'un document existant (me permettant de ne jamais modifier l'original par erreur)

Or j'ai besoin de protéger cette NDC dès l'ouverture, pour chaque dossier créer.
C'est à dire que dès que je crée la NDC, je fait mes calculs puis l'enregistre, j'aimerais que son accès sont automatiquement protégé par mot de passe.

Cela me semble impossible en passant par l'interface d'excel.

Ma question est donc : Est-il possible, en passant par VBE, de protéger une feuille de calcul dès sa création et/ou sa copie.

J'espère être clair dans mes explications ^^

En vous remerciant de l'attention que vous porterez à mon cas,

Cordialement,
JP
A voir également:

1 réponse

Réponse 1 / 1
papou
 
Bonsoir JP,

Oui bien sûr, c'est possible avec VBA.

Pour protéger Feuil1, tu copies le code ci-dessous dans le module ThisWorkbook : 

Private Sub Workbook_Open()
Sheets("Feuil1").Protect "0000"
End Sub

Ou, pour protéger toutes les feuilles : 

Private Sub Workbook_Open()
For Each sh In Sheets
  sh.Protect "0000"
Next
End Sub

Dans les deux exemples, le mot de passe ("0000") est optionnel et, bien évidemment, tu peux remplacer les quatre zéros par le mot de passe de ton choix.

Bonne soirée.

Cordialement.
0