demande de code pour ouvrir fichier apres une date passée

[al1.2loin]

Bonjour, peut on mettre un code pour l'ouverture d'un fichier après une date définis, exemple à partir du 1 février 2016 demande de code pour l'ouverture du fichier.

 

[Theze]

Re : demande de code pour ouvrir fichier apres une date passée

Bonjour,

Penser que l'on puisse protéger efficacement un fichier Excel est utopique. Il existe beaucoup de petits programmes pour casser la protection d'un classeur et du verrouillage du code VBA.
Tu peux toujours faire un truc du genre, pour protéger les feuilles et classeur si les utilisateurs sont novices :

Private Sub Workbook_Open()

    Dim Fe As Worksheet
    
    If Date > DateValue("01/02/2016") Then
    
        For Each Fe In Worksheets: Fe.Protect "MonMotDePasse": Next Fe
        ThisWorkbook.Protect "MonMotDePasse"
        
    End If
    
End Sub

Il te faut aussi protéger le projet VBA : "Outils"-->"Propriétés de VBAProject..."-->Onglet "Protection"-->Cocher "Verrouiller le projet pour l'affichage"-->Entrer le mot de passe (2 fois) enregistrer le classeur, le refermer et voir à l'ouverture si le projet est bien verrouillé.
Tu peux aussi obfusquer le code (le rendre illisible) fais des recherche pour avoir une idée de quoi ça parle.

 

[phlaurent55]

Re : demande de code pour ouvrir fichier apres une date passée

Bonjour al1.2loin,

le fichier en retour
j'ai changé la date limite ( le 1/12/2015) pour pouvoir tester directement sans devoir attendre le 1er février
le mot de passe est toto (en minuscules)

Ne pas oublier de protéger les macros pour les rendre inaccessibles
en ne perdant pas de vue que les protections sur Excel ne valent pas grand'chose

à+
Philippe