Protection feuille

[flo2002]

Bonjour

j'ai une protection sur une feuille qui fonctionne mais je voudrais ne pas avoir de message indicant comment la supprimer.

J'ai ceci


Private Sub Protection()

Application.DisplayAlerts = False

Sheets('xxx').EnableSelection = xlUnlockedCells
Sheets('xxx').Protect Contents:=True

End Sub


une meuilleur idée?

 

[Adeus33]

Bonjour flo

Je ne comprend pas ta question.

l'instruction suivante:

Application.DisplayAlerts = False

Doit normalement empecher les messages du style 'etes vous sur de vouloir supprimer...'

Bon courage

Adeus


Ps: n'oubli pas de réactiver le displayalerts a la fin de ton code

Application.DisplayAlerts = True