probleme VBA

Farscape

XLDnaute Junior
bonjour a tous,
j'ai encore besoin d'un petit coup de main :

question 1 :
je veut mettre un mot de passe sur une base de donnée (un truc très simple car les personnes qui s'en serviront ne savent faire que du tableur sous excel donc pas de probleme,
voilà la formule que j'ai fait, mais probleme c quand je met la bonne valeur ca marche pas

Private Sub CommandButton1_Click()
If TextBox1 = '' Then
MsgBox 'Veuillez entrer le mot de passe'
Exit Sub
ElseIf TextBox1 <> Feuil1.Range('z48514').Value Then
MsgBox 'mot de passe incorrect'
Exit Sub
ElseIf TextBox1 = Feuil1.Range('z48514').Value Then
MsgBox 'Mot de passe accepté'
Mdp.Hide
Admin.Show
End If
End Sub

question 2 :
pour quitter excel on utilise application.quit
le probleme c'est que cette formule ferme excel et donc tous les classeur, y a-t-il moyen de fermer que le classeur actif.

question 3 :
au démarrage du classeur je vais enlever les barre de défilement
mais lorsque l'on lance un autre classeur en meme tps il ne les aura pas y a t -il une commande pour que ça affecte que le classeur voulu et pas les autres.

Voilà mes petite question
je vous remercie d'avance pour votre aide.
 

excalibur

XLDnaute Impliqué
bonjour Farscape , le forum pour la qst n2 j utilise ce code Private Sub CommandButton4_Click()
If Workbooks.Count > 1 Then
ActiveWorkbook.Close
Else
Application.Quit
End If
End Sub
pour la qst 1 un ex a adapter salutations [file name=PASS_20051016204211.zip size=18461]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PASS_20051016204211.zip[/file]
 

Pièces jointes

  • PASS_20051016204211.zip
    18 KB · Affichages: 19

_Thierry

XLDnaute Barbatruc
Bonsoir Farscape, Excalibur

Voici pour ta première question :

Private Sub CommandButton1_Click()
Dim MDPString As String

MDPString = UCase(Feuil1.Range('Z48514'))


If TextBox1 = '' Then
&nbsp; &nbsp; MsgBox 'Veuillez entrer le mot de passe'
&nbsp; &nbsp;
Exit Sub
End If
&nbsp; &nbsp;
If UCase(TextBox1) <> MDPString Then
&nbsp; &nbsp; &nbsp; &nbsp; MsgBox 'mot de passe incorrect'
&nbsp; &nbsp; &nbsp;
Exit Sub
&nbsp; &nbsp;
Else
&nbsp; &nbsp; &nbsp; &nbsp; MsgBox 'Mot de passe accepté'
&nbsp; &nbsp; &nbsp; &nbsp; Me.Hide
&nbsp; &nbsp;
'Admin.Show
&nbsp; &nbsp;
End If
End Sub


Pour ta troisième question, logiquement les paramètres d'affichage des barres de défilement sont propres au classeur lui-même. Il n'y a pas besoin de macro pour les paramétrer.

Bonne Soirée
[ol]@+Thierry[/ol]
 

Discussions similaires

Réponses
5
Affichages
555
Réponses
77
Affichages
3 K

Statistiques des forums

Discussions
300 793
Messages
1 987 236
Membres
209 747
dernier inscrit
chx974