Change Link yaparken şifreli dış kaynak için password istiyor

Katılım
27 Mayıs 2019
Mesajlar
6
Excel Vers. ve Dili
2020 ingilizce
Merhaba,

Dış kaynağı olan ana excelim için makro yazdım. Bu makro önce excelimi açıyor. Daha sonra eski ve yeni link adları olarak girdiğim değerlere göre change links yapıyor.

Ancak; change links yapacağım, yani yeni link olarak atayacağım dış excel şifreli ve password dialog box çıkıyor. Bu sebeple makro ilerlemiyor. Linkleri update etmesine gerek yok. Sadece değiştirip çıkmak istiyorum. Application.Displayalert= False'u da ekledim. Fakat yine geliyor password dialog box.


Sub linkchange()

Dim Eski As Variant, Yeni As Variant
Dim WB_Cari As Workbook
Dim wb As String

wb = Range("C1").Text
Set WB_Guncelle = Workbooks.Open(wb, Password:="WAS", UpdateLinks:=0) 'Bu exceldeki C1 hücresini WB_Guncelle olarak değişkene ata

Workbooks("Link Update.xlsm").Activate
Sheets("Comparative").Range("B3").Activate

Do While Not IsEmpty(ActiveCell)


Eski = ActiveCell.Offset(0, 0).Text
Yeni = ActiveCell.Offset(0, 1).Text

WB_Guncelle.ChangeLink Eski, _
Yeni, xlExcelLinks

ActiveCell.Offset(0, -1) = "Ok"
ActiveCell.Offset(1, 0).Select

Loop

End Sub
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,332
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Bu işlemi yaparken parola korumalı dış kaynağı açmayı denediniz mi?
 
Katılım
27 Mayıs 2019
Mesajlar
6
Excel Vers. ve Dili
2020 ingilizce
Bu işlemi yaparken parola korumalı dış kaynağı açmayı denediniz mi?
Bu şekilde sorun yok. Ancak 100 tane link var ve hepsi korumalı. Önce hepsini açıp sonra change links yapmak çok zor. Password dialog box'ı ekarte edebilsem sorun kalmayacak. Çünkü linki change etmesi yeterli, update'e gerek yok.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,332
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Parolaları aynı ise çok sorun olacağını zannetmiyorum.
 
Üst