Limiter le nombre d'utilisation d'un classeur

GA-ZO-BU · 24 Janvier 2010

Bonjour,

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 ???

Merci

jp14 · 24 Janvier 2010

Re : Limiter le nombre d'utilisation d'un classeur

Bonjour et bienvenue sur le forum

En reprenant le fichier de ce fil pour le mot de passe

https://www.excel-downloads.com/thr...-maxi-de-trois-essai-en-vba-sous-excel.94726/

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
................................

A tester

JP

Limiter le nombre d'utilisation d'un classeur

GA-ZO-BU

Guest

jp14

XLDnaute Barbatruc

Discussions similaires

Limiter le nombre d'utilisation d'un classeur

GA-ZO-BU

Guest

jp14

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency