selam.
listenin click olayına sunu yazabilirsin

If Liste0.Column(4) = "h" Then
MsgBox "Bu kaydı ekleyemezsin", vbCritical
Else
AD = Liste0.Column(0)
SOYAD = Liste0.Column(1)
SINIF = Liste0.Column(2)
RUTBE = Liste0.Column(3)
End If