Discussion :

[pat91]

bonsoir,

je rencontre un problème déjà identifié et résolu , vous allez me dire, pourquoi y post le fou

bah tout simplement que j'ai trouvé chaussure à mon pied !!

je souhaite protéger une feuille contenant des filtres automatiques, dont certaines données sont verrouillées

voila une solution proposée par Tirex28

Bonsoir,

Ceci te permet d'utiliser directement les menus du filtre automatique dans une feuille protégée.

Code :

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

1
2
3
4
5
6
7
Private Sub Workbook_Open()
    With Worksheets("BDD")
        .Unprotect
        .EnableAutoFilter = True
        .Protect contents:=True, userinterfaceonly:=True
    End With
End Sub

Cordialement,

Tirex28/

j'ai dû rater un épisode !! car cela ne fonctionne pas

je poste mon fichier de test

Merci pour vos avis

[fring]

Bonjour,

Le code est mal placé, il doit être placé dans ThisWorkBook

[pat91]

Bonjour Fring,

j'ai placé mon code comme tu me le conseilles dans ThisWorkBook, mais cela ne fonctionne pas

je me forme sur le tas et sur le tard, mais c'est en forgeant qu'on devient forgeron et c'est en limant qu'on devient limeron, donc ne perdons pas courage

j'ai sur la base du fichier test joint mon fichier définitif qui possède une macro de création de ligne qui fonctionne correctement avec un bouton placé sur la ligne des titres et donc qui est inaccessible lorsque la feuille est protégée

[fring]

J'ai oublié un petit détail

Il y a un passager clandestin dans le code

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Workbook_Open()

End Sub <--- de trop
   With Worksheets("filtre auto")
     .Unprotect
     .EnableAutoFilter = True
     .Protect contents:=True, userinterfaceonly:=True
   End With
End Sub

[pat91]

Bonjour Fring,

Est-ce que le fichier fonctionne sur ton PC ?
car j'ai effectivement retiré l'End Sub clandestin et rien n'a changé !!

[fring]

arf...en effet la protection ne fonctionne que sur la dernière colonne du filtre, la colonne "N°"...

Là je vois pas comme ça...je vais cuisiner le fichier pour qu'il m'avoue tout

aaah il a vite lâcher le morceau le bougre
En fait dans ton fichier tu as uniquement verrouillé les cellules de la colonne N°

Donc :
- ôte la protection de la feuille (menu Outils / protection)
- sélectionne toutes les cellules du tableau
- dans le menu Format / Cellule / onglet Protection --> tu coches Verrouillée
- enregistre et ferme le fichier

A sa réouverture ça devrait le faire

[Qwazerty]

SAlut
Evidement que ça marche pas [Edit] <- J'aurais du être plus humble....[/Edit]

Il faut pas que tu crée

Code :

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

Private Sub Workbook_Open()

dans Feuil1 ... il faut utiliser ThisWorkBook_Open ! qui existe déjà dans le "fichier" ThisWorkBook (dans VBA en dessous de toutes les feuilles)

[Edit2] Je vais quand meem laissé l'image le temps que notre ami la vois, par ce qu'en relisant letopic, je suis pas si sur que ca est ete fait comme ca [/Edit2]

A++
Qwaz

[fring]

SAlut
Evidement que ça marche pas

Il faut pas que tu crais

Code :

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

Private Sub Workbook_Open()

dans Feuil1 ... il faut utiliser ThisWorkBook_Open ! qui existe déjà dans le "fichier" ThisWorkBook (dans VBA en dessous de toutes les feuilles)

A++
Qwaz

oui oui ça c'est fait (message n°2)

[Qwazerty]

autant pour moi ... ben voila une boulet avant d'aller au lit
[Edit]Quoique j'ai remis l'image, par ce que si on lit les messages suivants le n°2, vu qu'il n'a jamais eu de breack sur son erreur (le End Sub qui trainait) je pense que ça veux dire que le code ne s'exécutait pas au lancement Tant qu'a dire une connerie autant que j'aille jusqu'au bout ... mais je flaire quand même un truc :p[/Edit]
++
Bonne nuit
Qwaz

[fring]

Merci Qwaz, je me sens moins seul, j'en dit à longueur de journée des conneries moi

En fait le code s'executait bien à l'ouverture du classeur mais vu que...

Code :

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

1
2
3
Private Sub Workbook_Open()
il est plein de vide...
End Sub

il ne se passait rien

Au cas où...je joins le fichier qui fonctionne, le filtre est actif et les cellules du tableau sont bien verrouillées.

Pièce jointe 25913

[pat91]

Salut Qwaz , salut Fring

J'ai bien compris pour le code =>dans ThisWorkBook

certainement un copier coller avec doigt fourchu pour le End Sub <--- de trop

en fait le blocage provient uniquement de l'utilisation du nom du fichier With Worksheets("filtre auto") comme dans l'exemple de Tirex28 voir message N°1 au lieu de la feuille 1 With sheets(1) si vous pouvez m'apporter un éclaircissement pour ma maigre culture Excelistique

Message N° 6

aaah il a vite lâcher le morceau le bougre
En fait dans ton fichier tu as uniquement verrouillé les cellules de la colonne N°

Bahhh c'est ce que je cherche à faire
Message N° 1

je souhaite protéger une feuille contenant des filtres automatiques,
dont certaines données sont verrouillées

je t'en veux pas pour autant fring les longues veillées devant le rectangle bleu pour des tordus comme ma pomme, à la longue on a droit à des passages à vide, pas vrai Qwaz

sinon, le fichier modifier (cellules de données N° uniquement verrouillées) fonctionne

Salut et merci

[Qwazerty]

SAlut
Attention je crois bien que tu mélange WorkBook et Worksheet.

WorkBook: c'est ton fichier excel, celui ci peut être appeler par

Code :

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

Workbooks("filtre auto.xls")

Dans tous les fichier ouvert on sélectionne 'Filtre auto.xls'

WorkSheet: ça représente tes onglet, on peut dire sheet aussi c'est pareil, on appel donc un onglet.

Code :

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

1
2
3
4
5
'Soit par son nom
worksheets("Feuil1")...
 
'Soit par sa position dans le classeur
WorkSheets(1)... 'fait référence au 1er onglet a gauche

Voila je pense que c'est complet

a++
Qwaz

[pat91]

Salut Qwaz,

je ne suis pas du tout anglophone

mais je me soigne, je suis dans les tutoriaux pour améliorer toutes ces lacunes

je vous remercie encore pour vos remarques constructives

je clôture là cette discution