Acces en écriture + macro protection de la structure

Version imprimable

Bonjour,

j'ai actuellement 2 fonctionnalités majeures dans mon classeur Excel 2000 :

Mot de passe sur les modifs générale (enregistré sous => option => options générales => mot de passe permettant l'acces en écriture)
J'ai 2 boutons permettant l'un de protéger la structure de mon classeur (avec mdp) + affiche 2 feuilles, et l'autre bouton permet de faire l'inverse : cacher 2 feuilles et demande la saisie d'un mot de passe pour verrouiller la structure du classeur.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 ' Protège classeur + cache feuilles Sub protect() mdp_protect = InputBox("Saisir le mot de passe :", "Initialisation mot de passe") Sheets(Array("Sheet2", "Sheet3")).Select Sheets("Sheet1").Activate ActiveWindow.SelectedSheets.Visible = False ActiveWorkbook.protect password:=mdp_protect, Structure:=True, Windows:=False End Sub ' Déverrouille classeur + affiche feuilles Sub Unprotect() mdp_protect = InputBox("Saisir le mot de passe :", "Mot de passe requis") ActiveWorkbook.Unprotect password:=mdp_protect Sheets("Sheet2").Visible = True Sheets("Sheet3").Visible = True Sheets("Sheet1").Select End Sub
Mon but est bien sûr de lier ces 2 fonctionnalités en une seule. C'est à dire si l'utilisateur connait le mdp d'acces en écriture, les 2 feuilles seront affichées. Le cas contraire (lecteur seule), les 2 feuilles seront cachées.

Si quelqu'un à une petit idée, je suis preneur.

Merci

bonjour mashu,

voici une possibilité en utilisant les événement Open et BeforeClose

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_Open()
If Not ActiveWorkbook.ReadOnly Then
 mdp_protect = InputBox("Saisir le mot de passe :", "Mot de passe requis")
 If mdp_protect = "zz" Then 'à adapter
    ActiveWorkbook.Unprotect Password:=mdp_protect
    Sheets("Sheet2").Visible = True
    Sheets("Sheet3").Visible = True
 End If
End If
End Sub

Code:

1
2
3
4
5
6
7
8
9
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not ActiveWorkbook.ReadOnly Then
    ActiveWorkbook.Unprotect Password:="zz" 'à adapter
    Sheets("Sheet2").Visible = False  'ou xlVeryHidden
    Sheets("Sheet3").Visible = False
    ActiveWorkbook.Protect Password:="zz", Structure:=True, Windows:=False
    ActiveWorkbook.Save
End If
End Sub

25/05/2010, 15h31
mashu
Merci Isabelle, c'est tout a fait que je souhaitais !

Par contre j'ai enlevé le
Code:

1 2 mdp_protect = InputBox("Saisir le mot de passe :", "Mot de passe requis") If mdp_protect = "zz" Then 'à adapter
Une nouvelle fenêtre s'ouvrait et ca me paraissait inutile et redondant.

Dernière question : dans cet exemple, l'utilisateur peur voir le mot de passe entrée en ouvrant le code sous Visual basic.

Code:

ActiveWorkbook.Unprotect Password:="zz"

Y aurait-il un moyen de mettre dans une variable le mot de passe saisi lors de l'enregistrement (enregistré sous => option => options générales => mot de passe permettant l'acces en écriture) ? Ca permettrait une parfaite sécurité...

A+
29/05/2010, 06h33
sabzzz

bonjour mashu,

Citation:

Y aurait-il un moyen de mettre dans une variable le mot de passe saisi lors de l'enregistrement (enregistré sous => option => options générales => mot de passe permettant l'acces en écriture) ? Ca permettrait une parfaite sécurité...

une possibilité est de mettre le mot de passe dans un fichier texte et de lire ce fichier pour comparer, un autre solution est d'ultiliser un UserForm avec un TextBox et sa propriété PasswordChar.
01/06/2010, 11h48
mashu

ok merci

je vais essayer comme tu me conseilles avec le mdp dans un autre fichier et de le vérifier.

A+