Verrouillage automatique de cellules dejà saisie et apres saisies

[sebastien98000]

Bonjour à toutes et à tous .

Je sais que ce post va irriter certains (ou certainnes) car elle a dejà été posée maintes fois mais je ne trouve pas de solution à mon probléme.Et comme je suis novice sur vb .......

Voilà , j'ai un fichier Excel avec des cellules de saisie (De AB3 à AC1000).
Certaines de ces cellules sont dejà remplies et d'autres à venir. Je voudrais verrouiller (empêcher la modification) de celles dejà remplie (contenant seulement une date) , et verrouiller automatiquement celles qui vont l'être (contenant seulement une date).

J'ai bien trouver des solutions sur le forum mais aucune qui correspondent à mon besoin.

Merci pour aide

Sebastien

 

[Pierrot93]

Re : Verrouillage automatique de cellules dejà saisie et apres saisies

Bonjour Sebastien et bienvenue parmi nous.

Si j'ai bien compris ta demande, il y a lieu tout d'abord de dé-vérouiller les cellules concernées.

dans le module de la feuille concernée, tu places le code ci dessous :

Private Sub Worksheet_Change(ByVal Target As Range)
    If IsDate(Target.Value) Then Target.Locked = True
End Sub

il faut en outre que la protection soit faites, par vba en utilisant l'argument "userinterfaceonly", tu places donc le code ci dessous dans le module "ThisWorkbook" :

(mot de passe et nom de la feuille à adapter)

Private Sub Workbook_Open()
Sheets("Feuil1").Protect Password:="toto", userinterfaceonly:=True
End Sub

attention pour que cela fonctionne il faut avoir exécuté le code ci dessous.

bonne journée
@+

 

[sebastien98000]

Re : Verrouillage automatique de cellules dejà saisie et apres saisies

Merci Pierrot ,

J'essaye de suite ....

Sebastien

 

[Pierrot93]

Re : Verrouillage automatique de cellules dejà saisie et apres saisies

Re

regarde le code ci dessous, teste la plage concernée lors de l'ouverture du classeur, à placer dans "thisworkbook en lieu et place de celui déjà donné.

Private Sub Workbook_Open()
Dim c As Range
For Each c In Range("AB3:AC1000")
    If IsDate(c.Value) Then c.Locked = True Else c.Locked = False
Next c
Sheets(1).Protect Password:="toto", userinterfaceonly:=True
End Sub

@+

 

[sebastien98000]

Re : Verrouillage automatique de cellules dejà saisie et apres saisies

Désolé Pierrot.

Cela ne fonctionne pas. La protection se met bien en place mais aucune des cellules de ma plage de saisie n'est "verrouillée" malgré qu'une date soit dejà présente ou que j'en saisisse une.

Encore merci pour ton aide.

Sebastien

PS:Je joins un fichier simplifié pour mieux comprendre.

 

[Pierrot93]

Re : Verrouillage automatique de cellules dejà saisie et apres saisies

Re

tu as essayé le dernier code que je t'ai donné, mais il faut l'exécuter au préalable.

@+

 

[Pierrot93]

Re : Verrouillage automatique de cellules dejà saisie et apres saisies

Re

ton fichier modifié.

@+

Edition mauvais fichier transmis.

 

[sebastien98000]

Re : Verrouillage automatique de cellules dejà saisie et apres saisies

Merci Pierrot pout ton aide.

Tu m'enleves une grosse épine du pied. Le fichier modifié marche super bien . J'ai integrer à mon fichier original et tout marche Nickel. Merci encore pour tout.

Sebastien