Sayfa korumasını makro ile..

[INSMUH]

Sayfa korumasını

'Sayfa Korumasını KALDIR
ActiveSheet.Unprotect Password:="123456" 'şifreyi çözer
'Sayfa Koruması ETKİN
ActiveSheet.Protect Password:="123456" 'şifreyi tekrar koyar

kodları ile yapıyorum, bu kodlar userformda sil, değiştir ve kaydet düğmelerinde bulunuyor, ancak bu kodlar ile sayfa koruması olduğu halde hücreleri seçebiliyorum ama değiştirme yapamıyorum,
Normalde önce bul ile istediğim satırı seçtiriyor, sonra değiştiriyordum, ancak bu şekilde hücre seçili olduğunda değiştir düğmesine tıklarsam seçili olan hücreyi değiştiriyor, bunun için bir çözüm yolu var mdır acaba?

Yada şu an aklıma gelen bir şey, bul düğmesini tıkladıktan sonra değiştir düğmesi aktif olsa? bu mümkün olabilir mi?
İyi çalışmalar,

 

[htsumer]

Merhaba INSMUH,
Ã?ncelikle sorunuzda tam olarak ne yapmak istediğinizi anlıyamadım.Biraz daha açarmısınız.

İkinci sorunuzda

bul düğmesini tıkladıktan sonra değiştir düğmesi aktif olsa? bu mümkün olabilir mi?

bu mümkündür.
Bul butonu CommandButton1 olsun
Değiştir butonu CommandButton2 olsun.

Private Sub UserForm_Initialize()
....

CommandButton2.Enabled = False
End Sub

Bul Butonunda bulunan kodların sonuna

...
Private Sub CommandButton1_Click()
..
CommandButton2.Enabled = True
End Sub

Düzeltme=True olarak

 

[INSMUH]

htsumer, teşekkür ederim. Bu şekilde hem yeni bir şey daha öğrendim hemde problemim çözüldü.
İyi Çalışmalar :hey:

 

[INSMUH]

'Sayfa Koruması ETKİN
ActiveWorkbook.Protect Password:="7659707" 'şifreyi tekrar koyar

Arkadaşlar yukarıdaki kodu auto_close da kullandığımda true/False ile ilgili debug hatası alıyorum,
Bu kodu (auto_close da olmak şartı ile, yani başka modüle yada sayfaya yazamam) sadece sayfa1, sayfa2, sayfa3 için özelliştirebilir miyim? Yani kitabı kapadığımda bu sayfalarda sayfa koruması olsun. Bu kodları thisWorkbook içine de yazmıştım ama yine debug hatası veriyor.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:bcac829143]Sub auto_close()
Sheets("sayfa1").Protect Password:="7659707"
Sheets("sayfa2").Protect Password:="7659707"
Sheets("sayfa3").Protect Password:="7659707"
End Sub
[/vb:1:bcac829143]