Discussion :

[dlight]

Bonjour à nouveau.

J'ai présentement un classeur en construction. Ce classeur sera utilisé par plusieurs personnes.

Je ne désir pas donner la possibilité à certaines personnes de voir l'onglet des états financier de mon employeur par exemple.

J'ai donc prévu une feuille de mon classeur avec les différents droits d'accès aux différents onglets du classeur et l'accès esr geré par un code vba.

Ma question :

Est-il possible qu'à l'ouverture du fichier qu'un userform s'affiche (à ce niveau je n'ai pas de problème) dans lequel il y aurait un combobox (je sais maintenant comment en faire grace à ce forum) qui aurait la liste de personne et un textbox qui, lors de la saisie du mot de passe de l'usager, prendrait la forme "¤¤¤¤¤¤¤¤¤¤" ou autres signes qui ne permet pas de voir ce qui est saisie.

Bref un masque de saisie comme sur un réseau (usager/mot de passe)

J'ai regardé ce tuto mais sans trouver ce que je veux.

http://jeannot45.developpez.com/arti...ises/#LIII-C-3

[JPierreM]

Bonjour,

Pour un TextBox il existe la propriété PasswordChar qui devrait répondre à votre demande

[Domimart]

Bonjour

Vous pouvez mettre différents onglets en xlSheetVeryHidden et ouvert avec une inputBox du genre :

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
Sub All_DeProtect_Dom()
' indiquer le mot de passe dans une inputBox pour déprotéger toutes les feuilles du classeur
    Dim feuil As Worksheet
    Dim DeProtect As Variant
    Application.ScreenUpdating = False
 
    DeProtect = InputBox(" Indiquer le mot de passe de protection", Title:="Déprotéger toutes les feuilles du classeur :")
    For Each feuil In ThisWorkbook.Worksheets   ' ou seulement le nom des onglets désirés
        feuil.Unprotect (DeProtect)
    Next
    Feuil1.Visible = xlSheetVisible
    Sheet4.Visible = xlSheetVisible
    Sheet6.Visible = xlSheetVisible
    Sheet69.Visible = xlSheetVisible
End Sub

et pour reprotéger:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub All_ReProtect_Dom()
' indiquer le mot de passe dans une inputBox pour reprotéger toutes les feuilles du classeur
    Dim feuil As Worksheet
    Dim ReProtect As Variant
 
   ReProtect = InputBox("Indiquer le mot de passe de protection", Title:="Reprotéger toutes les feuilles du classeur:")
    For Each feuil In ThisWorkbook.Worksheets
        feuil.Protect Password:=ReProtect
    Next
   Feuil1.Visible = xlSheetVeryHidden
   Sheet4.Visible = xlSheetHidden
   Sheet6.Visible = xlSheetVeryHidden
   Sheet69.Visible = xlSheetVeryHidden
End Sub

Pour reprotéger vous pouvez également utiliser Auto_Close pour être certains que les utilisateurs n'oublient pas de reprotéger les onglets sélectionnés

Dom

[Invité]

Bonjour

Je suis désolé, mais cette protection sautera rapidement, il suffit de désactiver la macro au démarrage et on peut facilement rendre les feuilles visibles.

Philippe

[dlight]

Merci à vous trois pour vos réponses et code.

Je prends note du fait qu'il serait facile pour une personne ayant les connaissances pour faire sauter cette sécurité mais comme les gens pour qui le fichier est destiné ont encore de la dificulté à faire des simples sommes dans Excel, je peux dormir tranquille.

Merci encore une fois.