Bonjour à tous.
Ci-dessous une macro qui fonctionne bien liée à un bouton de commande. Dès qu'on clique sur ce bouton, la ligne de la cellule active est supprimée. Toutefois, je souhaite que cette macro ne fonctionne pas pour les 5 premières lignes, avec un MSGBOX du style: "Vous ne pouvez pas supprimée cette ligne" et suite à ce message la macro se ferme.
J'espère avoir été clair.
Merci d'avance.
Gilles
Private Sub BtnSupLigneVoitEntre_Click()
If MsgBox("Etes-vous sur de vouloir supprimer la ligne contenant " & ActiveCell.Value, vbYesNo, "Demande de confirmation") = vbYes Then
ActiveSheet.Unprotect Password:="password"
ActiveCell.EntireRow.Delete
ActiveSheet.Protect "password"
ActiveWorkbook.Save
End If
End Sub
Ci-dessous une macro qui fonctionne bien liée à un bouton de commande. Dès qu'on clique sur ce bouton, la ligne de la cellule active est supprimée. Toutefois, je souhaite que cette macro ne fonctionne pas pour les 5 premières lignes, avec un MSGBOX du style: "Vous ne pouvez pas supprimée cette ligne" et suite à ce message la macro se ferme.
J'espère avoir été clair.
Merci d'avance.
Gilles
Private Sub BtnSupLigneVoitEntre_Click()
If MsgBox("Etes-vous sur de vouloir supprimer la ligne contenant " & ActiveCell.Value, vbYesNo, "Demande de confirmation") = vbYes Then
ActiveSheet.Unprotect Password:="password"
ActiveCell.EntireRow.Delete
ActiveSheet.Protect "password"
ActiveWorkbook.Save
End If
End Sub