Excel verrouillage / déverrouillage dans macro

Le
haddocks offline Hors ligne
Bonjour,
Actuellement dans un fichier excel, j'effectue un filtre par colonne en cochant une "e;case à cocher"e;.
mon problème, lorsque ma feuille n'est pas verrouillée avant le filtre, elle se retrouve verrouillé après le filtre.
Voici la macro: que dois je faire pour que la feuille reste verrouillée ou déverrouillée après le filtre?

Private Sub CheckBox1_Click()

If CheckBox1.Value = True Then
ActiveSheet.Unprotect ("e;system17"e;)
For x = 2 To 70
If Cells(7, x) = EECL Then
Columns(x).EntireColumn.Hidden = True

End If


Next x
ActiveSheet.Protect ("e;system17"e;)
End If

If CheckBox1.Value = False Then
Activement.Unprotect ("e;system17"e;)
For x = 2 To 70

Columns(x).EntireColumn.Hidden = False

Next x
ActiveSheet.Protect ("e;system17"e;)
End If
End Sub
  • Partager ce contenu :
Vos réponses
Poster une réponse
Anonyme