Excel'de sayfa bağlantılarını kaldırmak

[starmetin]

Selam Arkadaşlar,
Bir Excel dosyasını açtığım zaman "Açtığınız çalışma kitabı başka bir çalışma kitabındaki bilgiler otomatik bağlantılar içeriyor..." diye bir mesaj geliyor bu mesajdan nasıl kurtulabilirim...
teşekkürler arkadaşlar

 

[Necdet]

bağlantıyı keserek tabi

 

[class37]

Merhaba
Aşağıdaki Kodu bir modül içine kopyala çalıştırdığında dış bağlantı bulunan hücreleri mesaj olarak verir ve hücreyi sarı olarak işaretler.

Sub ExRef()
Dim MyRange As Range
Dim i As Integer, j As Integer, No As Integer
Dim MyMsg1 As String, MyMsg2 As String, MyMsg3 As String
Dim MyArray()
For i = 1 To Worksheets.Count
No = 0
For Each MyRange In Sheets(i).UsedRange
If InStr(1, MyRange.Formula, "[") Then
MyRange.Interior.ColorIndex = 6
No = No + 1
ReDim MyArray(1 To No)
MyArray(No) = Sheets(i).Name & " --- " & MyRange.Address(False, False)
For j = LBound(MyArray) To UBound(MyArray)
If MyArray(j) <> "" Then MyMsg2 = MyMsg2 & vbCrLf & MyArray(j)
Next
End If
Next
MyMsg1 = MyMsg1 & vbCrLf & Sheets(i).Name & " sayfasında " & No & " adet "
Next
MyMsg3 = "(Bulunan hücreler sarı renkle işaretlenmiştir.)"
MsgBox MyMsg1 & vbCrLf & WorksheetFunction.Rept("--", 20) & vbCrLf & "Dış bağlantılı hücre bulundu." _
& vbCrLf & vbCrLf & "Bulunan hücreler :" & vbCrLf & MyMsg2 _
& vbCrLf & vbCrLf & MyMsg3, , "Rapor !"
End Sub

 

[starmetin]

teşekkürler arkadaşlar sorunu çözdüm... :mutlu:

 

[hsayar]

teşekkürler banda bu lazımdı

 

[hsayar]

Sayın hocalarım 3. mesajdaki kodları bir menüye uygulamak ve o an çalıştırıldığı çalışma kitabı için yapmak mümkün mü?

 

[hsayar]

sarı renkle işaretlemek yerine komple kaldırmak için ne yapmalıyız

 

[Seyit Tiken]

Aşağıdaki gibi deneyiniz.

Sub bağlantıkes()
Application.AskToUpdateLinks = False
End Sub

 

[hsayar]

teşekkürler sn. seyit tiken