Macro ile formül gizleme

[sinful]

Arkadaşlar merhaba,

Bir sayfadaki formulleri sayfayı şifrelemeden görünmez yapabilir miyiz? Belki bir macro komutu ile olabileceğini düşünüyorum.

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

 

[1Al2Ver]

Merhaba,

Kodu bir düğmeye atayın.

A1:N35 aralığını korur, "sinful" yazan yeri değiştirebilir siniz.

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

 

[sinful]

Merhaba,

Kodu bir düğmeye atayın.

A1:N35 aralığını korur, "sinful" yazan yeri değiştirebilir siniz.

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

Cevabınız için teşekkür ederim. Mümkünse son olarak birşey sormak istiyorum. Excel de bir sayfada tablodaki formüllerim başka bir sayfadan veri alarak işlem yapıyor Örneğin 1. sayfada hesaplar yapılırken 2. sayfada $A$2:$A$3000 arasından veri alıyor. Ancak ikinci sayfada A2:A3000 arasına satır eklediğimde birinci sayfadaki formül A1:A2999 şeklinde değişiyor sürekli. Bunu nasıl engelleyebilirim. Excel'de çok tecrübeli değilim yardımcı olabilirseniz çok sevinirim

 

[1Al2Ver]

Merhaba,

Öneri ; Herhangi bir dosya yükleme sitesine, dosyanızı eklerseniz, dosyanız incelenir ve sorun daha net anlaşıla bilir.Böylece daha çabuk ve kesin sonuç alına bilir.