Comment faire pour limiter le nombre d'utilisation d'un classeur. Par exemple, après 30 utilisations, le fichier n'est plus utilisable, ou alors il faut insérer un mot de passe pour 30 utilisation de plus ???
il faut rajouter les codes suivants pour gérer le nombre d'enregistrement ou autre
A la fermeture du classeur
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With ThisWorkbook.BuiltinDocumentProperties("Revision number")
.Value = .Value + 1
End With
....................................
On incrémente une valeur de la fenêtre "propriétés" onglet "statistiques" du menu "fichier".
A l'ouverture on vérifie le nombre de révision
Code:
Private Sub Workbook_Open()
With ThisWorkbook.BuiltinDocumentProperties("Revision number")
If .Value = 30 Then
..................................
End If
End With
................................