Koruma Kaldırıp tekar Verme !

[HD1975]

Merhaba ;

Sayfa6'da dış verileri aldığım bir tablom var.
Bu tabloda formüllere müdahale olmasın diye koruma yapıyorum.Yalnız korumalı
sayfada dış verileri al seçeneği çalışmıyor.

Burada aşağıdaki yenileme kodunun içine bu yenilemeyi yapmadan önce
sayfa korumasını kaldıracak sonra dış verileri yenileyecek sonrada tekrar
sayfayı korumaya alacak.

Sub borcalacak1()
Sheets("Sayfa6").Range("A4").QueryTable.Refresh BackgroundQuery:=True
End Sub


Yardımlarınızı bekliyorum.


Saygılar

 

[ahmet kabadayı]

Merhaba ;

Sayfa6'da dış verileri aldığım bir tablom var.
Bu tabloda formüllere müdahale olmasın diye koruma yapıyorum.Yalnız korumalı
sayfada dış verileri al seçeneği çalışmıyor.

Burada aşağıdaki yenileme kodunun içine bu yenilemeyi yapmadan önce
sayfa korumasını kaldıracak sonra dış verileri yenileyecek sonrada tekrar
sayfayı korumaya alacak.

Sub borcalacak1()
Sheets("Sayfa6").Range("A4").QueryTable.Refresh BackgroundQuery:=True
End Sub


Yardımlarınızı bekliyorum.


Saygılar

Aşağıdaki satırları deneyiniz.

Saygılarımla

Sub borcalacak1()

Sheets("Sayfa6").Unprotect Password:="şifreniz"
Sheets("Sayfa6").Range("A4").QueryTable.Refresh BackgroundQuery:=True
Sheets("Sayfa6").protect Password:="şifreniz"

End Sub

 

[fedeal]

Sub borcalacak1()
ActiveSheet.Unprotect
Sheets("Sayfa6").Range("A4").QueryTable.Refresh BackgroundQuery:=True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

olurmu bilmiyorum deneyin isterseniz(şifre girmiyorsanız belki olur.)

 

[HD1975]

Tam olmadı.

Aşağıdaki satırları deneyiniz.

Saygılarımla

Sub borcalacak1()

Sheets("Sayfa6").Unprotect Password:="şifreniz"
Sheets("Sayfa6").Range("A4").QueryTable.Refresh BackgroundQuery:=True
Sheets("Sayfa6").protect Password:="şifreniz"

End Sub

Merhaba ;

Korumayı kaldırıyor,verileri yenilemeye başlıyor ama bitmeden sayfa
korumalıdır diyor.

Sanırım veri yenilemesi bitmeden tekrar korumayı kapatıyor.Bu aradada
hücrelere yazmayı denediğinden olmuyor.

Arada bir süre gerekiyor

Saygılar

 

[HD1975]

Cevap .....

CEvap Yokmu

 

[fedeal]

Sub borcalacak1()
Sheets("Sayfa6").Unprotect Password:="şifreniz"
Sheets("Sayfa6").Range("A4").QueryTable.Refresh BackgroundQuery:=True
fd = Time + "0,000176775"
Application.OnTime TimeValue(fd), "fdl"
End Sub
Sub fdl()
Sheets("Sayfa6").Protect Password:="şifreniz"
End Sub

korumayı yaklaşık 20 saniye sonra koyacak. işinize yarar umarım.

 

[HD1975]

çok güzel olmuş.....

Teşekkür ederim çok güzel olmuş ;

Yalnız koruma seçeneklerini sıfırlıyor.
Bunu nasıl engelleyebilirim.
Otomatik filtre kullan gibi seçenekler gerekli bunları ilk varsayılan haline geri
getiriyor.

Saygılar

 

[fedeal]

Teşekkür ederim çok güzel olmuş ;

Yalnız koruma seçeneklerini sıfırlıyor.
Bunu nasıl engelleyebilirim.
Otomatik filtre kullan gibi seçenekler gerekli bunları ilk varsayılan haline geri
getiriyor.

Saygılar

ricaederim işinize yaradıgına sevindim, ancak neden sıfırlanıyor hiçbir fikrim yok.

 

[fedeal]

Sub borcalacak1()
Sheets("Sayfa6").Unprotect AllowFiltering:=True, Password:="şifreniz"
Sheets("Sayfa6").Range("A4").QueryTable.Refresh BackgroundQuery:=True
fd = Time + "0,000176775"
Application.OnTime TimeValue(fd), "fdl"
End Sub
Sub fdl()
Sheets("Sayfa6").Protect Password:="şifreniz"
End Sub

olcagına emin değilim ama bir deneyin otomatik filitre kullanı yaptım örnek olarak.

 

[fedeal]

Sub borcalacak1()
Sheets("Sayfa6").Unprotect Password:="1234"
fd = Time + "0,000176775"
Application.OnTime TimeValue(fd), "makro33"
End Sub
Sub makro33()
Sheets("Sayfa6").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True, Password:="1234"
End Sub

oldu galiba

 

[HD1975]

Yine eksik ??

Filtreler çalıştı ama bu seferde dış veri al diyince hücrelere müdahale izni
olmadığı için yeni bilgileri ekleyemiyor.

Bu koruma tablosundaki seçneklerin vba kodlarını nerden bulabiliriz onları
tek tek yazsak olacak sanırım.

Saygılar

 

[fedeal]

tamamını diyorsanız

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True

kod bu çıkıyor.

 

[HD1975]

tamamını diyorsanız

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True

kod bu çıkıyor.

Teşekkür ederim.