Macro dans une feuille protégée
Bonjour,
Je souhaiterais savoir si il y a une macro qui permet d'autoriser la suppression de ligne malgré la protection de la Feuille
Je m'explique: j'ai une feuille de saisie (un tableau) ou certaines colonnes sont protégées (celles ou il y a des formules). je souhaiterais néanmoins autoriser la suppression de ligne si nécessaire.
je veux que ma feuille se dévérouile seulement quand une ligne entière est selectionner. Autrement je veux qu'elle reste verrouiller et je souhaiterais que pouvoir activer cette macro seulement dans le cas ou la ligne entière est selectionné, dans la plage donnée
Merci
Je souhaiterais savoir si il y a une macro qui permet d'autoriser la suppression de ligne malgré la protection de la Feuille
Je m'explique: j'ai une feuille de saisie (un tableau) ou certaines colonnes sont protégées (celles ou il y a des formules). je souhaiterais néanmoins autoriser la suppression de ligne si nécessaire.
je veux que ma feuille se dévérouile seulement quand une ligne entière est selectionner. Autrement je veux qu'elle reste verrouiller et je souhaiterais que pouvoir activer cette macro seulement dans le cas ou la ligne entière est selectionné, dans la plage donnée
Merci
6 réponses
-
Je vous remercie tous pour l'aide apporter
Bonne soirée -
ContributeurBonjour à tous,
il suffit de compléter le code :Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count = Columns.Count And Target.Rows.Count = 1 Then If MsgBox("Supprimer la ligne ?", vbYesNo + vbQuestion) = vbYes Then ActiveSheet.Unprotect Password:="123" Target.EntireRow.Delete ActiveSheet.Protect Password:="123" End If End If End Sub
J'ai ajouté également une demande de confirmation.
Si tu veux sans mot de passe supprimer Password:="123"
eric
-
-
ContributeurRe,
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count = Columns.Count And Target.Rows.Count = 1 Then ActiveSheet.Unprotect Password:="123" If MsgBox("Voulez-vous supprimer la ligne ?", vbYesNo + vbQuestion) = vbYes Then Target.EntireRow.Delete ElseIf MsgBox("Voulez-vous insérer une ligne ?", vbYesNo + vbQuestion) = vbYes Then Target.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove End If ActiveSheet.Protect Password:="123" End If End Sub
eric
Edit : ou avec une seule boite de dialogue :Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim msg As String If Target.Count = Columns.Count And Target.Rows.Count = 1 Then ActiveSheet.Unprotect Password:="123" msg = "Voulez-vous :" & vbLf & vbLf msg = msg & "- insérer une ligne (Oui)," & vbLf msg = msg & "- supprimer la ligne (Non)," & vbLf msg = msg & "- annuler" Select Case MsgBox(msg, vbYesNoCancel + vbQuestion) Case vbYes Target.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Case vbNo Target.EntireRow.Delete End Select ActiveSheet.Protect Password:="123" End If End Sub -
-
-
-
-
Ca fonctionne néamoins une fois la suppression de la ligne sélectionnée faite l"ensemble des cellules restent dévérouillées et la feuille n'est plus protégée alors que je voudrais que la feuille entière reste protégée
Cordialement -
Bonjour fanny
Ta feuille est protégée avec un mot de passe?
Cordialement -
Bonjour Daniel,
Ca ne fonctionne pas, lorsque je sélectionne la ligne à supprimer j'ai un message me demandant d'ôter la protection de la feuille alors que je veux que celle-ci reste protégée
Cordialement -
Bonjour,
Essaie :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count = Columns.Count And Target.Rows.Count = 1 Then ActiveSheet.Unprotect End If End Sub
Cordialement.
Daniel
