Je voudrais faire une protection par mot de passe d'une feuille en VB6
..Pour l'instant je n'ai pas eu de probleme pour faire le mot de passe :
Private Sub Command1_Click()
If Text1.Text = "sésame" Then
MsgBox "Bravo - Mot de passe accepté !"
Unload Form1
End
Else
MsgBox "Désolé, mot de passe erroné, réessayez !"
Text1.Text = ""
Text1.SetFocus
End If
End Sub
Mais maintenant que dois je faire pour que ça ouvre une feuille,car là il
y a seulement quelque chose qui me dit que le mot de passe fonctionne ..
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ng
Salut,
Private Sub Command1_Click() If Text1.Text = "sésame" Then MsgBox "Bravo - Mot de passe accepté !" Call Load(MaFeuille) Call MaFeuille.Show() Unload Form1 Else MsgBox "Désolé, mot de passe erroné, réessayez !" Text1.Text = "" Text1.SetFocus End If End Sub
Attention End est fortement déconseillé !! Il vaut mieux décharger toutes les forms a coup de Unload(MaForm).
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
carbonatecaco3 wrote:
Bonjour
Je voudrais faire une protection par mot de passe d'une feuille en VB6 ..Pour l'instant je n'ai pas eu de probleme pour faire le mot de passe :
Private Sub Command1_Click() If Text1.Text = "sésame" Then MsgBox "Bravo - Mot de passe accepté !" Unload Form1 End Else MsgBox "Désolé, mot de passe erroné, réessayez !" Text1.Text = "" Text1.SetFocus End If End Sub
Mais maintenant que dois je faire pour que ça ouvre une feuille,car là il y a seulement quelque chose qui me dit que le mot de passe fonctionne ..
Merci de votre aide
Salut,
Private Sub Command1_Click()
If Text1.Text = "sésame" Then
MsgBox "Bravo - Mot de passe accepté !"
Call Load(MaFeuille)
Call MaFeuille.Show()
Unload Form1
Else
MsgBox "Désolé, mot de passe erroné, réessayez !"
Text1.Text = ""
Text1.SetFocus
End If
End Sub
Attention End est fortement déconseillé !! Il vaut mieux décharger toutes
les forms a coup de Unload(MaForm).
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
carbonatecaco3 wrote:
Bonjour
Je voudrais faire une protection par mot de passe d'une feuille en
VB6 ..Pour l'instant je n'ai pas eu de probleme pour faire le mot de
passe :
Private Sub Command1_Click()
If Text1.Text = "sésame" Then
MsgBox "Bravo - Mot de passe accepté !"
Unload Form1
End
Else
MsgBox "Désolé, mot de passe erroné, réessayez !"
Text1.Text = ""
Text1.SetFocus
End If
End Sub
Mais maintenant que dois je faire pour que ça ouvre une feuille,car
là il y a seulement quelque chose qui me dit que le mot de passe
fonctionne ..
Private Sub Command1_Click() If Text1.Text = "sésame" Then MsgBox "Bravo - Mot de passe accepté !" Call Load(MaFeuille) Call MaFeuille.Show() Unload Form1 Else MsgBox "Désolé, mot de passe erroné, réessayez !" Text1.Text = "" Text1.SetFocus End If End Sub
Attention End est fortement déconseillé !! Il vaut mieux décharger toutes les forms a coup de Unload(MaForm).
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
carbonatecaco3 wrote:
Bonjour
Je voudrais faire une protection par mot de passe d'une feuille en VB6 ..Pour l'instant je n'ai pas eu de probleme pour faire le mot de passe :
Private Sub Command1_Click() If Text1.Text = "sésame" Then MsgBox "Bravo - Mot de passe accepté !" Unload Form1 End Else MsgBox "Désolé, mot de passe erroné, réessayez !" Text1.Text = "" Text1.SetFocus End If End Sub
Mais maintenant que dois je faire pour que ça ouvre une feuille,car là il y a seulement quelque chose qui me dit que le mot de passe fonctionne ..
Merci de votre aide
Patrick Philippot
carbonatecaco3 wrote:
Mais maintenant que dois je faire pour que ça ouvre une feuille,car là il y a seulement quelque chose qui me dit que le mot de passe fonctionne ..
Bonjour,
Dim MaForm as SuperForm Set MaForm = New SuperForm MaForm.Show
ou
MaForm.Show vbModal ' si vous voulez ouvrir la feuille en modal.
-- Patrick Philippot - Microsoft MVP MainSoft Consulting Services www.mainsoft.fr
carbonatecaco3 wrote:
Mais maintenant que dois je faire pour que ça ouvre une feuille,car
là il y a seulement quelque chose qui me dit que le mot de passe
fonctionne ..
Bonjour,
Dim MaForm as SuperForm
Set MaForm = New SuperForm
MaForm.Show
ou
MaForm.Show vbModal ' si vous voulez ouvrir la feuille en modal.
--
Patrick Philippot - Microsoft MVP
MainSoft Consulting Services
www.mainsoft.fr
Mais maintenant que dois je faire pour que ça ouvre une feuille,car là il y a seulement quelque chose qui me dit que le mot de passe fonctionne ..
Bonjour,
Dim MaForm as SuperForm Set MaForm = New SuperForm MaForm.Show
ou
MaForm.Show vbModal ' si vous voulez ouvrir la feuille en modal.
-- Patrick Philippot - Microsoft MVP MainSoft Consulting Services www.mainsoft.fr
carbonatecaco3
Bonjour
Déjà merci pour la réponse
Private Sub Command1_Click() If Text1.Text = "sésame" Then MsgBox "Bravo - Mot de passe accepté !" Call Load(MaFeuille) Call MaFeuille.Show() Unload Form1 Else MsgBox "Désolé, mot de passe erroné, réessayez !" Text1.Text = "" Text1.SetFocus End If End Sub
Quand je veux exécuter le code , j'ai : "Erreur de compilation variable non définie" ...
Bonjour
Déjà merci pour la réponse
Private Sub Command1_Click()
If Text1.Text = "sésame" Then
MsgBox "Bravo - Mot de passe accepté !"
Call Load(MaFeuille)
Call MaFeuille.Show()
Unload Form1
Else
MsgBox "Désolé, mot de passe erroné, réessayez !"
Text1.Text = ""
Text1.SetFocus
End If
End Sub
Quand je veux exécuter le code , j'ai : "Erreur de compilation variable non
définie" ...
Private Sub Command1_Click() If Text1.Text = "sésame" Then MsgBox "Bravo - Mot de passe accepté !" Call Load(MaFeuille) Call MaFeuille.Show() Unload Form1 Else MsgBox "Désolé, mot de passe erroné, réessayez !" Text1.Text = "" Text1.SetFocus End If End Sub
Quand je veux exécuter le code , j'ai : "Erreur de compilation variable non définie" ...
Private Sub Command1_Click() If Text1.Text = "sésame" Then MsgBox "Bravo - Mot de passe accepté !" Call Load(MaFeuille) Call MaFeuille.Show() Unload Form1 Else MsgBox "Désolé, mot de passe erroné, réessayez !" Text1.Text = "" Text1.SetFocus End If End Sub
Quand je veux exécuter le code , j'ai : "Erreur de compilation variable non définie" ...
Vous avez bien remplacé "Mafeuille " par le nom d'une Form que vous avez définie dans votre programme?
-- Patrick Philippot - Microsoft MVP MainSoft Consulting Services www.mainsoft.fr
carbonatecaco3 wrote:
Private Sub Command1_Click()
If Text1.Text = "sésame" Then
MsgBox "Bravo - Mot de passe accepté !"
Call Load(MaFeuille)
Call MaFeuille.Show()
Unload Form1
Else
MsgBox "Désolé, mot de passe erroné, réessayez !"
Text1.Text = ""
Text1.SetFocus
End If
End Sub
Quand je veux exécuter le code , j'ai : "Erreur de compilation
variable non définie" ...
Vous avez bien remplacé "Mafeuille " par le nom d'une Form que vous avez
définie dans votre programme?
--
Patrick Philippot - Microsoft MVP
MainSoft Consulting Services
www.mainsoft.fr
Private Sub Command1_Click() If Text1.Text = "sésame" Then MsgBox "Bravo - Mot de passe accepté !" Call Load(MaFeuille) Call MaFeuille.Show() Unload Form1 Else MsgBox "Désolé, mot de passe erroné, réessayez !" Text1.Text = "" Text1.SetFocus End If End Sub
Quand je veux exécuter le code , j'ai : "Erreur de compilation variable non définie" ...
Vous avez bien remplacé "Mafeuille " par le nom d'une Form que vous avez définie dans votre programme?
-- Patrick Philippot - Microsoft MVP MainSoft Consulting Services www.mainsoft.fr
carbonatecaco3
Oui oui j'ai fait ce qu'il faut .. Tout fonctionne bien maintenant
Merci
Oui oui j'ai fait ce qu'il faut .. Tout fonctionne bien maintenant
