Makro ile formül gizleme

[ozkan283]

A3,A4,A5, .. hücresinde formül var. Bunları sayfa koruma almadan gizlemek istiyorum. Teşekürler üstadlarım

 

[Korhan Ayhan]

Sayfa korumasını neden kullanmak istemiyor sunuz?

 

[Necdet]

Çünküüü makro eeer bi şeye kaadirdir de ondan belki Korhan bey.

 

[ozkan283]

A3. satırda sıra numarası var. İf ile sıra numarası veriyor. Kullanıcı sayfa koruması kilidi kaldırıp silebilme ihtimali de var. Fakat makro ile gizlersem korumaya gerek kalmadan tertemiz iş olacak diye düşünüyorum

 

[Korhan Ayhan]

Sayfa koruması kilidini nasıl kaldıracak?

 

[ozkan283]

Şifresini girerek ?

 

[alicimri]

A1 hücresinde, B1 hücresini 1 ile toplayan bir formül(=B1+1) varsa
İlgili sayfanın kod modülüne aşağıdaki kodu yazın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
 Target.FormulaR1C1 = "=RC[1]+1"
 End If
End Sub

A1 hücresinde bir değişiklik yapılınca, tekrar bu formülü A1 hücresine yazacaktır.
Ancak merak ettim, koruma şifresini kıran biri, bu makroyu da silemez mi?

 

[Korhan Ayhan]

Sayfa korumasının şifresini paylaşmazsanız sorun çözülecektir.

 

[ozkan283]

A1 hücresinde, B1 hücresini 1 ile toplayan bir formül(=B1+1) varsa
İlgili sayfanın kod modülüne aşağıdaki kodu yazın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Target.FormulaR1C1 = "=RC[1]+1"
End If
End Sub

A1 hücresinde bir değişiklik yapılınca, tekrar bu formülü A1 hücresine yazacaktır.
Ancak merak ettim, koruma şifresini kıran biri, bu makroyu da silemez mi?

Teşekürler deneyip paylaşım yapacağım.
Ben sayfa koruma olmadan formül gizlenebiliyor mu gizlenmiyor mu ? Bunu merak ettim. Oluyorsa uygulayacaktım

 

[alicimri]

Eğer yukardaki kod işinize yarayacaksa aşağıdaki kod daha esnek.

Dim a

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$3" Or Target.Address = "$A$4" Or Target.Address = "$A$5" Then
 Target.Formula = a
 End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a = Target.Formula
End Sub