Ne pas supprimer les lignes de 1 à 48

[isa44]

Bonjour à tous par ce temps pluvieux.

Voilà , j'ai une macro qui me permet de supprimer la ligne dont une cellule est sélectionnée.

Je voudrais qu'elle ne puisse agir sur les lignes de 1 à 48.
Et que si cette macro est activée sur ces lignes de 1 à 48 qu'un message informe qu'il n'est pas autorisé de supprimer ces lignes mais seulement d'effacer le contenu des cellule non protégées avec la touche SUPP.

Sub Macro1() ' Supprimer ligne de archives
Sheets("Archive").Unprotect
If MsgBox("Voulez vous supprimer cette saisie ?", vbQuestion + vbYesNo, "") = vbNo Then Exit Sub

Dim ligne As Long
ligne = ActiveCell.Row
Range("A" & ligne & ":Z" & ligne).Delete



ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True
    ActiveSheet.EnableSelection = xlUnlockedCells
End Sub

Je vous remercie pour votre implication à ma demande

 

[ninbihan]

Re : Ne pas supprimer les lignes de 1 à 48

Bonsoir Isa44

Avec ceci, cela devrait coller:

Sub Macro1() ' Supprimer ligne de archives
if ActiveCell.Row<49 then
Msgbox ("il n'est pas autorisé de supprimer ces lignes")
exit sub
end if
Sheets("Archive").Unprotect
If MsgBox("Voulez vous supprimer cette saisie ?", vbQuestion + vbYesNo, "") = vbNo Then Exit Sub

Dim ligne As Long
ligne = ActiveCell.Row
Range("A" & ligne & ":Z" & ligne).Delete



ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True
    ActiveSheet.EnableSelection = xlUnlockedCells
End Sub

Bonne soirée,

Ninbihan

 

[isa44]

Re : Ne pas supprimer les lignes de 1 à 48

Merci pour votre aide : celà fonctionne très bien