Discussion :

[jacko842]

Bonjour,

J'ai deux colonnes date et nom:

Quand l'utilisateur complète la colonne nom et passe à la suivante la colonnes date se complète automatiquement:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
If Not Intersect(Target, [B:B]) Is Nothing Then
    Target(1, 0) = Now
end if

Je voudrais verrouiller la cellule date après sa saisie (pas la colonne complète sinon l'utilisateur ne pourra plus compéter par la suite)

Auriez vous une idée ?

D'avance merci

[jacko842]

Ok j'ai trouvé via

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim PWD As String
    Dim Feuille As String
 
    PWD = "azerty"
    Feuille = "Feuil1"
 
    With Worksheets(Feuille)
        .EnableAutoFilter = True
        .Protect PWD, True, True, True, True
    End With
End Sub
 
Private Sub Workbook_Open()
    Dim PWD As String
    Dim Feuille As String
 
    PWD = "azerty"
    Feuille = "Feuil1"
 
    With Worksheets(Feuille)
        .EnableAutoFilter = True
        .Protect PWD, True, True, True, True
    End With
End Sub

Maintenant je voudrais exécuter mon code de mon évènement:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [B:B]) Is Nothing Then
        Target(1, 0) = Now
    End If
End Sub

Que si la cellule B? est vide

[Invité]

il faut au préalable que les cellules soient déverrouillées si non tu ne pourras plus écrire dans la feuille!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B:B]) Is Nothing And Target.Offset(0, -1).Locked = fals Then
    Application.EnableEvents = False
    Target.Offset(0, -1) = Now
    ActiveSheet.Unprotect Password:="123456789"
     Target.Offset(0, -1).Locked = True
     ActiveSheet.Protect Password:="123456789"
     Application.EnableEvents = True
 End If
End Sub

[Thautheme]

Bonjour le fil, bonjour le forum,

En déverrouillant la colonne B, j'aurais plutôt écris comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B:B]) Is Nothing Then
    ActiveSheet.Unprotect Password:="123456789"
    Target.Offset(0, -1) = Now
    Target.Offset(0, -1).Locked = True
    ActiveSheet.Protect Password:="123456789"
End If
End Sub