Protection onglet par mot de passe

[maval]

Bonjour

Je suis a la recherche d'un code Vba pour protéger par mot de passe mes onglets et toute tentative d’écritures sur une feuille

Je vous remercie d'avance

Cordialement

Maval

 

[Pierrot93]

Re : Protection onglet par mot de passe

Bonjour,

essaye ceci :

Dim ws As Worksheet
For Each ws In Worksheets
    ws.Protect "toto"
Next ws

bien que la protection sous excel ne tiendra pas longtemps avec un utilisateur averti..

bonne soirée
@+

 

[maval]

Re : Protection onglet par mot de passe

Bonsoir Pierrot,

Je te remercie mais je crois mettre mal expliquer, quand je fait appel a mon fichier je ne devrais avoir que la première feuille visible soit "accueil" et après avoir mis mon mot de passe, avoir tous les onglets visible?

Je joint mon fichier

@+

Maval

 

[Pierrot93]

Re : Protection onglet par mot de passe

Bonjour,

un exemple ci-joint. A noter qu'il y a lieu de verrouiller le projet vba, dans l'éditeur vba => fenêtre "projet vba project" => click droit sur le projet => => propriété du projet => onglet "protextion".

bonne journée
@+

 

[maval]

Re : Protection onglet par mot de passe

Bonjour Pierrot,

Et merci beaucoup de ton aide J'ai bien suivie les conseilles de verrouiller le projet vba cela fonctionne nickel juste une petite améliorations j'ai ajouter une MsgBox avec "Voila! Les onglets sont dévérouilles !!!" mais je n'arrive pas à ajouter un Message d'erreur si le mot de passe est incorrect ?

J'ai fait ceci !

      Else

                MsgBox "Mot de passe invalide", vbOKOnly, "Password"
            'Vider la textbox
            TextBox1 = ""

A moins que je ne l'ai pas mis au bon endroit?

@+ et merci

Max

 

[Pierrot93]

Re : Protection onglet par mot de passe

Re,

modifie peut être ainsi :

Private Sub CommandButton1_Click()
Dim ws As Worksheet
If TextBox1 <> "toto" Then: MsgBox "Mot de passe incorrect...": Exit Sub
For Each ws In Worksheets
    If ws.Name <> "Accueil" Then
        With ws
            .Unprotect "toto"
            .Visible = xlSheetVisible
        End With
     End If
Next ws
MsgBox "Feuilles déverrouillées..."
End Sub

A noter que tu peux remplacer le "exit sub" par "unload me" pour décharger l'userform...

 

[_Thierry]

Re : Protection onglet par mot de passe

Bonjour Pierrot, Maval, Le Forum

Je ne pense pas que le Unload Me remplace le Exit Sub, le reste du code s'executera une fois le USerform déchargé à mon avis vu qu'il n'est pas dans un Else dans ta structure Pierot

Moi je resterai sur le Exit Sub

Private Sub CommandButton1_Click()
Dim ws As Worksheet

If TextBox1 <> "1953" Then
'Message d'erreur si mot de passe incorrect
MsgBox "Mot de passe invalide", vbOKOnly, "Password"
'Vider la textbox
TextBox1 = ""
Exit Sub
End If

For Each ws In Worksheets
If ws.Name <> "Accueil" Then
With ws
.Unprotect "1953"
.Visible = xlSheetVisible
End With
End If
Next ws

MsgBox "Voila! Les onglets sont dévérouilles !!!", vbOKOnly, "Password"
Unload UserForm1
End Sub

Bonne Journée
@+Thierry

 

[Pierrot93]

Re : Protection onglet par mot de passe

Re, bonjour Thierry🙂

Je ne pense pas que le Unload Me remplace le Exit Sub, le reste du code s'executera une fois le USerform déchargé à mon avis vu qu'il n'est pas dans un Else dans ta structure Pierot

OK Thierry, tu as tout a fait raison... bien vu....

 

[_Thierry]

Re : Protection onglet par mot de passe

De rien Pierrot, je me suis fait souvent avoir avec les Unload, et les Show des userform selon les inter-actions attendues et ... Inattendues LOL !

Pour le coté "inviolabilté" du truc je suis tout à fait d'accord aussi avec ta remarque par contre !

Bien à toi et bonne journée !
@+Thierry

PS Pour ceux que ca interresse => Petit "exercice" dans ce fil au niveau "tentative de blindage" ...
https://www.excel-downloads.com/threads/liste-deroulante-modifiable-et-validation-userform.203771/

 

[maval]

Re : Protection onglet par mot de passe

Bonjour Pierrot, Thierry,

Je vous remercie beaucoup et du code et du reste.

Je vous souhaite une bonne soirée.

Max