Aktif sayfanının formüllerinin ve formunun korunması

[ertuer]

Sayın arkadaşlar
Çalışma kitabının hangi sayfası aktifse açılıysa, o sayfanın otomatik olarak formüllerinin korumalı ve gizli olmasını sağlayacak bir makro veya fonksiyon varmıdır?
Değiştirmek istendiğinde şifre sorsun..
Yardımcı olabilecek atkadaşların emeğine saygı ile selamlar

 

[leumruk]

Selamlar,
Aşağıdaki kodu Thisworkbook bölümüne kopyalayın.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
ActiveSheet.Unprotect 12345
    Target.Locked = False
    Target.FormulaHidden = False
If Target.HasFormula Then
    Target.Locked = True
    Target.FormulaHidden = True
End If
ActiveSheet.Protect 12345
End Sub

 

[ertuer]

İşte tam aradığım buydu !

Sayın Leumruk
Size çok teşekkür ediyorum çok sağolun ! "İşte tam aradığım buydu" dedim
Sadece formüllerde bir değiştirme yapmak istediğimde hangi şifre ile korumayı kaldıracağım onu bulamadım. Bu konuda da bilgi verirseniz veya böyle bir seçenekte eklerseniz çok memnun kalacağım.Günlerce aradığım çözümü bulmuş olacağım çok sağolun
emeğinize saygı ile selamlar.

 

[leumruk]

Selamlar,
Dosyanız ekte. Sürekli şifreyle karşılaşmamanız için buton kullandım.

 

[ertuer]

Değerli arkadaşım
Butonlar olmadan şifre ile olursa benim amacıma daha uygun olacak .Çünkü gerekirse ben değişiklik yapıp korumaya aldıktan sonra işyerinde bunu kullanan kişiler sadece girişleri yapacaklar normal veri alanlarına..onların formüllerle falan bir işi olmayacak.
Bunu butonsuz şifre ile yapabilirseniz tam isabet olur.

 

[leumruk]

Selamlar,
Ekli dosya işinizi görür mü?
Korumalı hücreye çifte tıkladığınızda şifre ekranı gelir.

 

[ertuer]

Sayın Leumruk
Öncelikle ilginize çok teşekkür ederim sizi fazlaca meşgul ettim.
Bu şekilde işime yarar fakat bu şekilde iken sadece tıkladığım ve şifre girdiğim formüllü hücre
de işlem yapabiliyorum bir başkasına geçerken tekrar kapanıyor.
Şöyle ifade edeyim Tamam herhangi bir formüllü hücreye çift tıkladığımda şifre sorsun gireyim
ve tekrar korumaya işlerim bittikten sonra ben alayım.Örneğin yine çift tıkladığımda korumaya alınsın. Veya ctrl 1959 yazınca şifre sorsun koruma kalksın, tekrar ctrl 1959 yazınca korumaya alsım. Kısaca normal excel araçlarda sayfa koruma ve kaldırması yaptığım gibi.
emeğinize saygı ile selamlar

 

[leumruk]

Merhaba,
CTRL Ç ile korumayı açmanız için şifre ekranı gelir.
CTRL Ş ile koruma otomatik devreye sokulur.
Ayrıca kapanırken dosyayı otomatik korumaya alır.
Şifre: 12345. Siz kod üzerinden istediğiniz şifre ile değiştirebilirsiniz.

 

[ertuer]

Emeğinize saygı,elinize sağlık tam istediğim gibi oldu teşekkür ederim sayın arkadaşım.