run time error 1004 hatası

[ahmetozbey]

çalıştırdığım makro aşagıda. parolalı sayfa koruması yaptıktan sonra run time error 1004 range sınıfının sort yöntemi başarısız hatası alıyorum. sayfa koruması olmadığı zaman normal çalışıyor.


Sub liste()
Dim hcr As Range, sat As Long
Sheets("Sayfa1").Select
sat = 6
Application.ScreenUpdating = False
Range("H6:M65536").ClearContents
For Each hcr In Range("A7:A" & Cells(65536, "A").End(xlUp).Row)
If hcr.Value >= Range("G3").Value And _
hcr.Value <= Range("H3").Value Then
For k = 0 To 5
Cells(sat, k + 8).Value = hcr.Offset(0, k).Value
Next k
sat = sat + 1
End If
Next
Range("H6:M65536").Sort Range("H6")
Application.ScreenUpdating = True
MsgBox "&#304;&#351;lem Tamam"
End Sub

 

[canercamalan]

Bu gayet do&#287;al &#231;&#252;nk&#252; korumal&#305; sayfada de&#287;i&#351;iklik yapmaya &#231;al&#305;&#351;&#305;yorsun koruman&#305;n amac&#305;da bu de&#287;ilmi? ya de&#287;i&#351;iklik yapmak istedi&#287;in alan&#305; koruma kapsam&#305; d&#305;&#351;&#305;nda tutucaks&#305;n yada yazd&#305;&#287;&#305;n kodlarda de&#287;i&#351;iklik &#246;ncesine ActiveSheet.Unprotect il&#351;lemin tamamlan&#305;ncada ActiveSheet.Protect i&#351;lemi ile tekrar korumaya alabilirsin.

 

[ahmetozbey]

makronun veriyi getirdi&#287;i h&#252;crelerin kilidini kald&#305;rd&#305;m ve sayfay&#305; korudum ama yinede ayn&#305; hatay&#305; al&#305;yorum

 

[canercamalan]

Sub liste()
ActiveSheet.Unprotect
Dim hcr As Range, sat As Long
Sheets("Sayfa1").Select
sat = 6
Application.ScreenUpdating = False
Range("H6:M65536").ClearContents
For Each hcr In Range("A7:A" & Cells(65536, "A").End(xlUp).Row)
If hcr.Value >= Range("G3").Value And _
hcr.Value <= Range("H3").Value Then
For k = 0 To 5
Cells(sat, k + 8).Value = hcr.Offset(0, k).Value
Next k
sat = sat + 1
End If
Next
Range("H6:M65536").Sort Range("H6")
Application.ScreenUpdating = True
MsgBox "&#304;&#351;lem Tamam"
ActiveSheet.Protect
End Sub

bunu dene bende &#231;al&#305;&#351;&#305;yor muhtemelen makronda verdi&#287;in referans h&#252;crelerin hepsindeki korumay&#305; kald&#305;rmam&#305;&#351; olabilirsin.

 

[ahmetozbey]

koddaki
Range("H6:M65536").Sort Range("H6") kodunu sildi&#287;imde sayfa korumas&#305; yapt&#305;&#287;&#305;mda normal &#231;al&#305;&#351;&#305;yor. kodu ayn&#305; yerine koyup h6 ile m65536 aras&#305;ndaki h&#252;crelerin kilidini kald&#305;r&#305;yorum ve o &#351;ekilde sayfa korumas&#305; yapmama ra&#287;men yine ayn&#305; hata iletisini al&#305;yorum

 

[canercamalan]

Ekteki dosyayı denermisin bende sorun çıkartmıyor dosya şuan şifreli düğmeye bastığımda silmek istediğin aralığı silip tekrar şifreliyor.Yada sen dosyanı ekle ona göre bakalım