AccessTr.neT

(28/05/2020, 22:33)feraz yazdı: [ -> ]Uyarı medajlarının arasına sadece clıse yada save kodları eklenecek.

Hocam  save kodu Berduş Hocamın Koduna aşağıdaki şekilde ekledim yine Maus imleci UserForm dışında sürekli meşgul durumda duruyor.

Private Sub Workbook_Open()

    If ActiveWorkbook.ReadOnly Then

        MsgBox "Bu dosya zaten kullanımda. Sonra tekrar deneyin."

'Workbooks.Count açık Excel dosyasının sayısını verir eğer 1 tane ise programı daha fazla ise sadece kitabı kapatır

        If Workbooks.Count = 1 Then Application.Quit Else ActiveWorkbook.Close

     ActiveWorkbook.Save

    End If

End Sub 

1 - Anlamadığım şey neden salt okunur açılmış bir Excel dosyasını kaydetmek istiyorsunuz?
2 - önce kapatıp sonra kaydetmeye calisiyorsunuz, o nedenle hatalı olabilir
@feraz beyin belirttiği gibi kodu

Workbook.Close true

şeklinde yazmalisiniz

---

Ama bence

Workbook.Close False

olmalı çünkü salt okunur dosyayı ancak farklı bir ad ile kaydedebilirsiniz ama zaten amacınız acilir açılmaz kapatmak olduğu için bu kod daha doğru olur

---

(29/05/2020, 00:32)m_demir yazdı: [ -> ]Maus imleci UserForm dışında sürekli meşgul durumda duruyor.

bu sorun ne zamandan beridir var? Önerdiğimiz kapatma kodlarını yazdıktan sonra mi başladı, yoksa eskiden de var mıydı?

Hocam kodları sizin dediğiniz şekilde ekledim hara verdi acaba yanlış mı ekledim bakabilirmisiniz.

dün eklemiş olduğunuz son dosyayı incelediğimde bahsettiğiniz mouse sorununa rastlamadım
çalışmanızda rastladığım tek sorun Workbook_BeforeClose olayında kullanmış olduğunuz

If Val(deg) = 0 Then 'Excel X kapatmayı engellemek

'MsgBox "Lütfen ÇIKIŞ Butonunu Kullanınız.", vbCritical

Cancel = True

End If

kodu bu kodu silince bende hata vermeden kapandı
aşağıdaki örnek dün eklemiş olduğunuz çalış üzerinde yapılmıştır

Hocam X dan kapanma kodlarını engellemeyi kaldıracam.

Hocam kapanmıyor gizleniyor. Salt okunur olarak açmak istediğimiz zaman tamamları tıkladıktan sonda kapanıyor gibi görünüyor ama görev yöneticisinde kalıyor. Arka planda açık kalıyor. İkinci defa salt okunur olarak açmak istediğimiz zaman dosya zaten açık uyarısını veriyor ve dosyayı açıyor.

Ben kaç defa denedim yukledigim dosyayı sorun çıkarmadı, yukledigim dosyada hangi adımları izlediniz tek tek yazar mısınız, Uygun bir zamanda deneyeyim.