L'utilisation de UserInterfaceOnly ne permet pas l'execution de macro filtre

**marama12** · 11/11/2011, 10h59

Bonjour a Tous,

Je suis debutant avec VBA. Mon probleme est le suivant:

J'ai des boutons lies a des macro qui permetent de filtrer verticalement et horizontalement certain ranges sur ma feuille excel. En protegeant ma feuille et meme en utilisant le code que j'ai trouve sur tout les forums

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Activesheet.protect UserInterfaceOnly:=True

Mes macro ne marchent pas et j'ai un msg d'erreur disant:

Unable to set the hidden property of the range class

Pour plus de clarte en PJ un fichier simplifie pour ceux qui voudront m'aider a resoudre ce casse tete

Merci d'avance

**mercatog** · 11/11/2011, 11h07

Regarde tous les paramètres de la méthode Protect

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    Worksheets("Feuil1").Protect UserInterfaceOnly:=True, DrawingObjects:=True, _
        Contents:=True, Scenarios:=True, AllowFormattingCells:=True, _
        AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowSorting:=True, _
        AllowFiltering:=True

Edit:
La protection n'est pas appliquée si les changements se font par code

**marama12** · 11/11/2011, 11h12

Peux tu stp m'indiquer comment deproteger avant chaque code et ou dois-je placer le tou d'un module ou bien dans Worksheets or Workbook?

Merci

**mercatog** · 11/11/2011, 11h17

J'ai édité mon post, j'avais dis une bétise.
par contre Userinterfaceonly=true protège seulement les modifications opérées par l'utilisateur (et pas par macro)

Poste ici l'une de tes macro qui pose problème.

**marama12** · 11/11/2011, 11h21

Voici le type de macro qui me pose probleme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub EM2()
Range("EMBB:EMEE").EntireRow.Hidden = False
Range("CVMBB:cvmee").EntireRow.Hidden = True
Range("IHCBB:RESPEE").EntireRow.Hidden = True
End Sub

cette macro permet d'afficher uniquement un certain nombre de lignes et en cache d'autres

**mercatog** · 11/11/2011, 11h23

C'est quoi EMBB et EMEE?

La procédure fonctionne si tu enlève la protection de la feuille?

**marama12** · 11/11/2011, 11h28

ce sont des references que je donne a mes cellules pour definir le range et pour que quand il y a ajout de cellules le bouton associe a cette macro fonctionne tjrs.

Quand j enleve la protection tout fonctionne

**mercatog** · 11/11/2011, 11h33

Bon j'ai testé ceci sans problème (j'ai ajouté la feuille à laquelle se rapporte la protection et les plages)
J'ai nommé 2 cellules EMBB et EMEE dans Feuil1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub EM2()
 
With ThisWorkbook.Worksheets("Feuil1")           'à adapter
    .Protect UserInterfaceOnly:=True
    .Range("EMBB:EMEE").EntireRow.Hidden = False
End With
End Sub

Bien sûr, pour ton cas, tu peux protéger la feuille Feuil1 une seule fois et non dans chaque procédure.

**marama12** · 11/11/2011, 11h40

Désolé mais ça ne marche pas.

J'ai essaye de joindre un fichier simplifié mais je ne vois pas apparaître.

Est ce quelqu'un peut m'indiquer comment l'ajouter.

**mercatog** · 11/11/2011, 11h54

Compresse le et mets le en PJ

**marama12** · 11/11/2011, 12h58

voila la PJ (le mot de passe c'est: Secret)

J'ai essaye ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub PRO()
With ThisWorkbook.Worksheets("name of the worksheet")
    .protect UserInterFaceOnly:=True
    .Call "macro1" = False
End With
End Sub
 
Sub PROTECT1()
 
End Sub

Quand je l'active apartir de l'editeur vba il marche et le macro fonctionnent mais si je clique sur unprotect sheet la feuille et deverouille et en verouillant a nouveau les macro ne fonctionnent plus. la meme chose se produit quand je ferme le fichier et je le re-ouvre

Si quelqu'un a une idee c'est le moment de la partager.

Merci d'avance

**mercatog** · 11/11/2011, 13h04

1.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Workbook_Open()
Dim wSheet As Worksheet
 
For Each wSheet In Worksheets
    wSheet.Protect Password:="Secret", UserInterFaceOnly:=True
Next wSheet
End Sub

2.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub EM1()
 
With ThisWorkbook.Worksheets("test")
    .Range("EMB:EME").EntireRow.Hidden = False
    .Range("CVMB:CVME").EntireRow.Hidden = True
    .Range("IHCB:RESPE1").EntireRow.Hidden = True
End With
End Sub

Les autres aussi

Edit
3. A revoir ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

**marama12** · 11/11/2011, 14h52

Merci mercatog, MAIS CA NE MARCHES PAS, je pense que je vais abondonne tous les forum sur les quels j'ai poste ce sujet n'ont pas de solution.

**mercatog** · 11/11/2011, 15h07

En début de chacun de tes modules (notamment celui ThisWorkbook) mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Option Explicit

Et ce afin que tu sois obligé de définir toutes tes variables

Tu verras que tu as mis dans une ligne à part

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UserInterFaceOnly=True

qui veut dire que tu as une variables nommée UserInterFaceOnly à qui tu affecte True.

Alors que si tu fais un F1 sur Protect, tu sauras qu'elle a plusieurs paramètres (dont UserInterFaceOnly)

Pour affecter une valeur à un paramètre d'une méthode, on utilise :=

D'où, il fallait mettre dans le code ThisWorkbook ce code (d'enregistrer le fichier, le fermer et le ré ouvrir)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Workbook_Open()
Dim wSheet As Worksheet
 
For Each wSheet In Worksheets
    wSheet.Protect Password:="Secret", UserInterFaceOnly:=True
Next wSheet
End Sub

**marama12** · 11/11/2011, 15h41

J'ai suivi ce que tu m'as recommande et ca ne marche tjrs pas j'ai ces msgs:

**mercatog** · 11/11/2011, 15h54

Bon, je ne sais pas ce que tu veux faire.
J'ai testé ton fichier suivant ces étapes:

1. J'ai ôté manuellement la protection de la feuille (ou de toutes les feuilles).

Toutes les feuilles sont donc déprotégées.

2. J'ai remplacé le code dans ThisWorkbook par celui-ci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Workbook_Open()
Dim wSheet As Worksheet
 
For Each wSheet In Worksheets
    wSheet.Protect Password:="Secret", UserInterFaceOnly:=True
Next wSheet
End Sub

ps: ce code peut être simplifié si tu n'as qu'une seule feuille

3. J'ai enregistré le fichier

4. J'ai fermé le fichier

5. J'ai ouvert le fichier

Toutes les feuilles sont protégées par le mdp Secret suite à l'exécution du code Wokbook_Open

6. Les macros fonctionnent sans problème.

PS: une remarque qui na pas de lien direct avec ton problème est d'écrire toutes tes procédures comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub EM1()
 
With ThisWorkbook.Worksheets("test")
    .Range("EMB:EME").EntireRow.Hidden = False
    .Range("CVMB:CVME").EntireRow.Hidden = True
    .Range("IHCB:RESPE1").EntireRow.Hidden = True
End With
End Sub