XL 2010 Bouton supprimer ligne(s) sur feuille verrouillée

[tchi456]

Bonjour,

Je souhaite créer un bouton pour pouvoir supprimer la(les) ligne(s) de la(des) cellule(s) sélectionnée(s) avec un message de sécurité "Etes-vous certain de vouloir supprimer cette(ces) ligne(s)? OUI/NON". Je précise que la feuille est verrouillée par un mot de passe.

Avez-vous une astuce qui pourrait m'aider?

Mes meilleures salutations,

Thierry

 

[Compte Supprimé 979]

Bonjour tchi456

Si ta feuille est protégée par le mot de passe "toto"

Sub SupLigne()
  With ActiveSheet
    .Unprotect Password:="toto"
    .Rows(Selection.Row).Delete Shift:=xlUp
    .Protect Password:="toto", DrawingObjects:=True, Contents:=True, Scenarios:=True
  End With
End Sub

A+

 

[GALOUGALOU]

re tchi456 bonsoir le forum
une solution ou MDP doit etre remplacé par votre mot de passe

Sub test()
ActiveSheet.Unprotect ("MDP")
If MsgBox("Etes-vous certain de vouloir supprimer cette(ces) ligne(s)? ", vbYesNo) = vbYes Then
 Selection.EntireRow.Delete
End If
ActiveSheet.Protect ("MDP")
End Sub

cdt
galougalou

 

[tchi456]

Bonjour BrunoM45 et GALOUGALOU,

Merci beaucoup pour votre aide.
GALOUGALOU: votre code fonctionne à merveille.

Bonne journée à vous deux et meilleures salutations.

Thierry