Enlever protection dans une macro

[balouw]

boujour
pouvez vous m'aider a corriger la macro ci-jointe pour enveler la protection
automatique
merci d'avance

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
Dim c As Range

If Not Intersect(Target, Range("B:AF")) Is Nothing Then
For Each c In Target
With c.Interior
If c.Text = "C" Or c.Text = "C/" Or c.Text = "/C" Or c.Text = "HS" Or c.Text = "HS/" Or c.Text = "/HS" Or c.Text = "AS" Or c.Text = "/AS" Or c.Text = "AS/" Or c.Text = "F" Or c.Text = "/F" Or c.Text = "F/" Or c.Text = "CE" Or c.Text = "/CE" Or c.Text = "CE/" Then
.ColorIndex = 40
.Pattern = xlSolid
ElseIf c.Text = "" Then
.ColorIndex = 3
.Pattern = xlSolid
End If
If c.Text = "M" Then
.ColorIndex = 22
.Pattern = xlSolid
ElseIf c.Text = "" Then
.ColorIndex = 2
.Pattern = xlSolid
End If
If c.Text = "AT" Then
.ColorIndex = 43
.Pattern = xlSolid
ElseIf c.Text = "" Then
.ColorIndex = 2
.Pattern = xlSolid
End If
ActiveSheet.Protect

End With
Next
End If

End Sub

 

[MILO22]

Re : Enlever protection dans une macro

Salut balouw, et toi le forum,

normalement et si j'ai bien compris t ademande, il suffit de supprimer la ligne "ActiveSheet.Protect" en bas du code

@+

MILO22

 

[jeanpierre]

Re : Enlever protection dans une macro

Bonsoir balouw, MILO22,

Je dirais plutôt, déplace ActiveSheet.Protect juste avant le End Sub, tel que :

End If
ActiveSheet.Protect
End Sub

Bonne soirée.

Jean-Pierre

 

[WDAndCo]

Re : Enlever protection dans une macro

Salut balouw, et toi le forum,

normalement et si j'ai bien compris t ademande, il suffit de supprimer la ligne "ActiveSheet.Protect" en bas du code

@+

MILO22

Bonsoir le Forum

Le plus simple est de mettre une ' devant
il y a : ActiveSheet.Protect
il faut : ' ActiveSheet.Protect

Amicalement
Dominique