probleme VBA

Farscape · 16 Octobre 2005

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 · 16 Octobre 2005

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]

Farscape · 16 Octobre 2005

bonjour à tous,

Merci pour la réponse a la question 2, ça fonctionne tres bien
en ce qui concerne la question 1 , j'aimerais plut tot que l'on corrige ma formule , car j'ai déjà tout réglé en fonction de ça.

Merci pour votre aide

_Thierry · 16 Octobre 2005

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
    MsgBox 'Veuillez entrer le mot de passe'
    Exit Sub
End If
    If UCase(TextBox1) <> MDPString Then
        MsgBox 'mot de passe incorrect'
      Exit Sub
    Else
        MsgBox 'Mot de passe accepté'
        Me.Hide
    'Admin.Show
    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]

probleme VBA

Farscape

XLDnaute Junior

excalibur

XLDnaute Impliqué

Pièces jointes

Farscape

XLDnaute Junior

_Thierry

XLDnaute Barbatruc

Discussions similaires