formüllü hücereye girişleri kitleme

[CONANFORCE]

slm arkadaşlar;

excel belgesinin içine 14 sayfa açtım fakat bu 14 sayfanında formüllü hücrelerini kitlemek istiyorum, formüllerde değişiklik yapmalarını istemiyorum nasıl yapabilirim bana yardım edebilirmisiniz. dosya etke

 

[turap]

eline saglık kardeşim teşekkurler

 

[msanli]

Sayfayı komple tara. Sağ klik hücreleri biçimlendir. Koruma sekmesindeki kilitli ve gizli seçeneklerini kaldır. Daha sonra formullü hücreleri aynı yöntem ile kilitli ve gizli olarak seç.

Bir sonraki adımda araçlar menüsünde korumayı, buradan sayfayı koru'yu seç. Senden şifre istediğinde bir şifre gir ve onayla.

Bu işlem sonucunda formüllü hücreler şifrelenir ve formüller korunur.

Kolay gelsin...

 

[CONANFORCE]

hemen deniyorum sağol teşekkür ederim

 

[1Al2Ver]

Sayın Recep İpek'in kodu ;

Sub FormulKoru()
ActiveSheet.Unprotect "A"
Range("A1:CA300").Locked = False
Range("A1:CA300").SpecialCells(xlCellTypeFormulas, 23).Locked = True
Range("A1:CA300").SpecialCells(xlCellTypeFormulas, 23).FormulaHidden = True
ActiveSheet.Protect "A", DrawingObjects:=True, Contents:=True, Scenarios:=True
MsgBox "Bitti"
End Sub

Bir modül açın, kodu kopyalayın, ilgili hücre aralığını kendinize göre düzenleyin , kodu bir düğmeye atayın

Şifre A dır

Kolay gelsin