Makro Sorunu

[menderes01]

Arkadaşlar kolay gelsin

excel çalışma sayfasına buton ile makro uyguladım "sayfadaki 0 olan verileri göster/gösterme"diye iki buton ekledim çalışmalarında problem yok yalnız sayfayı korumaya almam gerekiyor o zaman hata veriyor butonlar size zahmet yardımcı olabilirseniz

 

[Muzaffer Ali]

Kodun en başına korımayı kaldırmak için
worksheets("SayfanızınAdı").unprotect "şifreniz"

kodun en sonuna yeniden koruma yapmak için
worksheets("SayfanızınAdı").protect "şifreniz"

satırlarını ekleyin.

 

[menderes01]

Kodun en başına korımayı kaldırmak için
worksheets("SayfanızınAdı").unprotect "şifreniz"

kodun en sonuna yeniden koruma yapmak için
worksheets("SayfanızınAdı").protect "şifreniz"

satırlarını ekleyin.

kodu uyguladım yalnız şöyle bir sorun çıkıyor sayfayı aç kapa yapıyor ama sayfayı koruduğunda sadece kilidi açılmış hücreleri seç işaretli bana otomatik filitre kullanma işlemide işaretli olması gerekiyor

 

[Muzaffer Ali]

Sayfayı bir defaya mahsus siz manuel olarak istediğiniz ayarlarda koruma yapın.

Ondan sonra kodlar ayarı değiştirmeyecektir.

 

[menderes01]

Sayfayı bir defaya mahsus siz manuel olarak istediğiniz ayarlarda koruma yapın.

Ondan sonra kodlar ayarı değiştirmeyecektir.

uyguluyorum ama ne yaptıysam hep başa döndü aynı şekilde devam ediyor

 

[Muzaffer Ali]

Aşağıdaki şekilde yapın.

'En üst Satıra
worksheets("SayfanızınAdı").unprotect "şifreniz"

'En Alt satıra.
worksheets("SayfanızınAdı").protect Password:="şifreniz", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True

Yinede olmazsa dosyanızı ekleyin üzerinde bakalım.

 

[AdemCan]

Merhaba,
Sn. dalgalikur'un 4 numaralı mesajda belirttiği gibi, önce Sayfa Koruma Şifresini tanımlayınız.

Sayfaya Koruma Şifresi vermek için
Sekme ismi üzerinde Sağ Tuş \ Sayfayı Koru komutu ile şifre belirleyiniz, örnek olarak 123 yazınız.

Sonra bu şifreyi Sn. dalgalikur'un paylaştığı kodda çift tırnak içine yazınız.

'En üst Satıra
worksheets("SayfanızınAdı").unprotect "123"

'En Alt satıra.
worksheets("SayfanızınAdı").protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True

 

[Muzaffer Ali]

Merhaba,
Sn. dalgalikur'un 4 numaralı mesajda belirttiği gibi, önce Sayfa Koruma Şifresini tanımlayınız.

Sayfaya Koruma Şifresi vermek için
Sekme ismi üzerinde Sağ Tuş \ Sayfayı Koru komutu ile şifre belirleyiniz, örnek olarak 123 yazınız.

Sonra bu şifreyi Sn. dalgalikur'un paylaştığı kodda çift tırnak içine yazınız.

'En üst Satıra
worksheets("SayfanızınAdı").unprotect "123"

'En Alt satıra.
worksheets("SayfanızınAdı").protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True

En son yazdığım kodları kullanması yeterli. Manuel koruma yapması yada herhangi bir ayar yapması gerekmiyor.

 

[menderes01]

En son yazdığım kodları kullanması yeterli. Manuel koruma yapması yada herhangi bir ayar yapması gerekmiyor.

çok sagolun işe yaradı