X rouge dans une useforme

Bonjoir(c) Daniel

Mauvaise procédure, changer procédure ;-)

Tu sais que tu as la possibilité de mettre un mot de passe sur un fichier
Excel ?!
Avec 2003 : menu outils, Options, onglet Sécurité...

Sinon, ta procédure est AMHA conçu a l'envers... au lieu de dire si le mdp
n'est pas le bon on ferme, essaye plutot de fermer sauf si le mdp est le bon
Mais je ne sais pas si ça suffira, ce n'est qu'une idée

--
La FAQ Outlook est la : http://faq.outlook.free.fr
JièL / Jean-Louis GOUBERT
Co-auteur de "Internet + de 1 000 trucs de pros" chez Micro Application
http://faq.outlook.free.fr/livreMA/internet_plus_de_1000_trucs_de_pros.htm

Le 26/08/2004 00:08 vous avez écrit ceci :

Bonjour à tous

J'ai une macro qui ouvre une use forme pour entrer un mot de passe a
l'ouverture
du fichier ci mot passe n'est pas bon le fichier se ferme.

Mais si ont clic sur le Xrouge la use forme se ferme et le fichier s'ouvre
quand même !!

Comment désactiver le Xrouge sur ma forme ?

Merci

Pourquoi ne pas utiliser le mot de passe excel normal
pour l'acces au fichier ou forcer la saisie d'un inputbox
à la place d'un userform dans le genre:
'...
Sub momp()
Dim mavaltest As String
Dim moncode As String
moncode = "bouc"
On Error GoTo maroutine
Workbooks.Open ("monfic.xls")
mavaltest = InputBox("Entrer: ", "Mot de passe")
If mavaltest = moncode Then
Exit Sub
Else
maroutine:
Workbooks("monfic.xls").Close False
End If
End Sub

';;;
'Bien entendu mieux vaut verrouiller le projet

;-)

LeSteph



...
"Daniel" <pellet15@videotron.ca> a écrit dans le message de
news:e58Xc.153695$F85.4034238@wagner.videotron.net...

Bonjour à tous

J'ai une macro qui ouvre une use forme pour entrer un mot de passe a
l'ouverture
du fichier ci mot passe n'est pas bon le fichier se ferme.

Mais si ont clic sur le Xrouge la use forme se ferme et le fichier s'ouvre
quand même !!

Comment désactiver le Xrouge sur ma forme ?

Merci