Discussion :

[Djromé]

Salut les Kracks,

J'ai un problème de mise en partage de mon fichier sans doute suite à l'utilisation de certaine "incompatibilité" selon F1 (notamment l'utilisation de liste, etc...).
Aussi, j'aimerai passer par le VBA pour empêcher les utilisateurs d'entrée voir les macros (et donc les mots de passe) dans Visual Basic (ce que faisait très bien l'option Protection et Partage "mais qui dans mon cas ne fonctionne pas!"

Pour vous aider "je l'espère", je vous joint un bout de mon code dans lequel on pourrait éventuellement y inclure une parade (voir en rouge ci-dessous):

Code :

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

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
Private Sub OK_Click()

'Mémorisation du nom de la feuille active
Origine = ActiveSheet.Name 'Recherche de la présence de la feuille Controle
FeuilleControle = 0 'réinitialisation du compteur
For i = 1 To Worksheets.Count
If Worksheets(i).Name = "Controle" Then
FeuilleControle = 1
End If
Next i
'Si le classeur ne contient pas de feuille Contrôle ...
If FeuilleControle = 0 Then
'...introduction (création) d'une feuille Controle
Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "Controle"
End If
'suivant le choix de l'utilisateur, affiche la feuille appropriée
MonFormulaire.Hide
'Mémorisation du nom de la feuille active
If TATA = True And MP = "TATA1" ThenC'est ici que je pense pouvoir insérer une formule disant que si TATA à bien entrée le mot de passe Tata1 et bien "lui empêcher l'accès à VBA" 
MsgBox "Please double-click inside desired cells A24:A54! ", vbInform, "Instructions"
Sheet34.Visible = xlSheetVisible
Sheet34.Protect ("MONMOT2PASSE")
Sheet2.Visible = xlSheetVisible
Sheet3.Visible = xlSheetVeryHidden
Sheet4.Visible = xlSheetVeryHidden

Merci à vous

[Pierre Fauconnier]

Bonsoir

Pas bien compris la manip.

Si tu veux protéger l'accès au VBA de ton classeur, protège l'accès...

Dans le VBE, clic droit sur le projet, propriétés et place un mot de passe.

Si tu veux que certains aient accès au code, donne-leur le mot de passe...

[Djromé]

Merci Pierre,

A force d'utiliser le "partage et protection" qui restreint également l'accès aux utilisateurs, j'ai oublié des évidences comme celle-ci!
Cependant et comme tu peux le voir dans mon code, n'y a t-il pas moyen de mettre cette restriction d'accès seulement pour certains utilisateurs et pas "l'Administrateur", c'est à dire:

Code :

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

1
2
3
4
If User1 = True And MP = "MPY" Then
Bloqué...
If Admin = True And MP = "MPX" Then
Débloqué...

Merci pour la piqûre de rappel!

[Pierre Fauconnier]

Je ne comprends pas ce que tu cherches à réaliser.

Que veux-tu bloquer par mot de passe via le code?

[vieuxmonsieur]

Bonjour Pierre, Djromé,

Merci Pierre,

Cependant et comme tu peux le voir dans mon code, n'y a t-il pas moyen de mettre cette restriction d'accès seulement pour certains utilisateurs et pas "l'Administrateur", c'est à dire:

Code :

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

1
2
3
4
If User1 = True And MP = "MPY" Then
Bloqué...
If Admin = True And MP = "MPX" Then
Débloqué...

Merci pour la piqûre de rappel!

Peut-être cherche-tu quelque chose comme ca :

http://www.cijoint.fr/cjlink.php?fil...cij00YZ3kQ.xls

Bonne journée à tous

[Djromé]

Bonsoir à vous,

Pierre Fauconnier Je ne comprends pas ce que tu cherches à réaliser.

Que veux-tu bloquer par mot de passe via le code?

En fait, je souhaiterai que la personne qui rentre dans le formulaire en tant qu'Administrateur n'est pas besoin d'entrer de mot de passe en allant dans VBE...
Et également, que tous les autres ne puissent pas y accéder!

Dans le VBE, clic droit sur le projet, propriétés et place un mot de passe.

Est-ce que le clic droit dans VBE comme expliqué peut se traduire par du code?
Ce serait une solution que je pourrai inclure dans mon code:

Code :

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

1
2
3
4
5
 
If User1 = True And MP = "MotdepasseY" Then
XXXX.Protect Password:="RBS34", Contents:=True'le code qui bloque...
If Admin = True And MP = "MotdepasseX" Then
XXXX.unProtect Password:="RBS34" 'le code qui débloque...

Bref, de cet acabit...

Merci en tous cas à vous deux...(VieuxMonsieur, ton exemple est tellement profond qu'il va me falloir un peu de temps (c'est le problème des jeunes gens)pour tout analyser, mais saches qu'il n'est pas dans les oubliettes, merci!)