Mot de passe

[Sebastienh]

Bonjour,

Voici une macro :

'saisie du mot de passe1
If TextBox1 = "123" Or TextBox1 = "456" Or TextBox1 = "789" Then
ligne = Sheets("main_courante").Range("A65536").End(xlUp).Row + 1
Sheets("main_courante").Cells(ligne, 1) = Environ("USERNAME")
Sheets("main_courante").Cells(ligne, 2) = TextBox1.Value
Sheets("main_courante").Cells(ligne, 3) = Date
TextBox1 = ""
'Décharger l'userform
Unload PASSE
'Ouvrir la page d'accueil
Sheets("bd1").Visible = True
Sheets("bd3").Visible = True

Elle me permet d'ouvrir des feuilles verrouillées et d'avoir une main courant.

Je souhaiterais rajouter un mode de passe vide qui permet d'avoir la lecture seule uniquement afin de visualiser 2 feuilles.

Encore merci pour votre aide
A+
Seb

 

[Sebastienh]

Re : Mot de passe

Absolument Staple et tu fais bien de le souligner que vous êtes des bénévoles.

Bravo à vous et un grand MERCI.

Je ne suis pas impatient mais incompétent dans le visual basic.

Lors de ma 1ère question dans le but de construire ce fichier une foule de réponse et une solution aussi rapide que parfaite d'où mon interrogation.

Encore merci et à bientôt.
Seb