L'orsque j'active les macros les filtres automatique se désactiv
Gopalkri1
-
m@rina Messages postés 23882 Date d'inscription Statut Contributeur Dernière intervention -
m@rina Messages postés 23882 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Pouvez vous m'aider s'il vous plait, j'ai un fichier excel avec du code et lorsque j'active les macros les filtres automatiques se désactives?
Dans mon onglet je fais protéger la feuille et je coche "utiliser le filtre automatique" ... j'enregistre et lorsque j'ouvre à nouveau mon fichier et que j'active les macro je n'ai pas accès au filtre automatique...
Merci de votre aide
Pouvez vous m'aider s'il vous plait, j'ai un fichier excel avec du code et lorsque j'active les macros les filtres automatiques se désactives?
Dans mon onglet je fais protéger la feuille et je coche "utiliser le filtre automatique" ... j'enregistre et lorsque j'ouvre à nouveau mon fichier et que j'active les macro je n'ai pas accès au filtre automatique...
Merci de votre aide
A voir également:
- L'orsque j'active les macros les filtres automatique se désactiv
- Réponse automatique thunderbird - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Logiciel de sauvegarde automatique gratuit - Guide
- Réponse automatique gmail - Guide
- Sommaire automatique word - Guide
3 réponses
Bonjour Gopalkri1
Je suis un peu étonnée par ta macro, car le fait de verrouiller une plage de cellule
Pour empêcher la saisie, il faut protéger la feuille.
Il faut mettre le code suivant protéger la feuille :
AllowFiltering autorise l'utilisation des filtres
Pour déprotéger :
Tu peux bien entendu ajouter un mot de passe
m@rina
Je suis un peu étonnée par ta macro, car le fait de verrouiller une plage de cellule
(Range("...").Locked = True n'empêche pas la saisie.
Pour empêcher la saisie, il faut protéger la feuille.
Il faut mettre le code suivant protéger la feuille :
Range("...").Locked = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True
AllowFiltering autorise l'utilisation des filtres
Pour déprotéger :
ActiveSheet.Unprotect
Range("...").Locked = False
Tu peux bien entendu ajouter un mot de passe
m@rina
Bonjour,
Et ta macro, elle fait quoi ?
C'est toi qui l'as créée ?
m@rina
Et ta macro, elle fait quoi ?
C'est toi qui l'as créée ?
m@rina
Bonjour M@rina mon programme bloque en écriture une ligne lorsque deux cellule de cette ligne est remplie.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C4:C60020")) Is Nothing Then Range("A1").Select
If Not Intersect(Target, Range("E4:M60020")) Is Nothing Then Range("A1").Select
'If Not Intersect(Target, Range("AX4:BD60020")) Is Nothing Then Range("A1").Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
'deverrouiller et modifier les cellules
If Not Application.Intersect(Target, Range("BM4:BM6000,BN4:BN6000")) Is Nothing Then
lig = Target.Row
If Range("BM" & lig) <> "" And Range("BN" & lig) <> "" Then
'repondre au message
retval = MsgBox("Archiver la ligne", vbYesNo, "VALIDATION SAISIE")
' si oui verrouiller cellules
If retval = vbYes Then
Range("BQ" & lig & ":CW" & lig).Interior.Color = vbRed
Range("BQ" & lig & ":CW" & lig).Locked = True
Else
End If
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C4:C60020")) Is Nothing Then Range("A1").Select
If Not Intersect(Target, Range("E4:M60020")) Is Nothing Then Range("A1").Select
'If Not Intersect(Target, Range("AX4:BD60020")) Is Nothing Then Range("A1").Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
'deverrouiller et modifier les cellules
If Not Application.Intersect(Target, Range("BM4:BM6000,BN4:BN6000")) Is Nothing Then
lig = Target.Row
If Range("BM" & lig) <> "" And Range("BN" & lig) <> "" Then
'repondre au message
retval = MsgBox("Archiver la ligne", vbYesNo, "VALIDATION SAISIE")
' si oui verrouiller cellules
If retval = vbYes Then
Range("BQ" & lig & ":CW" & lig).Interior.Color = vbRed
Range("BQ" & lig & ":CW" & lig).Locked = True
Else
End If
End If
End If
End Sub
