Komşu Verileri Geri Almak Nasıl? “Çalışma kitabını kaydetmeden önce verileri harici veri aralığından kaldırın” kullandıktan sonra -

Her kullanıcıya özgü verileri döndüren bir sorgu ile SQL Server'dan gelen harici bir veri tablosuna sahip bir elektronik tablo var. Bu dosyaya bir kez indirmesini ve sonra bağlantısını kesmesine izin vermek için talimatlar koydum.

Maalesef bir kullanıcı, tamamıyla bir veri yığını ekledi, “kurtardı” ve çalışmalarını kaybetti.

Verileri geri almanın bir yolu var mı?

Üzgünüm, şansınız tükendi. "Çalışma kitabını kaydetmeden önce verileri harici tarih aralığından kaldır" seçeneğine sahip olduğunuzdan, eklenen verilerin hiçbir zaman kaydedilmediğini ve kullanıcının verilerini alabileceği bir yer olmadığını kontrol ettiğinizden emin olun.

Bu tür bir kazanın ilerlemesini önlemek için çalışma kitabını önceden etkin değilse makro etkin (.xlsm) olarak değiştiririm ve tablonun bağlantısız olup olmadığını görmek için BeforeSave olayına bir kontrol eklerdim.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   Dim sMsg As String

   ' Assuming the data table is the first table on the first worksheet
   With Worksheets(1).ListObjects(1)  

      If .SourceType <> xlSrcRange Then
         sMsg = "Any changes you've made to the table won't be saved unless you unlink from the database!" _
               & vbCrLf & vbCrLf & "Do you want to unlink?"
         If MsgBox(sMsg, vbExclamation + vbYesNo) = vbYes Then
            .Unlink
         End If
      End If

   End With

End Sub