Read Only olan dosyada kayit...

[TRUSA]

Arkadaslar Merhaba,

Form uzerinden Excel de islemler yaptiriyorum. Fakat her kullanici kayit yapamiyor sadece okuyabiliyor. Sorunum surada : Read Only olarak acilan bilgisayarlarda cikis butonu ile cikarken hata veriyor cunku asagidaki belirttigim gibi, kapanmadan once kaydetmeye calisiyor..
.
.

ThisWorkbook.Save
Application.Quit
.
.
Nerde yanlis yapiyorum yada ne yapmaliyim acilen yardimlariniz bekliyorum..

Ayrica excel sheetten cikarken yapilan degisiklikleri kaydetebilirmiyim sorusunun cikmamasini nasil saglayabilirim..

Yardimlariniz ve paylasimciliginiz icin simdiden tesekkurler...

 

[emrexcel123]

ThisWorkbook.Save

ThisWorkbook.Save - bu kod sayfayı kaydetme kodudur
Application.Quit - bu kod sayfayı kapatır...
sorununu tam olarak açıklar mısın?

 

[TRUSA]

Selam emrexcel123,

Evet zaten sorun burada. Acilan excel dosyasi Read Only yani sadece okumak icin aciliyor. Fakat form uzerine koydugum cikis butonuna bastigimizda sayfayi kaydetmeye calisiyor. Ama Read Only oldugu icin kaydetme islemini yapamiyor ve macro hata veriyor. Bunu nasil engelleyebilirim?
Yani acilan sayfa Read Only ise cikis butonuna bastigimizda sayfayi kaydetmeden ciksin ve degisiklikleri kaydedeyimmi diye sormasin..

Tekrar hizli geribildirim ve paylasimciligin icin tesekkurler...

 

[Orion1]

Merhaba.
Thisworkbook.save komutunu kaldırırsanız.
Kaydetmeden Excel'den çıkılır.
Yalnız dosyayı kapatmak istiyorsanız Application.Quti de kaldırıp Thisworkbook.close false
komutunu kullanınız.

 

[emrexcel123]

salt

gerçi sn sezar cvp vermiş ama ben senin kodları bildiğini tahmin etmiştim.
arkadaşım dosya salt okunur olduğu için sadece gözlem yapabiliyorsun bu dosyayı farklı kaydedip bir kopya oluştur bakalım aynı sorun devam edecek mi?
ayrıca dosyayı ekleyebilir misin?...

 

[TRUSA]

Arkadaslar Merhaba,
Dosya yanimda olmadigi icin ekleyemiyorum. Normal kisisel bir bilgisayarda sorun gorunmuyor.Dosyayi calistirdiginda excel sheetler gorunmuyor sadece form uzerinden islem yapiliyor.
Dosya bircok kullanicinin oldugu bir drive e yuklendi. Fakat buradaki dosyaya herkesin erisim hakki yok. IS departmani tarafindan bazi kisilere okuma ve yazma hakki verildi. Bazilarida sadece dosyayi okuyup icindeki datalari inceleyebiliyor. Okuma ve yazma erisim hakki olanlar icin herhangi bir sorun yok. Fakat erisim hakki olmayanlar dosyayi actigi zaman "dosyaismi[ReadOnly]" olarak aciliyor. Erisim hakki olanlar data girebiliyorlar ve cikis butonu vasitasiyla dosyadan cikarken yukarida yazdigim komutlar ile once dosyayi kaydediyor sonrada dosyadan cikiyor. Sadece okumak icin girenler ise gerekli datalari inceledikten sonra yine cikis butonu ile cikmaya calisiyorlar ve sorun basliyor. Cunku read only oldugundan dosyayi kaydedemiyor ve hata veriyor.
Benim istegim, dosya Read Only olarak acilirsa ThisWorkbook.Save komutu devre disi kalsin ve Application.Quit komutu ile cikarkende degisiklikleri kaydedeyim mi sorusunu sormadan dosyayi kapatsin...

Sizlerin yardimlari sayesinde bu problemi cozecegimizi umut ediyorum..

Tesekkurler arkadaslar...

 

[Orion1]

Merhaba.
Aşağıdaki gibi denermisiniz?

on error goto salt_okunur
ThisWorkbook.Save
Application.Quit 
exit sub
salt_okunur:
application.Quit

 

[emrexcel123]

bu kodu dene bakalım

Sub read()
If ActiveWorkbook.ReadOnly Then
Application.Quit
End Sub

 

[TRUSA]

Arkadaslar cok tesekkur ederim...
Son bir yardim..
Peki Application.Quit ile cikarken, degisiklikleri kaydedeyim mi sorusu cikiyor mu cikiyorsa bunu nasil engelleriz ?
Yardimlariniz icin tesekkurler..

 

[Orion1]

Merhaba.
sizin yazdığınız kodlarda çıkmaz .Çıkarsa ;
Application.Quite satırının bir üst satırına bu satır koyun.

Application.DisplayAlerts = False

 

[Levent Menteşoğlu]

Sn Sezar'ın önerdiği şekilde aşağıdaki kodu deneyin. Bu komut ile çıkarken uyarı mesajıda çıkmaz.

ThisWorkbook.close false

 

[TRUSA]

Arkadaslar Merhaba,

Henuz kodlari deneme firsati bulamadim ama olacagina eminim...Yardimlariniz icin hepinize ayri ayri tesekkur ederim..

Iste bu forum bir kez daha gosterdi farkliligini...

Tesekkurler...