PROGRAMME DE PROTECTION DE DOSSIERS PAR MOT DE PASSE ET DE PERSONNALISATION AVEC

Signaler
Messages postés
33
Date d'inscription
lundi 21 juin 2004
Statut
Membre
Dernière intervention
24 mai 2008
-
Messages postés
863
Date d'inscription
samedi 11 juin 2005
Statut
Membre
Dernière intervention
21 août 2015
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/39960-programme-de-protection-de-dossiers-par-mot-de-passe-et-de-personnalisation-avec-une-image-de-fond

Messages postés
863
Date d'inscription
samedi 11 juin 2005
Statut
Membre
Dernière intervention
21 août 2015

Remplacer votre Private Sub Ouvrir_Click()
par

Private Sub Ouvrir_Click()
BrowseAndCreate ("Veuillez selectionner votre Dossier.")
End Sub

Public Function BrowseAndCreate(Title As String) As String
Dim Shell As Variant, Folder As Variant
Set Shell = CreateObject("Shell.Application")
Set Folder = Shell.BrowseForFolder(hWnd, Title, 0, "")
BrowseAndCreate = Folder.items.Item.Path
Text1.Text = BrowseAndCreate
End Function
Messages postés
1
Date d'inscription
dimanche 25 octobre 2009
Statut
Membre
Dernière intervention
22 juin 2010

ca marche mais il suffit de faire un autre copie et on a un dossier sans protection
Messages postés
61
Date d'inscription
dimanche 9 octobre 2005
Statut
Membre
Dernière intervention
30 novembre 2010

cela n as pas resister a winrar desolé facillement contournable
Messages postés
61
Date d'inscription
dimanche 9 octobre 2005
Statut
Membre
Dernière intervention
30 novembre 2010

juste Il faudrait etre juste bondieux
A premiere vue l option parcourir ne pointe pas vraiment vers un dossier mais cherche un fichier alors faudrait voir les choses autrement Sinon cela a proteger un dossier que jai cree et taper dans le text box ala main sur C:\notreDossier :cela a resister a un double click ,a explorer et a ouvrir click droit of the mouse j ai zipper l ensemble avec win rar j ai pue alors atteindre le fond du dossier securisé...
Afficher les 11 commentaires