Salt Okunur Dosyada Makronun Çalışmasını Engelleme

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

SilinenUye8231

Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhaba, hayırlı cumalar.

Herkesin kullandığı ortak klasörümüzde bir tane excel dosyamız mevcut, bu dosyayı ilk açana dosya normal olarak açılıyor,
bu dosya başkası tarafından açıkken, bir başkası açtığında ona salt okunur olarak açılıyor.
Yapmak istediğim dosya salt olarak açıksa makronun çalışmasını istemiyorum.

Böyle bi çalışma yapılabilir mi?
 
Farklı Verileri Tek Bir Dosyada Toplama
Şarta Bağlı Başka Makro Çalıştırma
Tarihe göre sırala Oylamaya göre sırala
Hayırlı Cumalar.

Dosyanın salt okunur olup olmadığını da makro ile anlamak gerekeceği için, talebiniz makul değil gibi duruyor.
Ama "makrolar çalışmasın" talebinden ziyade, belki makrolara yazılacak şart ile işlevleri devre dışı bırakılabilir .
Tabi burada kodların şifreli olması gerekir.

Denemesini yapmadım ama ilk aklıma gelen yorumun bu şekildedir.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(9 satır)
 
Oyla 0 Olumsuz oyla
Merhaba hayırlı akşamlar.

Aşağıdaki kodda şöyle bi sıkıntım var, eğer dosya salt okunur ise YedekAl kodu çalışmasın diğer kodlar çalışsın, eğer dosya salt okunur değil ise YedekAl ve DiğerKodların hepsi çalışsın istiyorum, bir türlü ayarlayamadım.

Yardımcı olur musunuz?

Private Sub Workbook_Open()
If ThisWorkbook.ReadOnly = True Then
YedekAl
DiğerKodlar
Else
YedekAl
DiğerKodlar
End If
End Sub
 
Oyla 0 Olumsuz oyla
Aşağıdaki kodu butonla kullanıyorum, herhangi bir sıkıntı yok.

Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(6 satır)

Dosyayı ilk açtığımda da eğer dosya salt okunur ise YedekAl makrosu çalışmasın, DiğerKodlar çalışsın, eğer dosya salt okunur değilse YedekAl ve DiğerKodlar çalışmasını istemiştim, yapamadım.
 
Oyla 0 Olumsuz oyla
Sayın Ömer Bey, hayırlı geceler diliyorum.

Yapmak istediğim dosya salt okunur olduğunda sadece YedekAl makrosu çalışmasın, dosya salt okunur olsa dahi DiğerKodlar'ın çalışmasını ve dosya salt okunur olmadığında YedekAl ve DiğerKodlar'ın çalışmasını istemiştim.
 
Oyla 0 Olumsuz oyla
Kodu aşağıdaki başlık altına eklemek istiyorum.
Böyle bir kurgu kurmak istiyorum ama yapamadım.

Private Sub Workbook_Open()

Eğer dosya salt okunur ise
YedekAl iptal
DiğerKodlar çalışsın

Eğer dosya salt okunur değil ise
YedekAl çalışsın
DiğerKodlar çalışsın

End Sub
 
Oyla 0 Olumsuz oyla
Verdiğim kodun başlık ve end sub arasını,
Workbook_Open kodunun içine kopyalayıp (eskilerini silin veya satırların sol başlarına TEK TIRNAK ekleyerek etkisiz hale getirin)
yapıştırıp denediniz mi?
Tabi verdiğim koddaki MsgBox ların yerine ilgili makro kodlarının adlarını yazacaksınız.

.
 
Oyla 0 Olumsuz oyla
Sayın Ömer Bey, kusura bakmayın gece gece sizi uğraştırmış oldum, bazan kafa duruyor işte.

Aşağıdaki gibi yapınca istediğim gibi oldu.

Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(12 satır)
 
Oyla 0 Olumsuz oyla
Çözüm
Benim verdiğim cevap da aynı işi yapıyordu.
Sizin çözümünüzde DİĞEN_KODLAR 2 kez yazılmak durumunda.
Oysa IF satırını IF NOT olarak kurunca makro adlarının birer kez yazılması yeterli oluyor.

.
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst