Sayfa Koruma Makrosu

[seletci]

Selamlar.Ekte bulunan dosyama aşağıda yazılı kodları uygulayıp, sadece formüllü alanlardaki rakamlar ve formülsüz alandaki rakamların değiştirilebilmesini sağlamak ve sayfa yapısının , hücre yapısının kesinlikle değiştirilmez olmasını istiyorum. Daha doğrusu sayfaya yzı ve rakam yazılsın ama sayfa yapısı değişmesin istiyorum.Fakat " RANGE SINIFININ LOCKED ÖZELLLİĞİ KURULAMIYOR" şeklinde uyarı çıkıyor. Başka excel dosyalarında çalıştı makro ama bunda çalıştıramadım.
KOD:
Sub Set_Protection()
On Error GoTo errorHandler
Dim myDoc As Worksheet
Dim cel As Range
Set myDoc = ActiveSheet
myDoc.Unprotect
For Each cel In myDoc.UsedRange
If Not cel.HasFormula And _
Not TypeName(cel.Value) = "Date" And _
Application.IsNumber(cel) Then
cel.Locked = False
cel.Font.ColorIndex = 5
Else
cel.Locked = True
cel.Font.ColorIndex = xlColorIndexAutomatic
End If
Next
myDoc.Protect
Exit Sub
errorHandler:
MsgBox Error
End Sub

 

[aspuzu21]

Selamlar.Tüm sayfayı seçin.Daha sonra birleştirilmiş hücreleri ayırın.Kodlar çalışır.
Ayrıca sanıım anladığım kadarı ile sadece sütun ve satırlar değişmesin ama içine veri girişi yapılsın demişsini.Bunun için:
Tüm sayfayı seçiyoruz=>Sağ tıklıyoruz=>Hücreleri biçimle=>Koruma seçiyoruz=>Kilitli tikini kaldırıyoruz=>Tamam diyoruz=>Araçlar=>Koruma=>Kilitli hücreleri seçteki tiki kaldırıyoruz=>Kilidi açılmış hücreleri seçe tiki koyuyoruz=>Hücreleri biçimlendire tiki koyuyoruz=>Tamam deyip çıkıyoruz.
Bu kadar.Daha sonra satır ve sütun genişlikleri değiştirilemiyor.