Kilidi Açık Hücreleri Sil

[siar]

Merhabalar, Sayfaya atadıgım butonla, sadece hucre koruması açık olan hücreleri silmek istiyorum. Şimdiden teşekkür ederim.

 

[Necdet]

Merhaba,

Aşağıdaki kodu dener misiniz?

Silinecek bölgeyi seçiniz ve kodu çalıştırınız.

Public Sub sil()
For Each Hücre In Selection  ' [B][COLOR=red]Selection[/COLOR][/B] yerine [A1:E20] gibi bir değer de yazabilirsiniz, silinecek bölge sabit ise
     If Hücre.Locked = False Then Hücre.ClearContents
Next Hücre
End Sub