Bu yazımızda, VBA kullanarak userform üzerindeki x-buttonunun nasıl devre dışı bırakılacağını göstereceğiz.
Bu örnekte, çalışma sayfasındaki çalıştır düğmesine tıklanarak etkinleştirilebilen bir kullanıcı formu oluşturduk.
Bu kullanıcı formu, kullanıcı formunu kapatmak için kullanılan yalnızca bir düğme içerir. Kullanıcı formu sadece bu buton tıklanarak kapatılabilir. Klavyede Alt+F4 kısayol tuşlarına basılsa bile bu kullanıcı formu kapatılamaz.
Mantıksal açıklama
Kullanıcı formunun x düğmesini devre dışı bırakmak için kullanıcı formunun sorgu kapatma olayını kullandık. Bu olay, kullanıcı formunun kapanmasından önce tetiklenir.
Bu durumda, eğer kapatma modu menü kontrolü ise, kullanıcı formunu kapatmayın; bunun yerine iletişim kutusunda bir bilgi mesajı görüntüleyin.
Lütfen kod için aşağıdan takip edin
Seçenek Explicit Sub running() UserForm1.Show End Sub 'Kullanıcı formuna aşağıdaki kodu ekle Private Sub CommandButton1_Click() 'Kullanıcı formunu kapat Unload Me End Sub Private Sub UserForm_QueryClose(Tamsayı Olarak İptal, Tamsayı Olarak Kapat Modu) 'Sorgu Kullanarak Kullanıcı Formu Kapatma olayı' CloseMode değişkeninin sabit değerinin karşılaştırılması 'Kontrol menüsünün dahili sabitine eşitse' O zaman kullanıcı formunun kapanmasını ve 'Bilgi mesajı iletişim kutusunu görüntüle CloseMode = vbFormControlMenu ise 'İptal değişkeni değerini True olarak değiştirme Varsayılan olarak, False'dır. İptal = True MsgBox "İletişim kutusunu bu şekilde kapatamazsınız!" End If End Sub
Bu blogu beğendiyseniz, Facebook'ta arkadaşlarınızla paylaşın. Ayrıca bizi Twitter ve Facebook'ta da takip edebilirsiniz.
Sizden haber almayı çok isteriz, işimizi nasıl geliştirebileceğimizi ve sizin için nasıl daha iyi hale getirebileceğimizi bize bildirin. E-posta sitesinde bize yazın