Discussion :

[Philippe608]

Bonsoir,

A l'aide de l'enregistreur j'ai créé une macro, le problème est que ma feuille est protégée avec un mot de passe "tintin" et avec autorisation pour l'utilisateur d'insérer des lignes d'en supprimer, d'utiliser le filtre et également le filtre automatique.

Comment modifier cette macro pour qu'elle déprotège le temps de réaliser l'action puis reprotèger de nouveau une fois cette action terminée ?

Code :

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

1
2
3
4
5
6
7
8
9
Sub Insert()
    Rows("5:5").Select
    Selection.Copy
    Rows("5:5").Select
    Selection.Insert Shift:=xlDown
    Range("A5").Select
    Application.CutCopyMode = False
 
   End Sub

Merci pour votre aide
Philippe

[Philippe Tulliez]

Bonjour,
Avant tout, il faut éviter d'utiliser les Select

Code :

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

1
2
3
4
5
6
7
Sub Insert()
 With Rows(5)    ' ou  With Rows("5:5")
 .Copy
 .Insert Shift:=xlDown
 End With
 Application.CutCopyMode = False
End Sub

Avec le Protect/Unprotect

Code :

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

1
2
3
4
5
6
7
8
9
Sub Insert()
 Worksheets("db").Unprotect "toto"
 With Rows(5)
 .Copy
 .Insert Shift:=xlDown
 End With
 Application.CutCopyMode = False
 Worksheets("db").Protect "toto"
End Sub

Une autre solution est de protéger la feuille avec l'argument UserInterfaceOnly à True

Code :

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

 Worksheets("db").Protect Password:="toto", UserInterfaceOnly:=True

A ce moment là, la feuille est protégée pour l'utilisateur mais pas pour le code VBA.

[Philippe608]

Merci Corona, ça fonctionne sauf que je ne peux pas utiliser les filtres de listes.

J'ai mis cette ligne

Code :

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

Worksheets("db").Protect Password:="toto", UserInterfaceOnly:=True

Mais ça ne va pas.

Bonne journée.

[Philippe608]

J'ai peut être trouvé:

Code :

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

Worksheets("db").Protect Password:="tintin", AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True

Pour les filtres ça fonctionne par contre impossible de supprimer des lignes avec :

Code :

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

 AllowDeletingRows:=True

Il n'y a pas comme dans Access une solution pour écrire un code du genre avant suppression ?

Encore merci.

[Philippe Tulliez]

Bonjour,
A placer dans une des procédure événementielles
Workbook_Open(), Worksheet_Activate(), ou Workbook_SheetActivate(ByVal Sh As Object)
Exemple

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Activate()
 With Worksheets("db")
 .EnableAutoFilter = True
 .Protect Contents:=True, UserInterfaceOnly:=True
 End With
End Sub

Ensuite tu peux activer le filtre par exemple par

Code :

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

1
2
3
4
Sub Filtre()
   ActiveSheet.Range("$A$1:$J$106").AutoFilter Field:=6, Criteria1:="F"
   ActiveSheet.Range("$A$1:$J$106").AutoFilter Field:=8, Criteria1:="3"
End Sub

Tu peux bien entendu remplacer ActiveSheet par le nom de la feuille

[EDIT]

Pour les filtres ça fonctionne par contre impossible de supprimer des lignes avec :

Code :

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

 AllowDeletingRows:=True

Je viens d'ajouter une ligne de suppression et cela fonctionne

Code :

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

1
2
3
4
5
Sub Filtre()
 Rows(4).Delete
 ActiveSheet.Range("$A$1:$J$106").AutoFilter Field:=6, Criteria1:="F"
 ActiveSheet.Range("$A$1:$J$106").AutoFilter Field:=8, Criteria1:="3"
End Sub

[Philippe608]

Corona, j'ai bien suivi la procédure mais lorsque je sélectionne une ou plusieurs lignes impossible de les supprimer, tu veux bien m'envoyer un classeur comme exemple ?

Merci.

[Philippe Tulliez]

Bonjour,

Voilà un fichier exemple contenant trois boutons sur la feuille [db] qui est protégée dès l'ouverture du classeur ou éventuellement à l'activation de la dite feuille.
Trois boutons
1) Permet de filtrer selon deux critères la table de données contenue dans cette feuille qui est donc protégée.
2) Enlève le filtre et ensuite supprime une ligne sur deux.
3) Permet de restaurer les données d'origine
J'ai testé mais comme c'est rapidement développé il est possible qu'il reste un bug.

[Philippe608]

Merci beaucoup,

Bonne soirée

@+