condition de protection d'une feuilleRésolu

Question

Bonjour, voilà j'ai un petit problème
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.

[i]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/i

Quelqu'un pourrait-il m'aider merci d'avance.

us_30 · Accepted Answer

Bonsoir,

Sub es()

With Worksheets("feuil1")
If (.ProtectContents Or .ProtectDrawingObjects Or .ProtectScenarios) Then
    MsgBox "La feuil1 est protégée", vbInformation
End If
End With

End Sub

Amicalement,
Us.

ben85player · Answer

merci beaucoup, oui avec protectcontents ça marche très bien.

us_30 · Answer

Bonsoir,

Les deux autres .ProtectMACHIN sont également utiles, même si le premier ".ProtectContents" est le plus utilisé... De plus, c'est la seule possibilité de tester si la protection d'une feuille est active...

Penses à mettre Réponse acceptée ! pour aider les futurs recherches...

Bon courage pour la suite...

Amicalement,
Us.

Condition de protection d'une feuille

3 réponses

Votre réponse

Discussions similaires