Работа с объектами Workbook,worksheets,range

[savraska]

Если в списке фамилий в текущей строке пусто,то запретить ввод оценки. Не использовать защиту ячейки. Список-на рабочем листе
Sub rabota7(fam As Range)
n = Range.Rows.Count
m = Range.Columns.Count
For i = 1 To n
Do While Worksheets(7).Range(A1, A4).Value <> ""
ocenka = Range(A1, A4).Value
Range(A1, A4) = ocenka
Loop
MsgBox "Нет фамилии"
Next i
End Sub

[FullmetalAlchemist]

вот так например

i=1
Do While Worksheets(7).Cells(i, 1).Value <> ""
'Что делать
Loop

[alebed]

К примеру: фамилии в колонке "А" оценки в "В"


Private Sub Worksheet_Change(ByVal Target As Range)
If Application.ActiveCell.Column = 2 Then ' проверяем редактируем ли яч. колонки 2 то есть В
If Len(Application.ActiveCell.Offset(0 , -1).Value) < 2 Then ' проверяем наличие фамилии по длинне значания в яч.
Predupr = MsgBox("Редактирование запрещено, нет фамилии." _
, vbInformation, "Внимание!") ' предупреждаем о запрете
If Predupr = vbOK Then ' здесь что делаем после нажатия ОК
Range("A1").Select
Range("A1").Value = Application.ActiveCell.AddressLocal ' к примеру смотрим адрес ячейки на которой получили запрет
GoTo Ost ' игнорируем проверку ИФ
End If
End If
End If
Ost:
End Sub