Mot de passe pour proctection accés feuille

[DIABLOTIN]

Bonjour Forum.
J'ai créé un classeur pour une asso.Présentation plein écran.
les changements de feuilles se font par bouton avec macro:
Sub Macro18()
Sheets('GESTION').Select
Range('A1').Select
End Sub
Pour acceder à la feuille GESTION il faudrait demander un mot de passe, pour limiter cette feuille ( variables et calcul).
Merci d'avance de votre aide, je suis débutant mais trés
interressé en VBA.

 

[Eric C]

Bonjour le forum
Bonjour DIABLOTIN

Appli toute basique. Appelles un UserForm (qui comprendra un TextBox1 et un CommandButton1) avec ton bouton et places ce code :

Private Sub CommandButton1_Click()
If TextBox1 = '123' Then
Sheets('GESTION').Select
Unload UserForm1
Else: Exit Sub
End If
End Sub


Private Sub UserForm_Initialize()
With TextBox1
.PasswordChar = '*'
End With
End Sub

Bonne fin d'après midi à toutes & à tous

 

[Eric C]

RE bonjour le forum
Re bonjour DIABLOTIN

Vite fait, ce que je t'ai proposé ne sert pas à grand chose, l'onglet restant visible. Donc dans ThisWorkbook, tu places dans Workbook :

Private Sub Workbook_Open() ou Before_Close
Sheets('GESTION').Visible = xlSheetVeryHidden
End Sub

Ce qui rendra ton onglet GESTION invisible puis tu ajoutes : si le passwortd est oki, onglet GESTION = visible :

If TextBox1 = '123' Then
Sheets('GESTION').Visible = xlSheetVisible
Sheets('GESTION').Select
...

Baille bye

 

[DIABLOTIN]

Salut ERIC et merci, j'ai un probleme:
je suis plus interréssé que pratiquant en VBA, alors:
'Appelles un UserForm (qui comprendra un TextBox1 et un CommandButton1) avec ton bouton et places ce code :'
Si tu veux bien expliquer à un novice.
Si cela est trop compliqué, tu dis ' reviens dans 2 ans aprés avoir appris les bases'. Sinon:
Comment j'apelle un userForm depuis mon bouton GESTION (MACRO18) dans la feuille 'DONNEE'?
j'ai regardé les bases sur excelabo- ça ne marche pas.
Jai créé un UserForm mais il n'apparait pas sur la feuille 'DONNE'.
Comme dit le proverbe croate:'plus tu pars de bas, et moins tu te fais mal si tu tombes.'
Merci d'avance pour ta comprehension

 

[DIABLOTIN]

Salut Eric et le forum
La nuit porte conseil.
J'ai trouvé une autre solution en réfléchissant au UserForm.
Dans la feuille de départ 'DONNE', je me sers de la cellule J9.
Si cette cellule n'a pas le bon code(1234)le bouton renvoi sur la même feuille'DONNE' sinon il renvoi sur la feuillr 'GESTION'

Sub Macro510()
If Range('J9').Value = '1234' Then
Sheets('GESTION').Select
Range('A1').Select
Else: Sheets('DONNEECLIENT').Select
Range('A1').Select
End If
End Sub

J'ai testé le IF THEN.

Méthode moins academique, mais ça marche. Merci encore
de ta réponse.

 

[Eric C]

Bonjour le forum
Bonjour DIABLOTIN

Hier soir en rentrant, j'ai refait un tit fichier avec une explication. Je te le mets en ligne (au moins pour la feuille cachée).

Bonne journée à toutes & à tous [file name=Diablotin.zip size=12024]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Diablotin.zip[/file]

 

[Eric C]

Bonjour le forum
Bonjour DIABLOTIN

Hier soir en rentrant, j'ai refait un tit fichier avec une explication. Je te le mets en ligne (au moins pour la feuille cachée).

Bonne journée à toutes & à tous [file name=Diablotin_20050909125356.zip size=12024]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Diablotin_20050909125356.zip[/file]

 

[diablotin]

Bonjour le Forum,
Bonjour et merci Eric.
Ma methodologie semblait plus rapide pour ma comprehension.
J'ai regardé tranquillement ton dernier fichier et j'ai mis ton appli
en place dans le programme. Cela fait nettement plus classe.
Merci encore et à ma prochaine demande.