Çözüldü Çözemediğim bir sorun, kodlarım siliniyor

[hakki83]

Değerli hocalarım selamlar

Bir sorunu çözemedim. Daha doğrusu daha önce başıma gelmeyen, ya da farkına varamadığım sorun olduğunu sandığım bir şeyi çözmeye uğraşıyorum saatlerdir, bir türlü yapamadım.

Herhangi bir boş excel dosyasını açıyorum.

Vba kısmını açıyorum. Bir sayfanın kod kısmına (modül oluşturmuyorum, sadece sayfanın kod kısmına) herhangi bir kod grubunu yapıştırıyorum. Ve bu kod grubunun tamamını Comment Block ile pasif hale getiriyorum. Dosyayı kaydedip kapatıyorum. Dosyayı tekrar açgığımda, az önce blocklayıp etkisiz hale getirdiğim kodların tamamen silinmiş, yok olmuş olduğunu görüyorum.



Ya da kod yerine rastgele birkaç harfe basıp, yine blocklayıp kapatıyorum. dosyayı açtığımda yazdığım harfler silinmiş oluyor.

Bu durumla daha önce hiç karşılaşmamıştım. Sizlerde de durum aynı mıdır?

Eğer bu durum sadece bendeyse bu neden olabilir?

 

[Yusuf43]

Kodlarınızın başına Application.DisplayAlerts=false yazıp sonuna Application.DisplayAlerts=True yazıp deneyin.

 

[halily]

Dosyanızın uzantısı ne?
Bahsettiğiniz durum bildiğim kadarıyla sadece xlsx uzantılı dosyalarda olur

 

[Ümit Bakacak]

Dosyanız .xlsx uzantılı ise ve vba üzerinde sayfa modüllerinin haricinde modül eklenmemişse sayfa modülüne yazdığınız bütün kodları yorum olarak işaretlediğinizde dosya sanki hiç VBA kodu yazılmamış gibi .xlsx uzantılı kalmaya devam eder.
Öncelikle dosyanızı makro içerebilen bir türde kaydedin. Mesela .xlsm, .xlsb gibi.
Daha sonra vba üzerinde çalışan en az 1 satır kod olmalıdır.

 

[hakki83]

Hocalarım sağ olunuz. Şöyle izah edeyim.
Bahsettiğim dosya uzantılatarı xlsm ya da xls. Yani ikisi de makro çalıştırabilen dosyalar.

Safya1’e bir komut düğmesi ekleyip düğmeye çift tıkladıktan sonra, Vba’da Sayfa1 kısmına şunu yazıyorum

Range(“a1”) = “test”

Normalde kod çalışıyor. Fakat daha sonra sayfa kodları bölümü içindeki her satırı bloklayıp yeşile dönüştürdükten sonra kaydedip kapattığımda; tekrar açtığımda yeşil olan bütün kodların silindiğini görüyorum.

Sizlerde de durum böylemidir. Lütfen dener misiniz?

Birkaç gün içinde tahminen cumartesi günü, gif video çekip yükleyeceğim.

 

[hakki83]

Kodlarınızın başına Application.DisplayAlerts=false yazıp sonuna Application.DisplayAlerts=True yazıp deneyin.

Bunu da denedim.
Normalde silinme yok, fakat sayfadaki kodları bloklayıp yeşile dönüştürünce, kaydedip kapattığımda ve açtığıöda, hepsi siliniyor. Sizde de durum aynı mıdır?

 

[Ümit Bakacak]

Dosyanızın uzantısının .xlsm olması da yetmez.
Önceki mesajda yazdığım şu cümle önemli:
"Daha sonra vba üzerinde çalışan en az 1 SATIR kod olmalıdır."
Yani siz bütün satırları yorum satırı olarak işaretlediğinizde dosyanızda çalışan kod kalmamış demektir.
Yorum satırı olarak işaretlenMEMİŞ en az bir satır kod olmalıdır.
En azından boş bir prosedür oluşturun. Dursun bir kenarda.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[hakki83]

Dosyanızın uzantısının .xlsm olması da yetmez.
Önceki mesajda yazdığım şu cümle önemli:
"Daha sonra vba üzerinde çalışan en az 1 SATIR kod olmalıdır."
Yani siz bütün satırları yorum satırı olarak işaretlediğinizde dosyanızda çalışan kod kalmamış demektir.
Yorum satırı olarak işaretlenMEMİŞ en az bir satır kod olmalıdır.
En azından boş bir prosedür oluşturun. Dursun bir kenarda.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Ubak hocam teşekkürler
Peki sizde de aynı durum oluyor mu? Sayfa kısmında blokladığınız kodlar siliniyor mu?

 

[Ümit Bakacak]

Sizde nasılsa bende de durum aynıdır.

 

[hakki83]

Sizde nasılsa bende de durum aynıdır.

Hocam o zaman sorun yoktur. Rahatladım. Ben de bir virüs marifeti gibi bir şey diye düşünmüştüm.

Sadece bende oluyor sanmıştım.

Sub aa(): End Sub

Tavsiyeniz olan şu kodu da her zaman sabitleyeceğim.