Silinmesini istemediğiniz metin kutularının odaklandığında olayını aşağıdaki gibi yaparsanız sanırım istediğiniz olur.
Private Sub Metin20_GotFocus()
If IsNull(Me.Metin20) Then
Me.Metin20.Locked = False
Else
Me.Metin20.Locked = True
End If
End Sub