Verrouillage a une date determinée

chaelie2015 · 2 Mai 2016

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 · 2 Mai 2016

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

Code:

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

chaelie2015 · 2 Mai 2016

Re : Verrouillage a une date determinée

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

vgendron · 2 Mai 2016

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

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 · 2 Mai 2016

Re : Verrouillage a une date determinée

Bonjour,

Essayes

Code:

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

Caillou

chaelie2015 · 2 Mai 2016

Re : Verrouillage a une date determinée

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

Verrouillage a une date determinée

chaelie2015

XLDnaute Accro

Pièces jointes

vgendron

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Pièces jointes

vgendron

XLDnaute Barbatruc

Caillou

XLDnaute Impliqué

chaelie2015

XLDnaute Accro

Discussions similaires