İnputbox ta Cancel tuşunun iptali

[drejan62]

Merhabalar
İnputboxta görünen Cancel tuşunun görünmemesi yada bu tuşa basıldığında işlevsiz kalmasını nasıl yapabiliriz acaba?
Teşekkürler

 

[Korhan Ayhan]

Selamlar,

Sanırım tuşu pasif yapamıyoruz. Fakat aşağıdaki kod yapısını kullanarak veri girişi yapmaya zorlayabilirsiniz.

Option Explicit
 
Sub INPUTBOX_TEST()
    Dim ONAY As Variant
    
Başla: ONAY = Application.InputBox("Lütfen bir değer giriniz !")
    If ONAY = False Then GoTo Başla
End Sub

 

[halit3]

Merhabalar
İnputboxta görünen Cancel tuşunun görünmemesi yada bu tuşa basıldığında işlevsiz kalmasını nasıl yapabiliriz acaba?
Teşekkürler

alternatif olarak ekliyorum.

deger = InputBox("bir deger giriniz.", "Uyarı Penceresi", "")
If deger = "" Then
MsgBox "İşlemi iptal ettiniz"
Exit Sub
End If
MsgBox deger

 

[drejan62]

Korhan Bey, Halit bey teşekkürler sağolun