Discussion :

[spud96]

Bonjour,

J'ai un classeur avec deux feuilles feuill1 et feuill2

Je souhaiterais qu'à le fermeture de ce classeur une protection se mette pour les deux feuilles avec un mot de passe par exemple "MDP"
Et qu'à l'ouverture une macro ote cette protection.

Si quelqu'un peut m'aider.

Merci

[mercatog]

Dans le module ThisWorkbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Feuil2").Protect Password:="toto"
ThisWorkbook.Save
End Sub
 
Private Sub Workbook_Open()
Sheets("Feuil2").Unprotect Password:="toto"
End Sub

[D-D-Du-06]

Bonsoir,

ça va marcher, sauf que si tu protèges automatiquement à la fermeture et que tu déprotèges automatiquement à l'ouverture... ton fichier sera de fait toujours "déprotégé"... non?

A+
D D du 06

[Pascal415]

En accord avec D-D-Du-06, j'opterais plus pour un imputbox à l'ouverture

permettant la saisie du mot de passe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private Sub Workbook_Open()
If InputBox("Mot de passe", vbCritical) = "toto" Then
Sheets("Feuil2").Unprotect 
End Sub

De cette façon, le mot de passe aura son utilité!

[spud96]

Merci pour vos réponses

Le but étant de pénaliser les petits malins qui désactive les macros , la premiere solution marche bien

Merci à tous