Verrouiller certaines cellules dans une plage

Je suis en train de faire une boucle par une plage de cellules, le verrouillage de la une cellule qui a contenu tout en laissant vide les cellules déverrouillées.

Lorsque j'exécute le code ci-dessous le résultat est l'ensemble de la feuille est verrouillé. Si j'ajoute une autre déclaration de la feuille est déverrouillé. Fondamentalement, quelle que soit la dernière .locked = (true, false) déclaration est la façon dont l'ensemble de la feuille s'enroule.

Changement 1 Est-il possible que j'ai des paramètres on/off qui est en conflit depuis que je suis le seul qui est incapable d'obtenir tout ce travail?

Sub ProtectTheSheet()
Dim chCell As Range
Dim chRng As Range

'Clear the default status
ActiveSheet.Unprotect
Range("A7:I35").Locked = False

Set chRng = ActiveSheet.Range("A7:I35")

'Check cell value in body and lock cells with content
For Each chCell In chRng.Cells
    If chCell.Value <> "" Then Cells.Locked = True
Next chCell

ActiveSheet.Protect

End Sub

Avez-vous essayé l'enregistrement d'une macro pendant que vous le faites manuellement? Qui peut vraiment vous aider à apprendre les commandes appropriées.
Sur votre "paramètres de la requête" - avez-vous un autre code en cours d'exécution? Comme je l'ai posté en dessous de votre erreur est le signe d'une cellule fusionnée question, mais vous avez identifié depuis qu'ils ne sont pas dans cette gamme

InformationsquelleAutor Ryan E | 2011-10-14

5
```
Sub ProtectTheSheet()
    Dim chCell As Range
    Dim chRng As Range

    ActiveSheet.Unprotect
    Set chRng = ActiveSheet.Range("A7:I35")

    'Check cell value in body and lock cells with content
    For Each chCell In chRng.Cells
        chCell.Locked = (chCell.Value <> "")
    Next chCell

    ActiveSheet.Protect

End Sub
```
- Il en résulte erreur d'Exécution 1004: Impossible de définir la propriété Locked de la Gamme de la classe.
- Fonctionne pour moi, donc il doit y avoir quelque chose de différent au sujet de votre installation.
- Une idée de ce que pourrait être différent?
- Pas vraiment - des cellules fusionnées peut-être?
- J'ai quelques cellules fusionnées sur la feuille mais pas dans la gamme.
- Alors je ne sais pas quoi d'autre à proposer. Est le code de défaut sur une cellule spécifique, ou sur toutes les cellules?
InformationsquelleAutor Tim Williams
1

Check this out: http://www.mrexcel.com/archive/VBA/15950b.html
```
Sub CellLocker()
Cells.Select
' unlock all the cells
Selection.Locked = false
' next, select the cells (or range) that you want to make read only, 
' here I used simply A1
Range("A1").Select
' lock those cells
Selection.Locked = true
' now we need to protect the sheet to restrict access to the cells. 
' I protected only the contents you can add whatever you want
ActiveSheet.Protect DrawingObjects:=false, Contents:=true, Scenarios:=false
End Sub
```
Si vous dites Range("A1").Sélectionnez, puis il se verrouille uniquement A1. Vous pouvez spécifier plusieurs cellules d'être verrouillé en spécifiant comme suit:

A3:A12,D3:E12,J1:R13,W18

Cela verrouille A3 à A12 et D3 à E12 etc.
- Intéressant de noter depuis l'OP est nouveau pour VBA: vous n'avez pas besoin de sélectionner des cellules, afin de verrouiller ou déverrouiller (ou à peu près n'importe quoi d'autre avec eux). Range("A1").Locked = True fonctionne très bien.
- C'est juste une précaution extrait de code qui déverrouille toutes les cellules de la feuille, s'ils sont verrouillés. Mais je suis d'accord nous n'avons pas besoin de cette ligne pour que le code fonctionne 🙂
- Je voulais dire il n'y a pas besoin de sélectionner puis de verrouillage/déverrouillage. Tout peut être fait sans sélection...
- Hmm. Compris.
InformationsquelleAutor Sidharth Panwar
0

J'ai peut-être raté quelque chose mais...
```
Cells.Locked = True
```
...et verrouiller toutes les cellules de la feuille active. Si vous venez de changer de...
```
chCell.Locked = True
```
...il fonctionne; je pense?! Comme la plage est très petite, vous pouvez aussi bien ne pas déverrouiller les cellules au début, et au lieu de déverrouiller les cellules tout en les bloquant par exemple
```
For Each chCell In chRng.Cells
    If chCell.Value <> "" Then 
    chCell.Locked = True
    Else
    chCell.Locked = False
    End If
Next chCell
```
Si vous êtes nouveau à VBA, je le recommande à vélo à travers le code, ligne par ligne, comme décrit dans cette Excel consultant de la vidéo. Si vous parcourez le code, vous pouvez cocher la case "a la cellule A7 s'est comporté comme prévu?"...au lieu de juste de voir le produit final
- Lors de la copie et collé à celui-ci ne fonctionne pas du tout. J'ai utiliser la continuation _ afin de lier la si-alors-sinon et supprimer les EndIf. Avec EndIf dans il renvoie un message d'erreur qui dit: il n'y a pas de bloc if. Lorsque je le supprime il se chCell.Locked = True et erreurs avec le même message d'erreur à partir de ci-dessus. Moment de l'exécution 1004: Impossible de définir la propriété Locked de la Gamme de la classe.
InformationsquelleAutor Ed Bolton
0

Un moyen rapide pour débloquer la non-cellules vides est d'utiliser SpecialCells voir ci-dessous.

Sur mon test de ce code gère cellules fusionnées ok, je pense que c'est ce qui est de la génération de votre erreur sur Tim code quand il ressemble à une poignée de chaque cellule individuellement (qui, pour être clair, c'est pas un problème au Tim du code, il s'agit de l'un des résultats inattendus)

Vous pouvez également trouver cet article de la mine Une méthode rapide de détermination de la déverrouillé plage de cellules utile
```
Sub Quicktest()
    Dim rng1 As Range
    Dim rng2 As Range
    On Error Resume Next
    Set rng1 = ActiveSheet.Range("A7:I35").Cells.SpecialCells(xlFormulas)
    Set rng2 = ActiveSheet.Range("A7:I35").Cells.SpecialCells(xlConstants)
    On Error GoTo 0
    ActiveSheet.Unprotect
    ActiveSheet.Range("A7:I35").Cells.Locked = False
    If Not rng1 Is Nothing Then rng1.Cells.Locked = True
    If Not rng2 Is Nothing Then rng2.Cells.Locked = True
    ActiveSheet.Protect
End Sub
```
- Celui-ci fonctionne sans erreurs, mais laisse tout non protégés...
- êtes-vous en mesure de publier votre fichier (désinfectés si nécessaire) en ligne pour nous de voir?
- ryan, êtes vous toujours à la recherche de cette image?
- Oui je suis toujours à la recherche, mais j'ai été assez submergés. Je vous remercie pour votre aide et de votre intérêt. Comment puis-je poster le fichier?
- Je connais ce sentiment .... Presumbaly il y a un certain endroit que vous pouvez utiliser pour télécharger votre fichier. Un rapide google se tourne les options telles que ces
InformationsquelleAutor brettdj
0

Je sais que c'est un vieux thread, mais j'ai été coincé sur cette trop pendant un certain temps, et après quelques tests sur Excel 2013, voici ce que je en conclure si votre gamme comprend toute cellule fusionnée
- Les cellules fusionnées doivent être entièrement inclus dans la gamme (par exemple, la fusion doit être entièrement à l'intérieur de la plage de verrouillage/déverrouillé
- La plage de fusion peut être plus grand, ou au moins exactement la gamme correspondant à la fusion de cellules. Si c'est une plage nommée qui fonctionne aussi bien.
Aussi, vous ne pouvez pas verrouiller/déverrouiller une cellule qui est déjà à l'intérieur d'un protégé de la gamme. E. g si vous exécutez:
```
public sub test()
   Sheet1.range("myNameRange").locked = true
   Sheet1.protect
end sub
```
Deux fois, il va travailler la première fois, et l'échec de la deuxième fois autour. Donc, vous devez ôter la protection de la fourchette cible (ou la feuille) avant....

InformationsquelleAutor Francky_V

Vous pouvez essayer cette.

Public Sub abc()
ActiveSheet.Unprotect Password:="1234"
ActiveSheet.Range("I8:I500, K8:K500, M8:M500, N8:N500").Cells.Locked = False
ActiveSheet.Protect Password:="1234"
End Sub

InformationsquelleAutor Ragala Santosh Kumar

Si vous voulez protéger les cellules spécifiques propres à excel sans que la protection par mot de passe, alors voici la solution:

Sub ProtectingSheet()

  Workbooks.Open (c\documents\....)

  Dim mainworkBook As Workbook

  Set mainworkBook = ActiveWorkbook

  Worksheets(CellValue).Activate

  mainworkBook.Sheets("Sheet1").Range("A1:AA100").Locked = True

  Range(Cells(1, 2), Cells(1, 25)).Select
  Selection.Locked = False

  ActiveSheet.Protect

End Sub

InformationsquelleAutor Arjun Handa

Vous devez vous connecter pour publier un commentaire.