Bloquer l'accès à un fichier excel

[Tof]

Bonjour,

je souhaite protèger un fichier excel en interdisant son accès à partir d'une certaine date.

Si je fais une macro telle que celle ci :

Public Sub tof()
If Date > CDate("01/01/05") Then
MsgBox ("pas autorisé")
Else
MsgBox ("autorisé")
End If
End Sub

il suffit lors de l'ouverture du fichier de ne pas activer les macros pour passer outre la sécurité.

Pouvez vous me donner un moyen plus efficace ?

Merci pour votre aide

 

[Dan]

Bonjour,

Une possibilité est d'utiliser l'instruction INPUTBOX en définissant un mot de passe qui ne sera à encoder après cette date par exemple. Ceci afin de garder une possibilté de l'ouvrir après cette date.

Maintenant, il te faudra mettre un mot de passe au niveau VBA pour protéger tes macros et le mot de passe que tu vas y placer.
Là, comme il a été dit à plusieurs reprises sur ce forum, cela n'empêchera pas d'avoir la possibilité de faire sauter ton mot de passe et ce, quel qu'il soit.

@+ Dan

 

[ChristianS]

Salut,
Il suffit aussi de mettre ton code dans l'évèment Open du Workbook en tenant compte des remarques de Dan (mot de passe dans inputbox, quand la date est dépassée, pour que tu puisses l'ouvrir toi seul)
Mais évidemment quand on veut, on peut..... ne serait-ce qu'en trafiquant la date système.
Dur, dur...
A+
ChS

 

[Tof]

Dan et Christian,merci pour ces infos.

Il ne me suffit plus qu'à espérer que les utilisateurs de mon fichier ne soient pas des experts en Excell....