Kilitli excel dosyası

[muratgunay48]

Sayın hocalarım, bir arkadaşın isteği üzerine bu dosyayı yapmıştım. (hatta gün kısmını burada sormuştum)
Hafta kısmını yanlış yapmışım. Ancak açamıyorum. Yardımcı olabilir misiniz.
Şimdiden teşekkür ederim.
Saygılarımla.

 

[Muzaffer Ali]

Yeni bir Excel dosyası açın, Makro güvenlik seviyesini yükseltip makroların otomatik çalışmasını engelleyin.

 

[muratgunay48]

Yeni bir Excel dosyası açın, Makro güvenlik seviyesini yükseltip makroların otomatik çalışmasını engelleyin.

Tamamdır hocam. Teşekkür ederim.

 

[uzmanamele]

Merhaba

Paylaşılan dosyada aşağıdaki kodlar varsa çok itici ve yanlış olduğunu hatırlatmak isterim.
Application.Quit
Application.Visible = False

Kazara dahi olsa bu tür dosyaları eklemeyin.
Dosyayı indiren kullanıcının uzun süre üzerinde çalıştığı dosya varsa sizin kodlar tüm exceli kapattığı için tüm çalışması heba olabilir.
Size tavsiyem ek dosyayı indirdikten sonra eklediğiniz dosyayı silmeniz.

 

[uzmanamele]

Aslında hiç müdahale etmeyip, yazdığınız gereksiz kodun kurbanı olmanızı izlemek lazımdı.

 

[muratgunay48]

Aslında hiç müdahale etmeyip, yazdığınız gereksiz kodun kurbanı olmanızı izlemek lazımdı.

Hocam, ilginize teşekkür ederim. Ben bu şekilde yaparsam, hiç değilse "excel göster" butonu koyarım. Dediğim gibi arkadaşım bu şekilde istemişti.
Yararlı tavsiyeleriniz için teşekkür ederim. Varolun.

 

[Muzaffer Ali]

Application.Quit yerine başka açık dosya varsa sadece bu dosyanın kapatılması için.
if Application.workbooks.count = 1 then
Application.Quit
else
thisworkbook.close
end if

 

[muratgunay48]

Application.Quit yerine başka açık dosya varsa sadece bu dosyanın kapatılması için.
if Application.workbooks.count = 1 then
Application.Quit
else
thisworkbook.close
end if

Çok teşekkür ederim hocam. Ben hep diğerini kullanıyordum.