Soru Farklı Dosyadan Çekilen Verilerin Değişmesini Engelleme

Bakigemlik

Altın Üye
Katılım
16 Ocak 2013
Mesajlar
679
Excel Vers. ve Dili
2010 Türkçe
Altın Üyelik Bitiş Tarihi
01-12-2028
Merhaba,

Sitedeki daha önce yayınlanmış konulardan bulduğum aşağıdaki kod ile farklı bir dosyadan verileri alabiliyorum.
Bu verileri farklı bir bilgisayardan çekmek, çektikten sonra da çektiğim dosyada değişiklik yapmayı engellemek için nasıl bir yol izlemeliyim,

Teşekkürler


Kod:
Sub Resim2_Tıkla()
Set uygulama = CreateObject("Excel.Application")
Set dosya = uygulama.Workbooks.Open("C:\deneme\mesai")
son = [a65536].End(3).Row
sonsat = dosya.Sheets("veri").[a65536].End(3).Row
If son = sonsat Then
MsgBox "Yeni veri mevcut olmadığından aktarma yapılmamıştır."
GoTo 10
End If
[a2:o65536].ClearContents
Range("a2:o" & sonsat) = dosya.Sheets("veri").Range("a2:o" & sonsat).Value
MsgBox "Veri alma işlemi tamamlandı."
10 dosya.Close
uygulama.Quit
End Sub
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Sayfa koruması uygulayarak verileri koruma altına alabilirsiniz. Forumda korumayla ilgili bolca örnek var. Arama yaparsanız ulaşabilirsiniz.
 

Bakigemlik

Altın Üye
Katılım
16 Ocak 2013
Mesajlar
679
Excel Vers. ve Dili
2010 Türkçe
Altın Üyelik Bitiş Tarihi
01-12-2028
Sayfa koruması uygulayarak verileri koruma altına alabilirsiniz. Forumda korumayla ilgili bolca örnek var. Arama yaparsanız ulaşabilirsiniz.
Korhan Bey, bilgilendirme için teşekkür ederim sayfa koruması ile denedim ama öyle yapınca varileri çekmiyor
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Koruma uygulanan işlemlerde önce koruma kaldırılır sonra işlem yapılır ve sonrasında tekrar koruma işlemi uygulanır. Bu yapıya uyarsanız sorun çıkmaması gerekir.
 

Bakigemlik

Altın Üye
Katılım
16 Ocak 2013
Mesajlar
679
Excel Vers. ve Dili
2010 Türkçe
Altın Üyelik Bitiş Tarihi
01-12-2028
Korhan Bey, amacım burada farklı bir bilgisayardan veriyi çekmek, çektiğim veri ile ilgilide kullanıcı hiç bir şekilde değiştirmeden excel de bir hesaplama yapmak. Bu nedenle veriyi çekerken bu korumayı ya da başka bir yolla kullanıcının değiştirmesini engellemek. cevabınız için teşekkürler,
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Başka bilgisayara erişim yetkiniz varsa yani aynı ağ üzerindeyseniz yolu tanımlayarak dosyadan veri alabilirsiniz.
 

Bakigemlik

Altın Üye
Katılım
16 Ocak 2013
Mesajlar
679
Excel Vers. ve Dili
2010 Türkçe
Altın Üyelik Bitiş Tarihi
01-12-2028
dosyadan sorun alma kısmında sorun yok alabiliyorum, sorunum aslında tam olarak burada başlıyor,
"x" bilgisayarda veriler giriliyor ben bu verileri "y" bilgisayarına alıyorum. ama "y" bilgisayarına aldığım verilerin kullanıcı tarafından değiştirilmemesini istiyorum. SAyfa koruma yaptığımda kodlarla veriyi çekince hata veriyor. Ben verileri çekip bu verilerin değiştirmeye engellemek istiyorum,
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Genel kod yapısı aşağıdaki gibi olmalıdır. Kendi kodlarınızı buna göre uyarlarsınız. Şifreyi de değiştirebilirsiniz.

C++:
Sub Test()
Sheets("Sayfa1").Unprotect 12345
Rem Veri aktarımı yapan kodlarınızı buraya yazınız.
Sheets("Sayfa1").Protect 12345
End Sub
 

Bakigemlik

Altın Üye
Katılım
16 Ocak 2013
Mesajlar
679
Excel Vers. ve Dili
2010 Türkçe
Altın Üyelik Bitiş Tarihi
01-12-2028
Teşekkürler Korhan Bey,
 
Üst