Makro ile Formul Gizleme

[kutup000]

Merhabalar,
Makro ile çalışma sayfası veya tüm çalışma kitabındaki formülleri gizlemek ve kitlemek istiyorum. Alttaki linkte bunu yapan bir örnek var fakat sol mouse tuşuna basılı tutarken formul gözükmekte ve birkaç hücre seçerken donmakta.

Ayrıca Ctrl D yapıp satır eklemek istendiğinde formuller ve biçimler taşınamamakta.

http://www.ozgrid.com/VBA/stop-formula-view.htm

Acaba bu sorunlar aşılabilirmi? Veya farklı bir makro mu yazılması lazım?

Yardımlarınız için teşekkür ederim.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub kilitle()
Cells.Locked = True
Cells.FormulaHidden = True
ActiveSheet.Protect 123
End Sub

 

[kutup000]

Merhaba N.Ziya Hiçdurmaz,
Yardımlarınız için öncelikle teşekkür ederim. Bir husus dışında herşey istediğim gibi gözüküyor.

Veri doğrulaması olan satırlar Ctrl D yapıldığında çalışmıyor. Bu konuda yardımcı olabilirmisiniz?

Tekrar ilginize teşekkür ederim.