Tasarım modu açıkken uyarı mesajı

[ASLAN7410]

Merhaba arkadaşlar herkese hayırlı sabahlar.

Ekte gönderdiğim excel sayfamın üzerinde çeşitli butonlar ekledim, hepsinde uyarı mesajı veriyor, ancak Tasarım Modu Açık butonuna bastığım zaman uyarı mesajı gelmiyor, mesaj kodunu, butonun kod kısmının üst tarafına da koyduysam da yine uyarı mesajı vermedi.

Tasarım Modu Açık butonuna bastığımda nasıl uyarı mesajı getirebilirim?
Yardım edecek arkadaşlara şimdiden çok teşekkür ederim.

http://s6.dosya.tc/server5/mo7sye/Ornek.xls.html

 

[ASLAN7410]

Sayın yönetici arkadaşlar konu günceldir.

 

[ASLAN7410]

Merhaba arkadaşlar.

Bu konu hakkında küçük bir fikir olarak önce mesaj kodu oluşturup sonra tasarım modu çalıştırılırsa işlem olabilir diye düşündüm, bu işlemi ben yapamadım.
Yardım edermisiniz?

 

[YUSUF44]

Eğer nerde hata verdiğini bulmak istiyorsanız, kod sayfasında F8 tuşuna basarak kodları satır satır çalıştırabilirsiniz.

 

[ASLAN7410]

Sayın Yusuf Bey ilginiz için çok teşekkür ederim, hayırlı akşamlar.

Kodları aşağıdaki şekilde yaptığımda çalıştı.

Sub TasarımVeMesaj()
Call mesaj
Call TasarımModuAç
End Sub

Sub mesaj()
    CreateObject("WScript.Shell").Popup "Tasarım Modu Açıldı.", 1, "UYARI", vbInformation
End Sub

Sub TasarımModuAç()
    With Application.CommandBars.FindControl(ID:=1605)
        .Execute
    End With
End Sub