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