Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Excel verrouillage / déverrouillage dans macro

Aucune réponse
Avatar
haddocks
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

Réponses