Verrouillage automatique de cellules dejà saisie et apres saisies

Pierrot93

XLDnaute Barbatruc

• 13 Novembre 2007

• #2

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 :

Code:

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)

Code:

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
@+

 

Vote positif 0 Vote négatif

S

sebastien98000

XLDnaute Nouveau

• 13 Novembre 2007

• #3

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

Merci Pierrot ,

J'essaye de suite ....

Sebastien

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 13 Novembre 2007

• #4

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

Code:

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

@+

 

Vote positif 0 Vote négatif

S

sebastien98000

XLDnaute Nouveau

• 13 Novembre 2007

• #5

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.

 

Pièces jointes

• essai verrouillage.xls

  25.5 KB · Affichages: 189
• essai verrouillage.xls

  25.5 KB · Affichages: 210
• essai verrouillage.xls

  25.5 KB · Affichages: 220

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 13 Novembre 2007

• #6

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.

@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 13 Novembre 2007

• #7

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

Re

ton fichier modifié.

@+

Edition mauvais fichier transmis.

 

Pièces jointes

• essai verrouillage.xls

  26.5 KB · Affichages: 436
• essai verrouillage.xls

  26.5 KB · Affichages: 492
• essai verrouillage.xls

  26.5 KB · Affichages: 509

Dernière édition: 13 Novembre 2007

Vote positif 0 Vote négatif

S

sebastien98000

XLDnaute Nouveau

• 13 Novembre 2007

• #8

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

😛

 

Vote positif 0 Vote négatif