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

tchi456 · 10 Novembre 2021

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

GALOUGALOU · 10 Novembre 2021

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

VB:

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

Compte Supprimé 979 · 10 Novembre 2021

Bonjour tchi456

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

VB:

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 · 10 Novembre 2021

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

VB:

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 · 11 Novembre 2021

Bonjour BrunoM45 et GALOUGALOU,

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

Bonne journée à vous deux et meilleures salutations.

Thierry

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

tchi456

XLDnaute Occasionnel

GALOUGALOU

Compte Supprimé 979

Guest

GALOUGALOU

XLDnaute Accro

tchi456

XLDnaute Occasionnel

Discussions similaires