[Yardım]  Makro Çakışması

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Makro Çakışması

İleti#1)  laerrof » 03 Tem 2019 08:56

Arkadaşlar herkese merhaba öncelikle. Sorunu tam olarak şöyle anlatayım. Elimde makrolu bir excel dosyam var. Bu dosya içerisinde de bir kaç logo var ve bu logolar sayfadan hiç bir şekilde kaldırılamamalı, üzerinde değişiklik sadece şifre ile yapılabilmeli. Logoları kilitleyip şifreli sayfa koruması yaptığımda logolarda istediğim gibi değişiklik yapılamıyor. Buraya kadar her şey normal. Lakin bu sefer de yazmış olduğum makro sorunlu çalışıyor. Çakışmanın nerede olduğunu anlayabilmiş değilim doğrusu. Destek verebilecek olan arkadaşlara şimdiden teşekkür ederim.
Kullanıcı avatarı
laerrof
Yeni Başlamış
 
Adı Soyadı:Ender KADERLİ
Kayıt: 10 Mar 2014 09:51
Konum: İstanbul/Sarıyer
Meslek: Ekonometrist
Yaş: 29
İleti: 37
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul/Sarıyer

Cevap: Makro Çakışması

İleti#2)  ahmetilhan282 » 05 Tem 2019 05:14

Sorun veren makro korumalı olan sayfada değişiklik yapmaya çalışıyor ancak sayfa şifre ile korumalı olduğu için hata alıyorsunuz. Sorunlu makronun ilk satırına aşağıdaki kodu;
ThisWorkbook.Sheets("şifreli sayfa adı").Unprotect "şifre"
son satırına da aşağıdaki kodu ekleyip deneyin;
ThisWorkbook.Sheets("şifreli sayfa adı").Protect "şifre"
Kullanıcı avatarı
ahmetilhan282
Site Dostu
 
Adı Soyadı:Ahmet İLHAN
Kayıt: 15 Oca 2014 00:04
Konum: Adana
Meslek: Güvenlik
Yaş: 29
İleti: 873
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Mersin

Cevap: Cevap: Makro Çakışması

İleti#3)  laerrof » 05 Tem 2019 11:22

Ahmet Bey Merhaba

Öncelikle ilginiz için teşekkür ederim fakat şöyle bir sorun var. Makrom birden fazla sayfada aktif olarak çalışıyor. O nedenle bu makroyu tam olarak anlayıp çalıştıramadım açıkçası.


ahmetilhan282 yazdı:Sorun veren makro korumalı olan sayfada değişiklik yapmaya çalışıyor ancak sayfa şifre ile korumalı olduğu için hata alıyorsunuz. Sorunlu makronun ilk satırına aşağıdaki kodu;
ThisWorkbook.Sheets("şifreli sayfa adı").Unprotect "şifre"
son satırına da aşağıdaki kodu ekleyip deneyin;
ThisWorkbook.Sheets("şifreli sayfa adı").Protect "şifre"
Kullanıcı avatarı
laerrof
Yeni Başlamış
 
Adı Soyadı:Ender KADERLİ
Kayıt: 10 Mar 2014 09:51
Konum: İstanbul/Sarıyer
Meslek: Ekonometrist
Yaş: 29
İleti: 37
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul/Sarıyer

Cevap: Makro Çakışması

İleti#4)  ahmetilhan282 » 05 Tem 2019 20:48

Dosyanızı ekleyebilir misiniz?
Kullanıcı avatarı
ahmetilhan282
Site Dostu
 
Adı Soyadı:Ahmet İLHAN
Kayıt: 15 Oca 2014 00:04
Konum: Adana
Meslek: Güvenlik
Yaş: 29
İleti: 873
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Mersin

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: Makro Çakışması

İleti#5)  laerrof » 08 Tem 2019 01:26

Ahmet Bey dosyayı paylaşıyorum. Daha evvelden de dediğim gibi logolar üzerinde asla işlem yapılamamalı fakat hücre kilitleme vs durumlarda da makrolar çakışıyor ve logoya erişim oluyor.


ahmetilhan282 yazdı:Dosyanızı ekleyebilir misiniz?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
laerrof
Yeni Başlamış
 
Adı Soyadı:Ender KADERLİ
Kayıt: 10 Mar 2014 09:51
Konum: İstanbul/Sarıyer
Meslek: Ekonometrist
Yaş: 29
İleti: 37
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul/Sarıyer

Cevap: Makro Çakışması

İleti#6)  laerrof » 08 Tem 2019 20:55

Bir kaç şey daha denedim ama bu sorunu bir türlü çözemedim. Konu hakkında destek olabilecek birileri var mıdır
Kullanıcı avatarı
laerrof
Yeni Başlamış
 
Adı Soyadı:Ender KADERLİ
Kayıt: 10 Mar 2014 09:51
Konum: İstanbul/Sarıyer
Meslek: Ekonometrist
Yaş: 29
İleti: 37
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul/Sarıyer

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Makro Çakışması

İleti#7)  laerrof » 08 Tem 2019 22:18

Bu arada gözümden kaçmış olsa gerek dosyada makro şifresi var yazmayı unutmuşum şifre ender
Kullanıcı avatarı
laerrof
Yeni Başlamış
 
Adı Soyadı:Ender KADERLİ
Kayıt: 10 Mar 2014 09:51
Konum: İstanbul/Sarıyer
Meslek: Ekonometrist
Yaş: 29
İleti: 37
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul/Sarıyer

Cevap: Makro Çakışması

İleti#8)  Feyzullah » 08 Tem 2019 22:26

Ektedir
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 733
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: Cevap: Makro Çakışması

İleti#9)  laerrof » 08 Tem 2019 22:32

Feyzullah Bey öncelikle desteğiniz için teşekkür ederim. Bu şekilde hücreleri kilitleyip sayfa korumasını denemiştim bende. Tam da makronun sorun yaşadığı yer burası oluyor. Bu korumayı yapınca dosyada çift tıklanarak seçim yapılamıyor ya da seçilen hücreler yanlış aktarılıyor. Evet resme herhangi bir müdahalede bulunulamıyor fakat makroları da kullanamıyorum. Sadece sayfadaki nesneleri silmeyi engelleyebileceğim bir kod lazım aslında :)


Feyzullah yazdı:Ektedir
Kullanıcı avatarı
laerrof
Yeni Başlamış
 
Adı Soyadı:Ender KADERLİ
Kayıt: 10 Mar 2014 09:51
Konum: İstanbul/Sarıyer
Meslek: Ekonometrist
Yaş: 29
İleti: 37
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul/Sarıyer

Cevap: Makro Çakışması

İleti#10)  Feyzullah » 08 Tem 2019 23:06

Tüm hücreleri seçin > sağ ciick > hücre biçimledir > koruma > kilit işaretini kaldırın. Kodu bu şekilde çalıştırın.
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 733
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: Cevap: Makro Çakışması

İleti#11)  laerrof » 08 Tem 2019 23:09

O zaman da benim makro yine etkinliğini kaybediyor ve çift tıklamalarda hücrelerde renk değişikliği olmuyor. Çünkü menüdeki hücreler kilitli.

Feyzullah yazdı:Tüm hücreleri seçin > sağ ciick > hücre biçimledir > koruma > kilit işaretini kaldırın. Kodu bu şekilde çalıştırın.
Kullanıcı avatarı
laerrof
Yeni Başlamış
 
Adı Soyadı:Ender KADERLİ
Kayıt: 10 Mar 2014 09:51
Konum: İstanbul/Sarıyer
Meslek: Ekonometrist
Yaş: 29
İleti: 37
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul/Sarıyer

Cevap: Cevap: Makro Çakışması

İleti#12)  Feyzullah » 08 Tem 2019 23:12

Feyzullah yazdı:Tüm hücreleri seçin > sağ ciick > hücre biçimledir > koruma > kilit işaretini kaldırın. Kodu bu şekilde çalıştırın.

YUkarıda ki yöntem işinize yaramazsa ekli dosyayı detaylı bir şekilde inceleyip dönüş yapar mısınız?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 733
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: Cevap: Cevap: Makro Çakışması

İleti#13)  laerrof » 08 Tem 2019 23:18

Dediğiniz şekilde tekrar denedim bu sefer de evet ilk sayfada seçim yapabiliyorum, logo değişmiyor fakat seçimleri diğer sayfaya aktaracağım butona tıkladığımda seçmediğim hücrelerde geliyor yani yine makro bir şeylerle çakışıyor


Feyzullah yazdı:
Feyzullah yazdı:Tüm hücreleri seçin > sağ ciick > hücre biçimledir > koruma > kilit işaretini kaldırın. Kodu bu şekilde çalıştırın.

YUkarıda ki yöntem işinize yaramazsa ekli dosyayı detaylı bir şekilde inceleyip dönüş yapar mısınız?
Kullanıcı avatarı
laerrof
Yeni Başlamış
 
Adı Soyadı:Ender KADERLİ
Kayıt: 10 Mar 2014 09:51
Konum: İstanbul/Sarıyer
Meslek: Ekonometrist
Yaş: 29
İleti: 37
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul/Sarıyer

Cevap: Makro Çakışması

İleti#14)  laerrof » 09 Tem 2019 22:16

Forumdaki başka bir konu üzerinden sorunu çözebildim çok şükür. Destek veren herkese teşekkürler. Kodları da aşağıda paylaşıyorum.


Sayfa kodları,

KOD: TÜMÜNÜ SEÇ
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Application.OnKey "{del}", "mesaj"
Application.OnKey "{backspace}", "mesaj"
Application.OnKey "+{F10}", "mesaj"
End Sub
Private Sub Worksheet_BeforeRightClick _
(ByVal Target As Excel.Range, Cancel As Boolean)
sahip = CreateObject("WScript.Network").UserName
Cancel = True
MsgBox " Sayfada silme işlemi yapma ihtimmaline karşı sağ tuş " & sahip & " Tarafından engellenmiştir. :)"
End Sub


Modül kodları,

KOD: TÜMÜNÜ SEÇ
Sub mesaj()
sahip = CreateObject("WScript.Network").UserName
MsgBox " Sayfada silme işlemi " & sahip & " Tarafından engellenmiştir."
End Sub
Kullanıcı avatarı
laerrof
Yeni Başlamış
 
Adı Soyadı:Ender KADERLİ
Kayıt: 10 Mar 2014 09:51
Konum: İstanbul/Sarıyer
Meslek: Ekonometrist
Yaş: 29
İleti: 37
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul/Sarıyer


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: dogk, yargicim ve 0 misafir

Bumerang - Yazarkafe