Filtre + Masquer ligne avec protection feuille + macro
Bonjour,
Quand j'applique le code ci-dessous sur ma feuille protéger, cela permet de me fusionner des cellules mais le problème c'est que je ne peux plus effectuer le filtre automatique et masquer des lignes après avoir utiliser cette macro alors que lorsque j'avais protégé ma feuille j'avais coché filtre automatique et format de ligne.
Pourquoi ces "choix se décochent" en applicant ce code?
Merci pour vos réponse
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim Cel As Range
If Target.Count > 1 Then
For Each Cel In Target
If Cel.Locked Then
'Cellule verrouillée
'éventuellement mettre un message
Exit Sub
End If
Next
ActiveSheet.Unprotect "000l"
Target.Merge
ActiveSheet.Protect "000"
End If
End Sub
Bonjour,
Petit conseil ne fusionne pas des cellules. Si tu veux que ça paraisse fusionné ne met pas de bordures sur un coté, change l'alignement mais évites. Le VBA aime pas ça et créé des erreurs.
Merci pour le conseil,
pour autoriser le filtre après l'activation du mot de passe avec la macro j'ai ajouté ceci et ça marche : "AllowFiltering:=True"
ActiveSheet.Protect "000", AllowFiltering:=True
Par contre qu'est ce qui me permet d'accepter également le format de ligne?
Le format de ligne?
edit : pour les protections l'idéal à moin avis c'est ça
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCellsJe double post au cas ou tu vois pas mon edit :
Autoriser le filtre auto ET le format de ligne
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingRows:=True, AllowFiltering:=TrueOui quand je fais "protéger la feuille", je peux cocher "format de lignes" avant de mettre mon mot de passe.
Quand j'applique une macro en désactivant et activant le mot de passe le "format de lignes" n'est plus activé et me le vérouille automatiquement
bizarre moi ça me l'applique
Nickel ça marche!
Merci beaucoup