Code pour selection de cellules qui ne fonctionne pas avec la fonction "Locked"

Version imprimable

Bonjour a vous,

Actuellement en train de creer une base de donnee, je suis confrontee a un probleme d'une simplicite que c'est surement ridicule de poster un message.
Mais voila j'ai une quinzaine de pages et pour certaine je veux debloquer que certaines cellules.

J'ai donc utilise la ligne de code :
Code:

1 2 Range("...:...,...").Select Selection.Locked
Le message d'erreur 1004 (method range or object worksheet failed) apparait pour la ligne du range.

Ci-dessous le code en question :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub CommandButton2_Click() ' Enter document code in document case (G4) Range("G4").Select ActiveCell.FormulaR1C1 = "BS" ' Fill Out a new Build Sheet Sheets("BS_SHEET").Visible = True Sheets("NEW REVISION").Visible = False Sheets("BS_SHEET").Select 'Range("E6,K6,D9:J9,G11,E21,M29:M91,L92,M94:M104,C109:M109,M111:M118,E122,I134,J134").Select 'Selection.Locked = False End Sub
J'ai cache les deux dernieres lignes de code car c'est la qu'apparait le probleme.

J'ai beau chercher une reponse sur le net, je trouve rien concernant mon probleme. Je pensais que c'etait la synthaxe mais meme le site de microsoft support ne me donne pas de reponses.

Pourriez vous m'aider ?

Amicalement

Salut,

Et comme ça:

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton2_Click()
  Range("G4").FormulaR1C1 = "BS"
  Worksheets("BS_SHEET").Visible = True
  Worksheets("NEW REVISION").Visible = False
  With Worksheets("BS_SHEET")
    .Unprotect
    .Cells.Locked = True
    .Range("E6,K6,D9:J9,G11,E21,M29:M91,L92,M94:M104,C109:M109,M111:M118,E122,I134,J134").Locked = False
    .Protect
  End With
End Sub

28/07/2014, 18h01
parmi
Bonjour,

J'imagine que ta feuille est protégée... est-ce le cas ?
Si oui, tu dois la déprotéger au préalable et la reprotéger quand tu as terminé.

Sheets("BS_SHEET").UnProtect "Mot de passe" 's'il n'y a pas de mot de passe enlève la partie avec les guillemets

Et plutôt qu'écrire
Code:

1 2 Range("G4").Select ActiveCell.FormulaR1C1 = "BS"
Utilise

Code:

Range("G4") = "BS"

EDIT: Battu de vitesse