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:
cela marche pour toutes les feuilles...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
sauf pour certains range dans une colonne.
J'avoue ne plus rien y comprendre.
Merci d'avance pour votre aide.
Partager