Kilitli Hücrede sıralama hatası

[noxious]

Ekte sunduğum bir çalışma var. Bu çalışma örneğinde A sütunu kilitledim, koruma ekledim ve makro ile sıralama komutu hazırladım. Sırala dediğimde A sütunu kilitli ve koruma altında olduğu için makro hata veriyor bu hatadan nasıl kurtulabilirim

 

[AS3434]

sayın noxious

Kodlarınızı şöyle düzenleyin.

Sub Makronuz()
[COLOR=blue]ActiveSheet.Unprotect[/COLOR] 
.
Kodlarınız
.
.
[COLOR=blue]ActiveSheet.Protect[/COLOR] 
End Sub

 

[noxious]

Hocam çok sağol anında cevap ve derdim çözüldü. Ancak şöyle bir durum var ya sayfayı şifre ile koruma altına alırsak nasıl olacak örneğin şifre 12345 olsun

 

[AS3434]

Sayın noxious

O zaman şöyle yapın.
Şifre sormadan korumayı açmak için.

Sub Makronuz()
ActiveSheet.Unprotect "12345"
.
Kodlarınız
.
.
ActiveSheet.Protect "12345"
End Sub

Koruma açarken şifre sormasını isterseniz

Sub Makronuz()
ActiveSheet.Unprotect 
.
Kodlarınız
.
.
ActiveSheet.Protect "12345"
End Sub

 

[noxious]

Hocam gecenin bu saatinde çok sağol bu kadar basit olduğuna şaşırdım ama neticede biz çömezler sizler sayesinde birşeyler öğreniyoruz