Interdire l'accés à une page aprés qqs jours

Bonjour

J'ai testé au boulot : première ouverture dur mon ordi, demande d'acceptation, validé , enregistré, fermé, re ouverture, plus de demande.

Envoi du fichier à un collègue, première ouverture dur son ordi, demande d'acceptation etc.

En effet c'est le "application.UserName" qui est prix en compte comme valeur de déverrouillage, donc même sur un ordi unique mais avec ded sessions différentes il faudra accepter les conditions...

C'est à améliorer afin de ne pas à avoir à accepter plusieurs fois si c'est sur un même ordi : une fois LouReeD puis fronck, puis LouReeD etc...

Il faudrait créer une liste des user ayant accepté.

@ bientôt

LouReeD

Bonjour,

Voilà ma version simplifiée du contrat.

en page accueil

Private Sub Worksheet_Activate()
    If Range("A4") <> "drts.ok" Then contrat.Show
end sub

Sous l'UF

Dim Fin As Boolean
Private Sub Annuler_Click()
    Unload Me
    ' on quitte l'application
    Application.Quit
End Sub

Private Sub CheckBox1_Click()
    ' si l'on coche ou décoche la boite à cocher alors le bouton "Valider" est actif ou inactif
    If CheckBox1 Then Valider.Enabled = True Else Valider.Enabled = False
End Sub

Private Sub Valider_Click()
    Sheets("Acceuil").Range("A4") = "drts.ok"
    Unload Me
End Sub

Bonne soirée.

Bonsoir,

ma version n'est pas plus compliquée, c'est qu'au lieu d'utiliser une cellule pour stocker la variable, je la stocke dans un "nom" sous Excel et ce dernier je le rend invisible afin qu'un utilisateur lambda ne puisse pas le trouver...

Bravo @ vous pour votre solution fonctionnelle !

@ bientôt

LouReeD