Excelde resim tıklanınca makro

[ahmethasim]

Merhaba arkadaşlar;

Benim sorum excele bir resim yerleştirdim ; ama bu resme kesinlikle dokunulmasını istemiyorum. Dokunulması halinde excel deki hücrelerdeki tüm değerler temizlensin istiyorum.

Resmi sağ tıkladım makro ata kısmında direkt Sub resim_tıklat() diye otomatik bir makro oluştu içine;

Sub Resim_Tıklat()

Sayfa1.Select
Sayfa1.Range("A1", Range("AQ1").End(xlDown)).Select
With Selection
.ClearContents
End With

End Sub

ile oluşturdum.

Ama resmin üzerinde mouse sağ tuşuna tıklayıp resmi kesme işlemi yapılabiliyor hala. Bunu nasıl engelleyebiliriz?

Makronun çalışabileceği mouseun sağ tuşuna tıklandığında çalışabilen bir kod yazmak böyle bir yordam oluşturmak mümkün mü?

Hatta mouse sağ tuşuna tıklanınca değil de resmin üzerinde mouse sağ tuşuna tıklanınca çalışabilecek bir makro yazmak mümkün mü?

Teşekkürler

İyi çalışmalar

 

[Mehmet Şahin]

Merhaba,
activex controllerden image nesnesi yükleyip, özelliklerinden resim ekleyebilirsiniz. Ve tıklat yordamına istediğiniz macroyu yazabilirsiniz. Bu durumda istemediğiniz sorunlar oluşmaz, iyi çalışmalar.

 

[Ergün Güler]

Merhaba arkadaşlar;

Benim sorum excele bir resim yerleştirdim ; ama bu resme kesinlikle dokunulmasını istemiyorum. Dokunulması halinde excel deki hücrelerdeki tüm değerler temizlensin istiyorum.

Resmi sağ tıkladım makro ata kısmında direkt Sub resim_tıklat() diye otomatik bir makro oluştu içine;

Sub Resim_Tıklat()

Sayfa1.Select
Sayfa1.Range("A1", Range("AQ1").End(xlDown)).Select
With Selection
.ClearContents
End With

End Sub

ile oluşturdum.

Ama resmin üzerinde mouse sağ tuşuna tıklayıp resmi kesme işlemi yapılabiliyor hala. Bunu nasıl engelleyebiliriz?

Makronun çalışabileceği mouseun sağ tuşuna tıklandığında çalışabilen bir kod yazmak böyle bir yordam oluşturmak mümkün mü?

Hatta mouse sağ tuşuna tıklanınca değil de resmin üzerinde mouse sağ tuşuna tıklanınca çalışabilecek bir makro yazmak mümkün mü?

Teşekkürler

İyi çalışmalar

Selam,
Öncelikle resminizin bulunduğu sayfanın tamamını seçiniz.
Sağa tıklayıp Hücreleri Biçimlendir-->Koruma kısmını şeçiniz. Buradaki korumayı kaldırınız.
Daha sonra bahsi geçen resmin üzerinde iken
sağa tıklayıp Resmi Biçimlendir-->Koruma kısmını şeçiniz. Buradaki korumayı şeçiniz.
daha sonra Excel menüsünden Araçlar-->Koruma--> Sayfayı Koru'yu şeçiniz.
aşağıdaki seçeneklerden "satırları sil" ve "Sütunları sil"i seçiniz.
İstediğiniz parolayı atayınız.
Artık Sayfa koruma parolası girmeden resminiz silinmeyecektir.
Resime tıkladığınızda ise sayfadaki tüm bilgiler silinecektir.
İyi çalışmalar.

 

[ahmethasim]

Sayın Ergun Bey dediğiniz gibi yapmaya çalıştım; yalnız sayfayı koru dediğimde ne resim ne de hücrelere ulaşılamıyor vaziyete geldi ; halbuki sadece resime dokunulamamasını istiyorum. Nerede hata yapıyorum ? Bir de Resmi Biçimlendir dediğimde Koruma kısmı bulunmuyor ;
Dolgu
Çizgi Rengi
Çizgi Stili
Gölge
3B Biçimi
3B Döndürmesi
Resim
Metin Kutusu çıkıyor karşıma ?

Yardımcı olabilir misiniz?

Teşekkürler

İyi çalışmalar

 

[Ergün Güler]

Sayın Ergun Bey dediğiniz gibi yapmaya çalıştım; yalnız sayfayı koru dediğimde ne resim ne de hücrelere ulaşılamıyor vaziyete geldi ; halbuki sadece resime dokunulamamasını istiyorum. Nerede hata yapıyorum ? Bir de Resmi Biçimlendir dediğimde Koruma kısmı bulunmuyor ;
Dolgu
Çizgi Rengi
Çizgi Stili
Gölge
3B Biçimi
3B Döndürmesi
Resim
Metin Kutusu çıkıyor karşıma ?

Yardımcı olabilir misiniz?

Teşekkürler

İyi çalışmalar

Selamlar,
Sizin 2007 kullandığınıza dikkat etmemişim, kusura bakmayınız. Ben Excel 2003 kullanıyorum, yaptım oldu. Eminin 2007'de de mümkündür.
size ekte örnek dosya gönderiyorum. Dosyaya sizin 1.mesajınızdaki kodu da ekledim. Sayfa1'deki resime tıkladığınızda tüm hücre içerikleri siliniyor. Ancak resimi silemiyorsunuz. Yani sizin istediğiniz gibi. Korumayı kaldırmak isterseniz,
Sayfa koruma şifresi 1234'dür.
İyi çalışmalar

 

[ahmethasim]

Teşekkürler hocam elinize sağlık

 

[Ergün Güler]

Teşekkürler hocam elinize sağlık

Selam,
Ben teşekkür ederim. Çözüm bulmanıza sevindim.
İyi çalışmalar.