Verrouillage a une date determinée

[chaelie2015]

Bonjour Forum
Je souhaite verrouiller mon classeur a une date prédéfinit dans une cellule ( exemple C3).
Si on atteint (par exemple le 12/05/2016) , toutes les cellules de mon classeur déverrouillées vont être verrouillées automatiquement .
Salutations

 

[vgendron]

Re : Verrouillage a une date determinée

Bonjour

je ne maitrise pas du tout le verrouillage et protection des feuilles,
mais ca devrait te donner un code de ce type dans l'évènement open de Thisworkbook..

Private Sub Workbook_Open()
If [C3] <> "" And Date >= [C3] Then
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub

 

[chaelie2015]

Re : Verrouillage a une date determinée

Bonjour Vgendron
merci d'avoir répondu, mais ça n'a pas fonctionné ??
A+

 

[vgendron]

Re : Verrouillage a une date determinée

qu'est ce qui n'a pas fonctionné?

après. ce que je te disais. je ne maitrise pas la protection:

sur ton fichier. quand je protège la feuille, seules les cellules vertes peuvent etre modifiées.. (j'ai supposé que c'était le but recherché)
et avec le code donné avant.. si tu changes la date.au 1er mai par exemple. il y avait effectivement un souci. une fois la protection activée. tu as beau changer la date. elle reste activée..

modifie avec ce code

Private Sub Workbook_Open()
If [C3] <> "" And Date >= [C3] Then
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Else
    ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
End If
End Sub

 

[Caillou]

Re : Verrouillage a une date determinée

Bonjour,

Essayes

Private Sub Workbook_Open()
 If [C3] <> "" And Date >= [C3] Then
    ActiveSheet.Unprotect
    Cells.Locked = True
    ActiveSheet.Protect
 End If
End Sub

Caillou

 

[chaelie2015]

Re : Verrouillage a une date determinée

Bonjour CAILLOU,vgendrou
merci pour les réponses.
Problème résolut
salutations