Discussion :

[kgboris]

Bonjour à tous,

Je cherche à
- protéger une feuille excel (OK)
- autoriser les filtres automatiques (OK)
- autoriser la fonction "afficher tout" dans le menu (le problème à résoudre)

je débute sous VB et Excel mais en cherchant sur Internet voici ce que j'ai concocté à l'ouverture de mon document :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Workbook_Open()
'déprotéger  + enlève les filtres qui auraient pû être posés + reprotège
If Worksheets("Feuil1").ProtectContents Then Worksheets("Feuil1").Unprotect
If Worksheets("Feuil1").FilterMode = True Then Worksheets("Feuil1").ShowAllData
Worksheets("Feuil1").Protect
 
'autorise les filtres automatiques
ActiveSheet.EnableAutoFilter = True
'active la protection de la feuille
'sans l'option au-dessus,avec excel 2000, cela bloque les filtres auto
ActiveSheet.Protect Contents:=True, UserInterfaceOnly:=True
 
'réinitialise les cellules vides
ActiveSheet.UsedRange
'se positionne sur la première cellule vide (si "composants" vide)
Cells(ActiveSheet.Cells(4, 1).End(xlDown).Row + 1, 1).Select
End Sub

Donc cela réinitialise les filtres en place mais je ne peux toujours pas pendant ma session utiliser la fonction "afficher tout" du menu données/Filtre

Merci pour votre aide

[fgiambelluco]

Bonjour

Peut être une petite astuce pour contourner le problème :
Tu créés un bouton (barre d'outils formulaire) sur ta feuille et tu lui associes le code correspondant à Afficher Tout : ActiveSheet.ShowAllData.

Et voila, l'option du menu n'est pas disponible, mais le bouton fonctionne

[kgboris]

Encore une nouvelle façon de contourner.

Je viens de le rajouter dans mon doc directement et cela fonctionne pas mal même si cela sort les gens de leurs habitudes (utilisation des menus).

Code :

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

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
'creer un bouton sous excel
If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData
    'réinitialise les cellules vides
ActiveSheet.UsedRange
    'se positionne sur la première cellule vide (si "composants" vide)
Cells(ActiveSheet.Cells(4, 1).End(xlDown).Row + 1, 1).Select
End Sub