Macro ile read only açma ve kaydetmeden kapatma

[talatgorkem]

Merhaba arkadaşlar
Makro ile farklı excel lerden veri topluyorum.
Fakat makro her açtığı excel için read only açılsın mi soruyor ve her birini kapatirken de kaydedilsin mı diye soruyor.
Bu iki soruyu sormadan otomatik olarak read only açmasını ve kaydetmeden kapatmasını sağlamak için yardımlarınızı rica ederim.

Desteğiniz için şimdiden teşekkür ediyorum.

 

[vkonca]

Merhaba

.close yaptıktan sonra yanına False yazın.
Örneğin;
activeworkbook.close false veya Workbooks("ExcelDosyasi.xls").Close False

Şeklinde kullanırsanız hiç bir şey sormadan kapatır.

 

[Muzaffer Ali]

Merhaba.
Dosya açma ve kapatma kodlarınız paylaşın inceleyelim.

 

[talatgorkem]

Bu kadar hızlı donus yapılacağını tahmin etmemiştim

False durumu değiştirmiyor onu denemistim

Açılış için

Workbooks.Open Filename:= _
"Excel.xlsx", _
UpdateLinks:=3, Notify:=False


Kapanış için de

Windows ("Excel.xlsx").Activate
ActiveWindow.Closer


Desteğiniz için şimdiden teşekkür ederim.

 

[talatgorkem]

Konu ile ilgili bilgili birisi var mı
Yardimci olabilecek

 

[Muzaffer Ali]

Size dosya açma ve kapatma kodlarınızı paylaşın dedim ama siz hala paylaşmadınız.
Paylaştığınız kodlar sizin kullandığınız kodlar değil.
Bir dosyanın hangi kodlar ile açılıp kapandığını biliyoruz ama siz bunu nasıl yapıyorsunuz onu bilmemiz lazım ki kodlarınızda bir sorun varsa çözelim.

Kodları değil de kullandığınız dosyayı paylaşın kontrol edelim.

 

[talatgorkem]

Size dosya açma ve kapatma kodlarınızı paylaşın dedim ama siz hala paylaşmadınız.
Paylaştığınız kodlar sizin kullandığınız kodlar değil.
Bir dosyanın hangi kodlar ile açılıp kapandığını biliyoruz ama siz bunu nasıl yapıyorsunuz onu bilmemiz lazım ki kodlarınızda bir sorun varsa çözelim.

Kodları değil de kullandığınız dosyayı paylaşın kontrol edelim.

İş yerinin bilgisayarı üzerinde hazırladığım bir excel ve dışa dosya gönderimi bulunmuyor. Malesef dosyanın orjinalini paylaşma şansım bulunmuyor.
Açılış ve kapanış işlemlerini ekli kod ile sağlıyorum ve sadece klasör isimleri ile excel dosyasının ismini örnekledim.
Kodları manuel olarak elle yazmadim excel ı hazırlarken.
REC kısa yolu ile aşamaları kaydederek gerçekleştirdim.
Kapanış ve açılış kodları da bu şekilde çalışıyor.
Bu bilgilerle yardimci olabilirseniz sevinirim.

 

[Muzaffer Ali]

Verdiğiniz kodda herhangi bir sorun yok.
Bu kod ile dosya açtığınızda salt okunur uyarısı vermemesi gerekiyor.
Açmak istediğiniz dosya ağdaki başka bir bilgisayarda açık olabilir mi? Eğer açıksa bu uyarıyı verir.
Başka bir olasılık aklıma gelmiyor.

 

[talatgorkem]

Verdiğiniz kodda herhangi bir sorun yok.
Bu kod ile dosya açtığınızda salt okunur uyarısı vermemesi gerekiyor.
Açmak istediğiniz dosya ağdaki başka bir bilgisayarda açık olabilir mi? Eğer açıksa bu uyarıyı verir.
Başka bir olasılık aklıma gelmiyor.

Tüm excel ler şifreli vé bazılarında açık bazılarında kapalı oluyor.

Kapanışta da kaydedilsin mı sorusu icin False yazdım ama uyarı gelmeye devam ediyor.

 

[talatgorkem]

Tekrar merhaba,

UpdateLinks:=3, Notify:=False

Olan kısmı

UpdateLinks:=3, ReadOnly:=True

Olarak değiştirdim ve açılışta hiç uyarı vermeden read only açıyor.

Kapanış için önerileriniz var mı ???

Desteğiniz için şimdiden çok teşekkür ederim.

 

[talatgorkem]

Kapanış için de

Windows ("Excel.xlsx").Activate
ActiveWindow.Close

Olan kısmı

Windows ("Excel.xlsx").Activate
ActiveWorkbook.Saved=True
ActiveWindow.Close savechanges:=False

Olarak değiştirdim ve hiç bir sorun kalmadı.
Tek buton ile read only açıyor ve kaydetmeden kapatıyor. Hiç uyarı göstermiyor.

Desteğiniz için tekrar teşekkür ediyorum.