XL 2013 [Résolu] Problème de protection!

[bellenm]

Bonjour amis exceliens,

J'ai un problème de protection:

Private Sub Worksheet_Change(ByVal Cible As Range)
Dim p%
    If Cible.Address = "$B$2" Then
        Cible.Select
        p = 32 'nb. max. d'engagés (au moins 2)
        Application.EnableEvents = False
        Cible.Offset(1).Resize(p - 1 - (p = 1), p + 1).Value = BERGER_1(p, Cible.Value)
        Application.EnableEvents = True
    End If
End Sub

Une foi que je veux protéger la feuille la cellule "B2" n'effectue plus aucun changement.
Je suis alors obligé de fermer le tableur complètement même si d'autre fichier excel sont ouvert.

Etant un tableau assez complexe j'aimerais que les formules y soit protéger contre toutes maladresses!

 

[cathodique]

Bonjour,

Par défaut toutes les cellules sont verrouillées.
Clic droit sur ta cellule ---> format de cellule ---> onglet protection ---> décoches 'verrouiller'

Bonne fin de dimanche

 

[bellenm]

Bonsoir catho,

Oui c'était simplement ca et comme c'était un tableau assez complexe je n'osais pas y toucher.

Merci beaucoup.

Marc