Çalışma Kitabında Tüm Formüllere Koruma (Yardım)

[orhanacan]

Hocam, hayırlı akşamlar... Hocam, merak ettiğim konu, sayfalarda hücre koruması ile formüller korunuyor. Acaba..! çalışma kitabında bulunan tüm sayfalardaki formüllerin korunması için bir kodlama yazabilir miyiz? Tabii... hücre girişleri ve sayfa korumalarında hata vermeyecek, her defasında hücre girişinde ikaz vermeyecek sadece formül değiştirmeye, silmeye ve bozulmasına karşı tüm çalışma kitabında koruma yapabilir miyiz? Bu konuda nasıl bir kod yazılabilir ? saygılar...

[Bülent Öztürk]

hücre girişleri ve sayfa korumalarında hata vermeyecek, her defasında hücre girişinde ikaz vermeyecek sadece formül değiştirmeye, silmeye ve bozulmasına karşı tüm çalışma kitabında koruma yapabilir miyiz?

Orhan bey, daha ayrıntılı anlatabilir misiniz?
"İkaz vermeyecek" derken?

[1Al2Ver]

Merhaba,

Yanlış anlamadım ise;

Kodu bir butona atayın, kod A1:AR80 aralığındaki formül içeren tüm hücreleri koruyor, (bu aralığıda kendinize göre düzenleyebilirsiniz),

"123" yazan yerlere kendi koruma şifrenizi yazabilirsiniz.

Sub FormulKoru()
ActiveSheet.Unprotect "123"
Range("A1:AR80").Locked = False
Range("A1:AR80").SpecialCells(xlCellTypeFormulas, 23).Locked = True
Range("A1:AR80").SpecialCells(xlCellTypeFormulas, 23).FormulaHidden = True
ActiveSheet.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True
MsgBox "Sayfalar Korumaya Alındı !"
End Sub

[orhanacan]

Hocam, teşekkür ederim. Çözüm sunduğunuz kodu kitap açılışına ekledim ve açılışta tüm formülleri koruyor. Sağlıcakla kalın...

[1Al2Ver]

Hocam, teşekkür ederim. Çözüm sunduğunuz kodu kitap açılışına ekledim ve açılışta tüm formülleri koruyor. Sağlıcakla kalın...

Teşekkür ederim, işinize yaradığına memnun oldum.