[VBA-E] protection de feuilles
Bonjour,
J'ai une application Excel dont les feuilles sont remplies par des formulaires.
Afin que l'utilisateur lambda ne puisse modifier les feuilles excel et ainsi intéragir de façon erronée avec les UserForm je les protège au chargement du WorkBook de la façon suivante:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13
| Public Sub verrouilleSheets()
' on verrouille toutes les feuilles excel
' Exception faite pour les feuilles de paramètre et de Sommaire
For Each feuille In Sheets
If feuille.Name <> "Paramètre" And feuille.Name <> "SOMMAIRE" Then
feuille.Visible = True
feuille.Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
UserInterfaceOnly:=True, AllowSorting:=True, AllowFiltering:=True
feuille.Visible = False
End If
Next feuille
End Sub |
cela marche pour toutes les feuilles...
sauf pour certains range dans une colonne.
J'avoue ne plus rien y comprendre.
Merci d'avance pour votre aide.