В форме я ввожу номер места,ряда выбираю при помощи OptionButton вариант ввода текста,
но как заблокировать ту ячейку в которую я ввел текст(Д или П или О).

Private Sub CommandButton1_Click()
Dim Z As String
Dim a As String
Dim x1 As Integer, y1 As Integer
If IsNumeric(TextBox2.Text) Then
MsgBox "Неверный ввод места"
TextBox2.SetFocus
Exit Sub
End If
If Not IsNumeric(TextBox3.Text) Then
MsgBox "Неверный ввод ряда"
TextBox3.SetFocus
Exit Sub
End If
Z = TextBox2.Text   \Ввод номера места
a = TextBox3.Text   \Ввод номера ряда
RR = Z + a
If OptPen.Value Then
x1 = Range(RR).Column: y1 = Range(RR).Row
Cells(y1, x1).FormulaR1C1 = "Д"
End If
If OptReb.Value Then
x1 = Range(RR).Column: y1 = Range(RR).Row
Cells(y1, x1).FormulaR1C1 = "П"
End If
If OptPro.Value Then
x1 = Range(RR).Column: y1 = Range(RR).Row
Cells(y1, x1).FormulaR1C1 = "О"
End If
End Sub

Что значит "заблокировать"?
В экселе существует возможность защитить лист, возможно это и имелось в виду?

Можно загонять занятые места в массив или коллекцию, и проверять потом на "занятость"

Может вам лучше ловить событие изменения значения ячейки, чтобы не маятся с массивами и не тратить зря ресурсы? Например, посмотрите это (модернизировал код, приводимый в "Функция считает раскрашенные ячейки..."):Вставляйте в код листа, и пробуйте изменить ранее введеные значения