déverouiller certaines cellules avec une sheet.protect

exceldu13 · 20 Août 2011

bonjour,

pouvez vous m'aider à simplifier ce code qui me parâit pas très finaud... :?

sur ma feuille je veux dévérouiller certaines cellules sur les 2 premières lignes suivantes quand on change la valeur de l'activecell.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
LOCKE_CELLS
End Sub




Sub LOCKE_CELLS()
ActiveSheet.Unprotect "mon_code_secret^^"
Dim c As Integer
c = ActiveCell.Row
If Range("a" & c) <> "" Or Range("b" & c) <> "" Or Range("c" & c) <> "" Then
Range("a" & c + 1, "a" & c + 2).Locked = False
Range("b" & c + 1, "b" & c + 2).Locked = False
Range("c" & c + 1, "c" & c + 2).Locked = False
Range("d" & c + 1, "d" & c + 2).Locked = False
Range("e" & c + 1, "e" & c + 2).Locked = False
Range("l" & c + 1, "l" & c + 2).Locked = False
ActiveSheet.Protect "mon_code_secret^^"
End If

End Sub

merci bon we🙂

Jacou · 20 Août 2011

Re : déverouiller certaines cellules avec une sheet.protect

Bonsoir,
Tu peux déjà faire cette simplification :

Sub LOCKE_CELLS()
ActiveSheet.Unprotect "mon_code_secret^^"
Dim c As Integer
c = ActiveCell.Row
If Range("a" & c) <> "" Or Range("b" & c) <> "" Or Range("c" & c) <> "" Then
Range("a" & c + 1, "e" & c + 2).Locked = False
Range("l" & c + 1, "l" & c + 2).Locked = False
ActiveSheet.Protect "mon_code_secret^^"
End If

End Sub

à+
Jacou

Softmama · 20 Août 2011

Re : déverouiller certaines cellules avec une sheet.protect

Bonjour,

Sinon, tu peux un peu optimiser ainsi : (à tester)

VB:

Sub LOCKE_CELLS()
Dim c as Long
with ActiveSheet
  c = Activecell.row
  If Application.CountA(.Range("A" &  c & ":C" & c)) > 0 Then
    .Unprotect "mon_code_secret^^"
    Union(.Range("A" & c + 1 &":E" & c + 2), .Range("L" & c+1 & ":L" & c+2)).Locked = False
    .Protect "mon_code_secret^^"
  End If
end With
End Sub

déverouiller certaines cellules avec une sheet.protect

exceldu13

Guest

Jacou

XLDnaute Impliqué

Softmama

XLDnaute Accro

Discussions similaires

déverouiller certaines cellules avec une sheet.protect

exceldu13

Guest

Jacou

XLDnaute Impliqué

Softmama

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency