If ISLEM = 0 Then
If .Tag = "kilit" Then .Visible = False
ElseIf ISLEM = 1 Then
.Visible = True
Else
MsgBox "Geçerli değer girilmedi"
End If
bölümünü aşağıdaki ile değiştirin.
If ISLEM = 0 Then
If .Tag = "kilit" Then .Enabled = False
ElseIf ISLEM = 1 Then
.Enabled = True
Else
MsgBox "Geçerli değer girilmedi"
End If
Ayrıca siyah bölgedeki kutuların hepsini seçip Özellikler penceresinden Görünür kısmını Evet, Etkin kısmını Hayır olarak değiştirin.