Protection feuille VBA sauf userform

Protection feuille VBA sauf userform - VB/VBA/VBS - Programmation

Marsh Posté le 10-06-2014 à 15:49:26    

Bonjour à tous,
 
Afin de protéger mes les feuilles d'un fichier j'utilise le code suivant qui laisse accessible la modification via un userform qui a été créé pour l'encodage:
 
Private Sub Workbook_Open()  
Worksheets("blabla" ).Protect Password:="galopin", UserInterfaceOnly:=True  
End Sub  
 
Mais la base de données (qui se rempli avec le userform) doit être triée via des filtres, est-il possible d'adapter ce code pour laisser actif les filtres?
 
Merci à vous,

Reply

Marsh Posté le 10-06-2014 à 15:49:26   

Reply

Marsh Posté le 20-07-2014 à 06:00:25    

Bonjour,
Hum... Tri et Filtre ce n'est pas la même chose...
 
Pour autoriser le filtre :

Code :
  1. Private Sub Workbook_Open() 
  2. Worksheets("blabla" ).Protect Password:="galopin", UserInterfaceOnly:=True, AllowFiltering:=True 
  3. End Sub


Pour autoriser le tri :

Code :
  1. Private Sub Workbook_Open() 
  2. Worksheets("blabla" ).Protect Password:="galopin", UserInterfaceOnly:=True, AllowSorting:=True 
  3. End Sub


Pour autoriser les 2 :

Code :
  1. Private Sub Workbook_Open() 
  2. Worksheets("blabla" ).Protect Password:="galopin", UserInterfaceOnly:=True, AllowSorting:=True, AllowFiltering:=True   
  3. End Sub


A+

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed