Soru Excelde sayfayı korumaya almak

[sebahattin]

Selamun Aleyküm dostlar.Ekte bulunan dosyada kurban satış FORMU DIYE sayfam var kurban satıs FORMU sayfamı sayfa koruma şifresi ile formüllerin ve sayfada olan makroların düzgün çalışması için sayfa kurban satışını korumak şifresi ile korumak istiyorum (sayfa şifre koruması: durusu)

 

[volki_112]

Selamun Aleyküm dostlar.Ekte bulunan dosyada kurban satış FORMU DIYE sayfam var kurban satıs FORMU sayfamı sayfa koruma şifresi ile formüllerin ve sayfada olan makroların düzgün çalışması için sayfa kurban satışını korumak şifresi ile korumak istiyorum (sayfa şifre koruması: durusu)

İlgili sayfada calisan kodlarin basina ve sonuna bunu ekleyiniz.

Başına eklenecek
ThisWorkbook.Worksheets("KURBAN SATIŞ FORMU").Unprotect "durusu"

Sonuna eklenecek
ThisWorkbook.Worksheets("KURBAN SATIŞ FORMU").Protect "durusu"

 

[sebahattin]

hocam yapamadı Sayfada sayfa koruması olabilir sifre (durusu)3 saat oldu bütün satırlarda denedim sonuç alamadım bu konuda cevaplarınızı bekliyorum ALLAH 'emanet olunuz

 

[volki_112]

hocam yapamadı Sayfada sayfa koruması olabilir sifre (durusu)3 saat oldu bütün satırlarda denedim sonuç alamadım bu konuda cevaplarınızı bekliyorum ALLAH 'emanet olunuz

hocam senin ne yapmak istediğini anlayamıyorum. şu an sayfanda koruma var. bu koruma kodların çalışmasına engel mi oluyor. eğer engel oluyorsa çalışmayan kodun başına

ThisWorkbook.Worksheets("Kurban Satıs Formu").Unprotect "durusu" yazın kodun başında sayfadaki korumayı kaldırır. kodun sonuna da alttakini yazın. End Sub kısmından önce. böylece işlemler bitince koddan çıkmadan sayfa korumasını tekrar aktif yapar.
ThisWorkbook.Worksheets("Kurban Satıs Formu").Protect "durusu"

 

[sebahattin]

Excel veb çalışanlarına vermiş olduğu hizmetten dolayı tesekkur ederiz sayfa koruma tamamdır.