Limitation fonctionnement macro

[Gil_Se]

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

 

[Si...]

Re : Limitation fonctionnement macro

salut

à tester

Private Sub BtnSupLigneVoitEntre_Click()
  If ActiveCell.Row < 6 Then
    MsgBox "vous ne pouvez pas supprimer cette ligne", vbCritical, "Action interdite"
  Else
    If MsgBox("Etes-vous sur de vouloir supprimer la ligne contenant " & ActiveCell.Value, vbYesNo, "Demande de confirmation") = vbNo Then Exit Sub
    ActiveSheet.Unprotect Password:="password"
    ActiveCell.EntireRow.Delete
    ActiveSheet.Protect "password"
    ActiveWorkbook.Save
  End If
End Sub

 

[frangy]

Re : Limitation fonctionnement macro

Bonjour,

Private Sub BtnSupLigneVoitEntre_Click()
    If ActiveCell.Row < 6 Then
        MsgBox "Vous ne pouvez pas supprimer cette ligne", vbCritical
    Else
        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 If
End Sub

Cordialement.

EDIT : Bonjour à tous ! y'a plus qu'à choisir entre bonnet blanc et bonnet blanc !

 

[VDAVID]

Re : Limitation fonctionnement macro

Bonjour Gil_Se,

Peut-être comme ceci:

Private Sub BtnSupLigneVoitEntre_Click()

If ActiveCell.Row <= 5 Then
MsgBox "Vous ne pouvez pas supprimer cette ligne", vbCritical
Exit Sub
End If
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

Bonne journée

EDIT : Bonjour tout le monde, à la bourre !

 

[Gil_Se]

Re : Limitation fonctionnement macro

Cela fonctionne à merveille.
Merci à tous.
Bonne fin de journée.

Gilles