Condition avec feuille protégée

Résolu
benplayer85 -  
 benplayer85 -
Bonjour, voilà j'ai un petit problème sous vba (excel)
Je voudrais faire une condition du type si la feuille est protégée alors tu me mets un msg, sinon tu execute le programme mais je pense que la syntaxe n'est pas bonne.

If Sheets("Feuil1").Protect = True Then

MsgBox ("enlever la protection pour insérer une ligne")

Else

Application.ScreenUpdating = False

ActiveCell.EntireRow.Insert
Rows(ActiveCell.Row + 1).Copy Rows(ActiveCell.Row)
On Error Resume Next
Rows(ActiveCell.Row).SpecialCells(xlCellTypeConstants, 23).ClearContents

Application.ScreenUpdating = True

End If

Quelqu'un pourrait-il m'aider merci d'avance.
A voir également:

2 réponses

michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour

1/ProTect est une méthode et non une propriété; Il faut utiliser la propriété protectcontents
Z/ pasde parenthèse au Msg box si tu ne gère pas la réponse

If Sheets("Feuil1").ProtectContents = True Then
   MsgBox "enlever la protection pour insérer une ligne"
else

0
benplayer85
 
merci michel_m, ça faisait un moment que je cherchais sur les forum.
ça marche nickel
0