Compteur Dans classeur Excel

[DADARODA]

Bonsoir,

Est-il possible de mettre un compteur dans une feuille excel, et qui s'incremente automatiquement a chaque fois que le fichier s'ouvre
Si oui est-il possible de lui mettre une condition, du style au bout de la 20eme ouverture
le fichier à besoins de mot de pass pour s'ouvrir .

Merci de votre Aide ..

Cdlt

 

[klin89]

Re : Compteur Dans classeur Excel

Bonsoir DADARODA

Pour la première partie de ta question, à placer dans le ThisWorkbook

Private Sub Workbook_Open()
Sheets("Feuil1").Range("A1") = Sheets("Feuil1").Range("A1") + 1
End Sub

Sous entendu que tu sauvegardes avant fermeture.
Klin89

 

[Grand Chaman Excel]

Re : Compteur Dans classeur Excel

Bonsoir DADARODA,

Pour compléter la partie de klin89, je te propose ceci :

'Note: Mot de passe visible si le code VBA n'est pas protégé lui
'aussi par un mot de passe
Private Const MotDePasse As String = "123"

Private Sub Workbook_Open()
    With ThisWorkbook.Sheets("Feuil1")
        .Range("A1") = .Range("A1") + 1
        'La première fois que la limite est atteinte on averti que mot de passe sera requis
        If .Range("A1") = 20 Then
            MsgBox "Limite de 20 essais, mot de passe requis."  'optionnel
            Application.DisplayAlerts = False           'aucun avertissement si fichier existe déjà
            ThisWorkbook.SaveAs Filename:=ActiveWorkbook.Name, Password:=MotDePasse
            Application.DisplayAlerts = True
        End If
    
        'Les fois suivantes, on sauvegarde avec le même mot de passe
        'Protection au cas où utilisateur enlève le mot de passe
        If .Range("A1") > 20 Then
            Application.DisplayAlerts = False
            ThisWorkbook.SaveAs Filename:=ActiveWorkbook.Name, Password:=MotDePasse
            Application.DisplayAlerts = True
        End If
    End With
End Sub