XL 2016 VBA verrouiller une feuille via une date

C

Compte Supprimé 979

Guest

• 3 Février 2021

• #2

Bonjour ryo30
Un petit fichier à nous donner ?

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 3 Février 2021

• #3

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

 

Vote positif 0 Vote négatif

R

ryo30

XLDnaute Nouveau

• 4 Février 2021

• #4

Bonjour,

Encore dsl et merci

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Février 2021

• #5

Bonjour ryo30, Bruno, le forum,

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

VB:

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+

 

Vote positif 0 Vote négatif

R

ryo30

XLDnaute Nouveau

• 4 Février 2021

• #6

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Février 2021

• #7

ryo30 à dit:

Merci mais cela ne fonctionne pas

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

R

ryo30

XLDnaute Nouveau

• 5 Février 2021

• #8

Bonjour,

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

 

Pièces jointes

• Planning.xlsm

  358.9 KB · Affichages: 15

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Février 2021

• #9

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+

 

Pièces jointes

• Planning(1).xlsm

  364.9 KB · Affichages: 3

Vote positif 0 Vote négatif

R

ryo30

XLDnaute Nouveau

• 5 Février 2021

• #10

Génial encore merci pour votre patience

 

Vote positif 0 Vote négatif