Command button

[muratgunay48]

Arkadaşlar, sayın hocalarım, command button nasıl görünmez yapılır. Tüm renkleri denedim olmuyor. Küçük fotoğraf çektim göstermek için. Mesela ortadaki minik düğme, kimse basmaz oraya. Küçücük bir yer. Ben biliyorum.
Şimdiden teşekkür ederim.
Saygılarımla.

 

[Korhan Ayhan]

Kod editörü tarafında tasarım modundayken butonun özelliklerinde bulunan VISIBLE özelliğini FALSE olarak ayarlarsanız formunuz açıldığında buton görünmez olacaktır.

 

[Tevfik_Kursun]

Merhaba Arkadaşım,
Alternatif olsun
Sheets("Sayfa1").CommandButton1.Visible = False
Sheets("Sayfa1").Shapes("Button 5").Visible = True
iyi çalışmalar

 

[muratgunay48]

Çok teşekkür ederim.

 

[muratgunay48]

Kod editörü tarafında tasarım modundayken butonun özelliklerinde bulunan VISIBLE özelliğini FALSE olarak ayarlarsanız formunuz açıldığında buton görünmez olacaktır.

Hocam, görünmüyor ama çalışmıyor da. İstiyorum ki çalışsın. Küçücük bir bölge. Çalışması mümkün değil mi?

 

[Korhan Ayhan]

Şaka mı yapıyorsunuz?

 

[muratgunay48]

Şaka mı yapıyorsunuz?

Rica ederim hocam. O ne demek. Öyle şey olur mu? 10 yılı geçik bu forumdayım. Saygısızlığımı gördünüz mü?
Userform üzerinde CommanButton. Dediğiniz gibi False yaptım. Buton tamamen gitti. Olduğu noktaya yani bulunduğu bölgeye tıklanmıyor şu an.

 

[Korhan Ayhan]

Görünmez olunca aynı zamanda tıklanmaz olur..

 

[dEdE]

Merhaba,
Benzer sorunu şöyle çözmüştüm.
UserForm üzerinde istediğim yere bir label ekledim.
Zemin rengini (BackColor) üzerinde durduğu zeminle aynı yaptım.
Kenar çizgisini (BorderStyle) 0 fmBorderStyleNone yaptım.
Kodları; Private Sub Label31_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Procedurünün altına yazıp yerini bildiğim ama görünmeyen label’e çift tıklayarak istediğim işlemi yaptım.

 

[muratgunay48]

Görünmez olunca aynı zamanda tıklanmaz olur..

Anladım hocam, belki de ben soruyu yanlış sordum. Teşekkür ederim
Saygılarımla.

 

[muratgunay48]

Merhaba,
Benzer sorunu şöyle çözmüştüm.
UserForm üzerinde istediğim yere bir label ekledim.
Zemin rengini (BackColor) üzerinde durduğu zeminle aynı yaptım.
Kenar çizgisini (BorderStyle) 0 fmBorderStyleNone yaptım.
Kodları; Private Sub Label31_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Procedurünün altına yazıp yerini bildiğim ama görünmeyen label’e çift tıklayarak istediğim işlemi yaptım.

Teşekkür ederim hocam. Bunu deneyeceğim.
Saygılarımla.

 

[Korhan Ayhan]

Çok gerekliyse alternatif olarak Userformun çift tıklama olayınıda kullanabilirsiniz. İşlem öncesinde şifre eklersiniz. Böylece izinsiz işlem yapılmasınıda engellersiniz.

 

[muratgunay48]

Hocam

Çok gerekliyse alternatif olarak Userformun çift tıklama olayınıda kullanabilirsiniz. İşlem öncesinde şifre eklersiniz. Böylece izinsiz işlem yapılmasınıda engellersiniz.

Hocam, o nasıl yapılıyor. Size zahmet. Bilmiyorum

 

[muratgunay48]

Teşekkür ederim hocam. Bunu deneyeceğim.
Saygılarımla.

Yok hocam, bu şekilde olmadı. Çok teşekkür ederim yine de. Emeğinize sağlık.

 

[Korhan Ayhan]

Ekteki örnek çalışmayı kendi dosyanıza uyarlarsınız..

 

[dEdE]

Yok hocam, bu şekilde olmadı. ..

Haklısınız Labelin Caption özelliğinin boş bırakılması gerektiğini yazmayı unutmuşum.
Ekli dosyayı inceler misiniz? UserFormun sol alt kısmına yakın bir noktaya çift tıkayarak sonucu görebilirsiniz.

 

[muratgunay48]

Ekteki örnek çalışmayı kendi dosyanıza uyarlarsınız..

Teşekkür ederim hocam. Yasaklamak da mantıklı. Bu şekilde olabilir.

 

[muratgunay48]

Haklısınız Labelin Caption özelliğinin boş bırakılması gerektiğini yazmayı unutmuşum.
Ekli dosyayı inceler misiniz? UserFormun sol alt kısmına yakın bir noktaya çift tıkayarak sonucu görebilirsiniz.

Çok teşekkür ederim hocam. Bu tam oldu. Emeğinize sağlık.