Сделать ячейки только для чтения

Question

Этот код делает весь лист только для чтения.

Я хочу, чтобы ячейки, которые пусты (имеют значение null), только для чтения. Он должен работать для разных файлов Excel, где диапазон используемых ячеек может отличаться.

Sub proFirst() 
Sheets("DCAFTE").UsedRange.Select 

ActiveSheet.Unprotect 
ActiveWorkbook.Unprotect 

Dim myRange As Range 
Set myRange = ActiveSheet.UsedRange 
myRange.Select 
Selection.Locked = True 
ActiveSheet.Protect Contents:=True 
End Sub 

Answer 1

Вы можете заменить код кодом ниже. Это выберет только ячейки, которые пусты (пустые), и сделайте это только для чтения. Ячейки, имеющие значения, будут доступны для редактирования.

Sub proFirst() 
Sheets("DCAFTE").Select 

ActiveSheet.Unprotect 
ActiveWorkbook.Unprotect 

    Dim myCell As Range 

    Set myCell = Selection 
    Cells.Select 
    Selection.Locked = False 
    myCell.Select 
    Selection.SpecialCells(xlCellTypeBlanks).Select 
    Selection.Locked = True 
    ActiveSheet.Protect Contents:=True 
    myCell.Select 

End Sub