Заблокировать определенные ячейки в диапазоне

Проверьте это: 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

Если вы скажете Range ("A1"). Select, то будет заблокирован только A1. Вы можете указать несколько ячеек для блокировки, указав следующее:
A3: A12, D3: E12, J1: R13, W18
Это блокирует A3 до A12 и D3 до E12 и т. Д.

Вы можете попробовать это.

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

Возможно, я что-то упускаю, но ...

Cells.Locked = True

... заблокирует все ячейки на активном листе. Если вы просто измените его на ...

chCell.Locked = True

... тогда это работает; Я думаю?! Поскольку диапазон очень мал, вы также можете не разблокировать ячейки в начале, а вместо этого разблокировать ячейки, блокируя их, например.

For Each chCell In chRng.Cells
    If chCell.Value <> "" Then 
    chCell.Locked = True
    Else
    chCell.Locked = False
    End If
Next chCell

Если вы новичок в VBA, я бы порекомендовал прокручивать код построчно, как описано в этом Видео консультанта по Excel. Если вы пошагово просматриваете код, вы можете проверить, работает ли ячейка A7 должным образом? ... вместо того, чтобы просто увидеть конечный продукт.

Быстрый способ разблокировать непустые ячейки - использовать SpecialCells, см. Ниже.

В моем тестировании этот код обрабатывает объединенные ячейки в порядке, я думаю, что это то, что вызывает вашу ошибку в коде Тима, когда он пытается обрабатывать каждую ячейку индивидуально (что, чтобы быть ясным, не является проблемой в коде Тима, это имеет дело с неожиданным исходом)

Вы также можете найти эту мою статью Быстрый метод определения диапазона разблокированных ячеек полезно

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

Я знаю, что это старый поток, но я тоже какое-то время застрял на нем, и после некоторого тестирования в Excel 2013 вот что я делаю, если ваш диапазон включает любую объединенную ячейку

• Объединенные ячейки должны быть полностью включены в этот диапазон (например, объединение должно полностью находиться в пределах диапазона, который блокируется / разблокируется.
• Объединяемый диапазон может быть больше или, по крайней мере, точно соответствовать диапазону объединенных ячеек. Если это именованный диапазон, который тоже работает.

Кроме того, вы не можете заблокировать / разблокировать ячейку, которая уже находится в защищенном диапазоне. Например, если вы запустите:

public sub test()
   Sheet1.range("myNameRange").locked = true
   Sheet1.protect
end sub

Дважды он сработает в первый раз и выйдет из строя во второй раз. Поэтому вам следует снять защиту с целевого диапазона (или листа) перед ....

Если вы хотите защитить определенные ячейки любого конкретного Excel без защиты паролем, вот решение:

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