enlever la protection de cellules d'un feuille protégée

bonjour
Je suis débutant en VBA. Je souhaite alors qu'à l'ouvertutre j'ai protéger la feuille par code permettre aux utilisateurs d'acceder à certaines cellules. Je travaille avec VBA pour excel 2007 en enregistrant en mode compatibilité 97. 2003. J'ai tenté des codes du site mais rien n'est compatible. Pouvez vous m'aider?

'enlever la protection des cellules B2 B9 et D9 de la feuille "compétitions"
sheets("compétitions").select
if worksheets.range("B2").locked=true then
worksheets.range("B2").locked=false
else
bien sur ça ne fonctionne pas mais je cherche et ...
kay80

merci de cette rapide réponse. j'accepte cette méthode enb attendant un codage qui me permettrait de laisser seulement certaines cellules accessible. mon problème est que au démarrage de cette application je change le format de cette feuille et je masque les barres excel avec le code suivant
ActiveSheet.Unprotect
With ActiveWindow
        .DisplayGridlines = False
        .DisplayHeadings = False
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
End With
    If ActiveSheet.Name = "compétitions" Then
     ActiveSheet.Cells.Interior.ColorIndex = 41
    End If
With Application
        .DisplayFormulaBar = False
        .DisplayStatusBar = False
End With
ActiveSheet.Protect
 après ça la protection résidente de la feuille ne serait pas rétablie puisque je la unprotect il faut que je la reprotège en laissant les cellules B2 B9 et D9 accessibles
merci à vous si vous connaissez un codage voisin le permettant.

kay80