L'utilisation de UserInterfaceOnly ne permet pas l'execution de macro filtre [Résolu]

[marama12]

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 :

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]

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

Code :

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]

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]

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]

Voici le type de macro qui me pose probleme

Code :

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]

C'est quoi EMBB et EMEE?

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

[marama12]

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]

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 :

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]

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]

Compresse le et mets le en PJ

[marama12]

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

J'ai essaye ce code:

Code :

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]

1.

Code :

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 :

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 :

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

[marama12]

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]

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

Code :

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 :

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 :

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]

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

[mercatog]

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 :

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 :

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

PS2: N'oublie pas de mettre en haut de chaque module

Code :

Option Explicit

pour imposer la déclaration de toutes les variables.

PS3: Plus clair que ça, je ne vois pas comment expliquer!

[marama12]

Merci beaucoup maintenant ca marche.

Je pense que ce qyui fesait tout foire c'etait le fait que je n'avais pas deprotege toutes les feuilles.