Macro bloquée par protection feuille
Viking58
Messages postés
186
Date d'inscription
Statut
Membre
Dernière intervention
-
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour à toutes et tous.
Après m'être aperçu que mes macros "plantaient" une fois ma feuille protégée, j'ai trouvé ce petit code qui fonctionne impeccable...
Private Sub Workbook_Open()
With Worksheets("NomDeLaFeuille")
.Protect "MotDePasse", DrawingObjects:=True, _
Contents:=True, Scenarios:=True, _
UserInterfaceOnly:=True
End With
End Sub
MAIS: J'ai un bouton d'insertion de ligne. Depuis l'ajout du code ci-dessus, je ne peux plus supprimer les lignes insérées.
Pourquoi ?
Merci
Après m'être aperçu que mes macros "plantaient" une fois ma feuille protégée, j'ai trouvé ce petit code qui fonctionne impeccable...
Private Sub Workbook_Open()
With Worksheets("NomDeLaFeuille")
.Protect "MotDePasse", DrawingObjects:=True, _
Contents:=True, Scenarios:=True, _
UserInterfaceOnly:=True
End With
End Sub
MAIS: J'ai un bouton d'insertion de ligne. Depuis l'ajout du code ci-dessus, je ne peux plus supprimer les lignes insérées.
Pourquoi ?
Merci
A voir également:
- Protéger une feuille excel avec macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Proteger cellule excel - Guide
- Liste déroulante excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Déplacer une colonne excel - Guide
5 réponses
Bonjour
Avec cette ligne pour enlever la protection
ActiveSheet.Unprotect Password:="MOT_DE_PASSE"
Et celle-ci pour remettre la protection
ActiveSheet.Protect "MOT DE PASSE"
cela devrait suffire
Avec cette ligne pour enlever la protection
ActiveSheet.Unprotect Password:="MOT_DE_PASSE"
Et celle-ci pour remettre la protection
ActiveSheet.Protect "MOT DE PASSE"
cela devrait suffire
Merci PHILOU10120.
Non. Ce code plante. Une fois lancé, il envoi un message d'erreur quand je veux exécuter une macro.
Mais ce n'est pas grave. En cas de nécessité, j'ôterai la protection, et j'effacerai la ou les lignes voulues.
Bonne fin de journée.
Non. Ce code plante. Une fois lancé, il envoi un message d'erreur quand je veux exécuter une macro.
Mais ce n'est pas grave. En cas de nécessité, j'ôterai la protection, et j'effacerai la ou les lignes voulues.
Bonne fin de journée.
Merci PHILOU10120.
Ma feuille est bien protégée. Comme mes macros plantaient, ce code a été ajouté au lancement de la feuille pour éviter ce plantage:
Private Sub Workbook_Open()
With Worksheets("Feuil1")
.Protect "xxxxxx", DrawingObjects:=True, _
Contents:=True, Scenarios:=True, _
UserInterfaceOnly:=True
End With
End Sub
Plus de message d'erreur. Mes macros tournent au poil...
Le seul petit soucis est que depuis l'ajout de cette macro,si j'insère par erreur une ligne à l'aide du bouton "Insérer Ligne" que j'ai créé, je ne peux plus la supprimer, (commande grisée). Je suis obligé d'ouvrir "Révision" et d'ôter la protection de ma feuille, et là, je peux de nouveau supprimer les lignes insérées par erreur.
Voilà. J'espère que mon explication est claire. Ce n'est rien de bien gênant, plutôt de la curiosité.
Bonne soirée
Ma feuille est bien protégée. Comme mes macros plantaient, ce code a été ajouté au lancement de la feuille pour éviter ce plantage:
Private Sub Workbook_Open()
With Worksheets("Feuil1")
.Protect "xxxxxx", DrawingObjects:=True, _
Contents:=True, Scenarios:=True, _
UserInterfaceOnly:=True
End With
End Sub
Plus de message d'erreur. Mes macros tournent au poil...
Le seul petit soucis est que depuis l'ajout de cette macro,si j'insère par erreur une ligne à l'aide du bouton "Insérer Ligne" que j'ai créé, je ne peux plus la supprimer, (commande grisée). Je suis obligé d'ouvrir "Révision" et d'ôter la protection de ma feuille, et là, je peux de nouveau supprimer les lignes insérées par erreur.
Voilà. J'espère que mon explication est claire. Ce n'est rien de bien gênant, plutôt de la curiosité.
Bonne soirée
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Merci eriiic.
Nos messages se sont croisés. J'ai essayé d'insérer votre ligne dans ma macro, à plusieurs endroits, j'ai des messages d'erreur.
Nos messages se sont croisés. J'ai essayé d'insérer votre ligne dans ma macro, à plusieurs endroits, j'ai des messages d'erreur.
Erreur, j'avais mis pour ajouter les lignes au lieu de supprimer. C'est :
Mais il ne faut pas de cellule verrouillée sur la ligne.
Si tu en as il faut demander à l'utilisateur quelles lignes supprimer. Par exemple sur le clic-droit, à mettre dans le module Feuil :
Il sélectionne ses lignes fait un clic-droit sur la sélection.
Au passage tu peux contrôler les lignes pour voir s'il a le droit de les supprimer.
eric
Sub protege()
Worksheets("Feuil1").Protect "MotDePasse", DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowDeletingRows:=True, UserInterfaceOnly:=True
End Sub
Mais il ne faut pas de cellule verrouillée sur la ligne.
Si tu en as il faut demander à l'utilisateur quelles lignes supprimer. Par exemple sur le clic-droit, à mettre dans le module Feuil :
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Columns.Count = Columns.Count Then
If MsgBox("Supprimer les lignes " & Target.Address, vbYesNo + vbQuestion) = vbYes Then
Cancel = True
Target.Locked = False
Target.EntireRow.Delete
End If
End If
End Sub
Il sélectionne ses lignes fait un clic-droit sur la sélection.
Au passage tu peux contrôler les lignes pour voir s'il a le droit de les supprimer.
eric