Excel fournit un environnement de développement robuste dont de nombreuses personnes profitent pleinement. En fait, de nombreuses personnes ont écrit des programmes d’application entiers en utilisant VBA avec Excel comme cadre.

Si vous développez des programmes dans Excel, vous vous demandez peut-être s’il existe un moyen d’écrire votre programme afin qu’il ne fonctionne plus après une date spécifique. Heureusement, c’est assez facile. Une solution consiste à utiliser quelque chose comme ce qui suit comme macro Auto_Open:

Sub Auto_Open()

Dim exdate As Date     exdate = "09/30/2015"

If Date > exdate Then         MsgBox ("You have reached end of your trial period")

ActiveWorkbook.Close     End If     MsgBox ("You have " & exdate - Date & "Days left")

End Sub

Si la date sur le système exécutant le programme est supérieure à la date spécifiée dans la variable exdate, l’utilisateur verra une boîte de message indiquant que sa période d’essai a expiré. Lorsque l’utilisateur clique sur le bouton OK, le classeur se ferme. Si la période d’essai n’est pas terminée, la boîte de message indique le nombre de jours restants dans la période.

Bien sûr, si vous placez une macro comme celle-ci dans votre application, cela peut vous empêcher d’ouvrir le classeur pour apporter des modifications au programme. La manière la plus évidente de contourner ce problème consiste bien entendu à maintenir la touche Maj enfoncée lorsque vous ouvrez le classeur. Cela arrête l’exécution de la macro Auto_Open. Si vos utilisateurs le savent, ils peuvent contourner le contrôle d’expiration aussi facilement que vous. La solution consiste à placer des vérifications similaires dans d’autres macros qui ne peuvent pas être contournées et qui sont essentielles à votre programme.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (2590) s’applique à Microsoft Excel 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban d’Excel (Excel 2007 et versions ultérieures) ici:

link: / excelribbon-Expiration_Date_for_Excel_Programs [Date d’expiration pour les programmes Excel].