S
Sebastienh
Guest
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
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