Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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.
 
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

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]
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
237
Réponses
4
Affichages
342
Réponses
17
Affichages
522
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
332
Réponses
5
Affichages
612
Retour