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

[Bakigemlik]

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

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]

Sayfa koruması uygulayarak verileri koruma altına alabilirsiniz. Forumda korumayla ilgili bolca örnek var. Arama yaparsanız ulaşabilirsiniz.

 

[Bakigemlik]

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]

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]

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]

Başka bilgisayara erişim yetkiniz varsa yani aynı ağ üzerindeyseniz yolu tanımlayarak dosyadan veri alabilirsiniz.

 

[Bakigemlik]

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]

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.

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]

Teşekkürler Korhan Bey,