Bir çalışma kitabında herhangi bir değişiklik yapılıp yapılmadığının tespiti

[tamer42]

Merhaba,

Açık olan bir çalışma kitabının son kaydedildikten sonra herhangi bir değişiklik yapılıp yapılmadığını makro ile nasıl tespit edebiliriz?

özetle yeni kayıt edecek bir durum olup-olmadığının tespiti

Teşekkürler,
iyi akşamlar.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kod eğer FALSE değerini döndürürse dosyada kaydedilmemiş değişikliklerin olduğunu gösterir.

Eğer hiçbir değişiklik olmamışsa TRUE değerini döndürecektir.

Sub Test()
    MsgBox ActiveWorkbook.Saved
End Sub

 

[tamer42]

Merhaba,

Aşağıdaki kod eğer FALSE değerini döndürürse dosyada kaydedilmemiş değişikliklerin olduğunu gösterir.

Eğer hiçbir değişiklik olmamışsa TRUE değerini döndürecektir.

Sub Test()
    MsgBox ActiveWorkbook.Saved
End Sub

Korhan Hocam çok teşekkürler, yalnız aşağıdaki kodda her durumda çalışıyor, bunu çözemedim, dosyaya yeni bir kayıt yoksa makro çalışmasın istiyorum.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

  If ActiveWorkbook.Saved = True Then
  
      Call Module1.Sayfa_Birlestir
        
   End If
   
End Sub

 

[Korhan Ayhan]

Eşitlikteki TRUE değerini FALSE olarak ayarlayıp deneyiniz.

 

[tamer42]

Eşitlikteki TRUE değerini FALSE olarak ayarlayıp deneyiniz.

Teşekkürler Korhan Hocam