Run-time error '1004' Hatası hakkında

ATEMİ

Altın Üye
Katılım
9 Ocak 2006
Mesajlar
315
Excel Vers. ve Dili
Office 365 Türkçe
Merhaba,
TCMB den veri çekmek için aşağıdaki gibi bir kod buldum ve aynı çalışma sayfası içinde ikinci bir sayfaya kopya ederek uyarladım.
Sorunsuz çalıştı ta ki sayfayı korumaya alana kadar. şöyle bir hata verdi;

Run-time error '1004'
Değiştirmeye çalıştığınız hücre ya da grafik korumalı sayfada.
Değişiklik yapmak için sayfanın korumasını kaldırın. parola girmeniz istenebilir.



Sub PEAKUP_TCMB_TUM_KURLAR()
Dim xml As Object, adres As String, tablom As Object, sat As Byte
Range("A2:G22") = ""
Set xml = CreateObject("MSXML2.DOMDocument")
xml.async = False
xml.validateOnParse = False
adres = "https://www.tcmb.gov.tr/kurlar/today.xml"
xml.Load adres
Set tablom = xml.SelectNodes("//Currency[CurrencyName='EURO' or CurrencyName='USD']")
Set tablom = xml.SelectNodes("//Currency")
If tablom.Length = 0 Then GoTo cik:
sat = tablom.Length - 1
For i = 0 To sat
Cells(i + 2, 1) = tablom(i).ChildNodes(1).Text
Cells(i + 2, 2) = tablom(i).ChildNodes(3).Text
Cells(i + 2, 3) = tablom(i).ChildNodes(4).Text
Cells(i + 2, 4) = tablom(i).ChildNodes(5).Text
Cells(i + 2, 5) = tablom(i).ChildNodes(6).Text
Next
cik:
Set tablom = Nothing: Set xml = Nothing: adres = vbNullString: sat = Empty
End Sub
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,196
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

Sub satırından sonra;
ActiveSheet.Unprotect "şifreniz"


End Sub satırından önce;
ActiveSheet.Protect "şifreniz"

ekleyip deneyiniz. "şifreniz" kısımlarına kendi şifrenizi yazarsınız.
 

ATEMİ

Altın Üye
Katılım
9 Ocak 2006
Mesajlar
315
Excel Vers. ve Dili
Office 365 Türkçe
Ömer Bey teşekkür ederim oldu ancak kendi şifremi eklediğimde
Yazdığınız parola doğru değil diye bir hata veriyor
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,196
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Şifreniz değişmiş olabilir. Önce sayfa koruma şifresini elle kaldırın. Daha sonra kodları çalıştırarak deneyin.
 

ATEMİ

Altın Üye
Katılım
9 Ocak 2006
Mesajlar
315
Excel Vers. ve Dili
Office 365 Türkçe
Ömer bey şöyle bir şey oluyor.
Sayfayı koru dediğimde şifresiz koruma olduğunda hiç sıkıntı olmuyor gayet güzel çalışıyor
ancak sayfayı koruya özel şifre yazdığımda bu hatayı alıyorum
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,196
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Denedim, bir sorun olmaması gerekir. Hata aldığınız örneği ekleyebilirseniz iyi olur.

Ekte uygulanmış dosya mevcut. Şifre 123

.
 

Ekli dosyalar

ATEMİ

Altın Üye
Katılım
9 Ocak 2006
Mesajlar
315
Excel Vers. ve Dili
Office 365 Türkçe
Ömer bey şimdi anladım basit bir hata yapmışım "şifresiz" yazan yeri değiştirmedim oysa "123" gibi şifre belirlemem gerekiyordu.
denedim oldu
ilginiz için çok teşekkür ederim sağlıcakla kalın
 
Üst