Discussion :

[epsilonenadia]

Bonjour , pour verrouiller une cellule si une valeur différente de nulle , c a dire si y'a une valeur dans la cellule on verrouille la cellule sinon on donne la main , mais une fois on met une valeur dans cette cellule quand on enregistre, cette cellule se verrouille donc a son tour

Voila le code

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
Private Sub Workbook_Open()
Dim c As Range
Dim d As Range
Dim b As Range
 
sheets(4).Protect Password:="123456", userinterfaceonly:=True
 
 
For Each c In Range("C17:K47")
  If c.Value <> "" Then c.Locked = True Else c.Locked = False
Next c
 
For Each d In Range("Q17:W47")
  If d.Value <> "" Then d.Locked = True Else d.Locked = False
Next d
 
For Each b In Range("Y17:AU47")
  If b.Value <> "" Then b.Locked = True Else b.Locked = False
Next b
End Sub

je verrouille donc les cellule de C17 à K47 et de Q17 à W47, et de Y17 à AU47

Ceci marche pour une feuille

Mais je veux Verrouiller 10 feuilles sur 14 c'est a dire pas toutes les feuilles !

Mais j'y arrive pas a protéger plusieurs feuilles au même temps, j'essaie de mettre le code dans WorkSheet pour chaque feuille mais ça marche pas, je souhaiterais savoir comment faire pour protéger plusieurs feuilles

Merci et bonne journée

[Invité]

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
27
28
29
Private Sub Workbook_Open()
Dim c As Range
Dim d As Range
Dim b As Range
 
For I = 1 To Worksheets.Count
    If I <> 1 And I <> 5 And I <> 6 Then ProtecFeuille Worksheets(I)
Next
End Sub
Sub ProtecFeuille(F As Worksheet)
Dim c As Range
Dim d As Range
Dim b As Range
 
F.Protect Password:="123456", userinterfaceonly:=True
 
 
For Each c In F.Range("C17:K47")
  If c.Value <> "" Then c.Locked = True Else c.Locked = False
Next c
 
For Each d In F.Range("Q17:W47")
  If d.Value <> "" Then d.Locked = True Else d.Locked = False
Next d
 
For Each b In F.Range("Y17:AU47")
  If b.Value <> "" Then b.Locked = True Else b.Locked = False
Next b
End Sub

[epsilonenadia]

Merci rdurupt

Je reçois l'erreur

Erreur d’exécution '13'

Incompatibilité de type

ça me met en jaune le

Code :

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

If c.Value <> "" Then

Bizarre ça marchait avec une seule feuille , et la j'y arrive pas, je ne sais plus pourquoi!
est ce que c'est du au fait que j'ai déja protégé la feuille !? j'ai déja essayé un autre code!

Et avant il faudrait bien que je sélectionne la feuille je met cellule verrouillée puis, je sélectionne celle a qui je veux appliquer le code et je met déverrouiller c'est bien ça ?
car avec un truc simple ça marche, mais la avec un classeur plein de feuille et plusieurs zone a verrouillé , je m'embrouille .



Et pour ça :

Code :

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

1
2
3
For I = 1 To Worksheets.Count
    If I <> 1 And I <> 5 And I <> 6 Then ProtecFeuille Worksheets(I)
Next

Le 1 , 5 et 6 représente les feuilles au quelle je n'applique pas le code c'est ça ?


Merci bcp pour votre lecture et l’intérêt que vous porter a ma question !

[Invité]

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
27
28
29
Private Sub Workbook_Open()
Dim c As Range
Dim d As Range
Dim b As Range
 
For I = 1 To Worksheets.Count
    If I <> 1 And I <> 5 And I <> 6 Then ProtecFeuille Worksheets(I)
Next
End Sub
Sub ProtecFeuille(F As Worksheet)
Dim c As Range
Dim d As Range
Dim b As Range
 
F.Protect PassWord:="123456", userinterfaceonly:=True
 
 
For Each c In F.Range("C17:K47")
  If Trim("" & c.Value) <> "" Then c.Locked = True Else c.Locked = False
Next
 
For Each d In F.Range("Q17:W47")
  If Trim("" & d.Value) <> "" Then d.Locked = True Else d.Locked = False
Next d
 
For Each b In F.Range("Y17:AU47")
  If Trim("" & b.Value) <> "" Then b.Locked = True Else b.Locked = False
Next b
End Sub

Le 1 , 5 et 6 représente les feuilles au quelle je n'applique pas le code c'est ça ?
exact

[epsilonenadia]

ça marche Nikel , Merci bcp

Mais L'ouverture du classeur est devenue tres lente c'est normal ?

[Invité]

difficile a dire maintenant tu scan toutes tes feuilles!

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_Open()
Dim c As Range
Dim d As Range
Dim b As Range
ActiveWorkbook.Application.Application.EnableEvents = False 
For I = 1 To Worksheets.Count
    If I <> 1 And I <> 5 And I <> 6 Then ProtecFeuille Worksheets(I)
Next
ActiveWorkbook.Application.Application.EnableEvents = True
End Sub