• Initiateur de la discussion Initiateur de la discussion whooki
  • Date de début Date de début

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 !

W

whooki

Guest
Bonjour à tous,

J'explique mon problème. Je dispose d'un classeur nommé juin.xls qui est lui même dans un dossier nommé juin (c:\\juin). Je souhaiterais qu’au moi de juillet, si jamais je devais rouvrir le fichier juin.xls, que mon classeur soit protégé par mot de passe (code que j’ai eu ici sur ce forum).

Dans le this workbook :

Private Sub Workbook_Open()

If Date > CDate('01/07/2006') Then
UserForm2.Show
UserForm1.Show
End If
End Sub

Dans mon USF :

Private Sub CommandButton1_Click()
Dim password
password = TextBox1.Value
If Not (password = '1234') Then
MsgBox 'Mauvais mot de passe'
TextBox1 = ''
TextBox1.SetFocus
Exit Sub
Else
MsgBox ' SVP ne rien modifier sans être qualifier.'
Unload Me
UserForm2.Hide
End If
End Sub

Tout cela marche bien mais je voudrais qu’en cas de mauvaise réponse au mot de passe il supprime automatiquement tous les autres classeurs .xls contenus dans le dossier c:\\juin sans me demander si je suis d’accord sans passer par la corbeille.


Merci par avance.
Bonne journée. [file name=Avec_PassWord_20060615113228.zip size=13596]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Avec_PassWord_20060615113228.zip[/file]
 

Pièces jointes

- 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
5
Affichages
809
Compte Supprimé 979
C
Réponses
2
Affichages
547
Réponses
3
Affichages
698
Retour