Korumalı sayfada (Selection.ClearContents) ile temizleyemiyorum

[jambow]

Sheets("rapor").Select
    Range("A7:g10000").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-81
    Range("A6").Select

hücreler kilitli olmadığı halde koyumalı sayfayı bu kodlarla temizleyemiyorum hata veriyor hangi kodlarla bu hücre aralığını temizlemeliyim
not sayfa korumasını kaldırınca oluyor ama sayfanın korumalı olması gerekiyor

 

[dEdE]

Merhaba,
Bunu dener misiniz?

Sheets("rapor").Select
ActiveSheet.Unprotect
    Range("A7:g10000").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-81
    Range("A6").Select
 ActiveSheet.Protect