(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 