XL 2016 VBA verrouiller une feuille via une date

[ryo30]

Bonjour,

Déjà j espère poster mon message au bon endroit ?

Après avoir fait le tour de pas mal de sujets se rapprochant de mon pb je ne trouve pas la solution .

Voila mon pb :
Un calendrier avec 12 feuilles qui représentent les 12 mois de l'année pour un état de présence.
J aimerais que en fin de mois par exemple la feuille de janvier soit bloqué par un mot de passe le 31/01/2021.

Merci pour votre aide, à bientôt

 

[Compte Supprimé 979]

Bonjour ryo30
Un petit fichier à nous donner ?

 

[Compte Supprimé 979]

Bonjour,
Je ne pense pas que toutes vos feuilles soient nommées uniquement avec la 1ère lettre du mois
Sinon vous avez un soucis avec Janvier, Juin, Juillet....
Ce que nous voulons sur ce forum en tant que bénévoles, c'est avoir les vrais éléments mais anonymisés
Comment voulez-vous que l'on puisse vous aider dans ces conditions !?

 

[ryo30]

Bonjour,

Encore dsl et merci

 

[job75]

Bonjour ryo30, Bruno, le forum,

Allez dans VBA (Alt+F11) et placez cette macro dans ThisWorkbook :

Private Sub Workbook_Open()
Dim w As Worksheet, c As Range, x As String
For Each w In Worksheets
    Set c = w.Cells.Find("PLANNING", , xlValues)
    If Not c Is Nothing Then
        x = "1/" & Trim(Replace(UCase(c), "PLANNING", ""))
        If IsDate(x) Then If Month(x) < Month(Date) Then w.Protect "toto" Else w.Unprotect "toto" 'mot de passe toto à adapter
    End If
Next
Me.Saved = True 'évite l'invite à la fermeture si aucune modification
End Sub

Elle se déclenche quand on ouvre le fichier.

A+

 

[ryo30]

Bonjour,
Merci mais cela ne fonctionne pas ou je zap un truc voir plusieurs ?
Ce code VBA doit il verrouiller le classeur? car je cherche à verrouiller les feuilles ou cellules de chaque mois en fin de mois.
Et là je ne vois pas où mettre mon groupe de cellules ou le nom de la feuille?
En gros comment verrouiller un groupe de cellules en fonction d'une date, et avec effectivement un mp pour déverrouiller au besoin la date passée. ex: verrouiller la feuille ou le goupes de cellules du mois de janvier le 31/01/2021.

Encore merci pour votre aide

 

[job75]

Merci mais cela ne fonctionne pas

Bien sûr que si, à l'ouverture du fichier la feuille J (janvier) sera protégée puisque nous sommes en février.

Toutes les autres feuilles seront non protégées.

Si le VBA de votre fichier n'était pas protégé je l'aurais joint avec la macro

 

[ryo30]

Bonjour,

Ci-joint le fichier non protégé merci encore.

 

[job75]

Bonjour ryo30, le forum,

J'ai mis le code protégeant/déprotégeant les feuilles dans ThisWorkbook.

Bien entendu dans les feuilles des mois toutes les cellules ont été verrouillées.

Comme je l'ai dit la feuille J (JANVIER) devient protégée (mot de passe "toto") à l'ouverture du fichier.

A+

 

[ryo30]

Génial encore merci pour votre patience