Makro ile Formül Gizleme..!

[sensizsoldum]

Merhaba,
Sayfada bazı sütunda formüller var, bu formülleri makro ile gizlemek baya baya mümkün. Biraz araştırma yaptım bazı linkler ölmüş, bazı linkleri de şirket ağı izin vermiyor.
Örneğin C sütunda formüller mevcut. Bu sütundaki formülleri gizlemek istiyorum. Hücre biçimlendir falan çalışmaya uygun değil, makro olması gerekiyor.
İyi çalışmalar dilerim.

 

[dEdE]

Merhaba,
Aşağıdaki kodu dener misiniz?

Sub FormülGizle()
Application.ScreenUpdating = False
    Cells.Locked = False
    Range("C2:C20").FormulaHidden = True
    Range("C2:C20").Locked = True
    Selection.Locked = True
    ActiveSheet.Protect
Application.ScreenUpdating = True
MsgBox "C2-C20 arasında formülleriniz gizlendi ve kilitlendi.", vbInformation, "dEdE " & Application.UserName & "'e Başarılar diler."
End Sub

 

[sensizsoldum]

Merhaba Dede, Çok teşekkür ediyorum istediğim gibi bir kod yazmışsınız, ama ufak bir şeyde gözden kaçmadı değil. Herhangi bir hücreyi tıklandığında içeriğindeki veri aynı zamanda araç çubuğunda da görünüyor ya, orda da gizleniyor, orda formül değil de veriyi göstermek mümkün mü?
Tekrardan teşekkür ediyorum.
İyi çalışmalar efendim

 

[sensizsoldum]

Ayrıca sayfada satır da silemiyorum. silmem gereken bir durum bunun da düzeltile bilmesi mümkünmü.

 

[caglarr65]

Sayın ;dEdE
Gizlediğimiz formülleri tekrar nasıl görebiliriz? Şimdiden teşekkürler.

 

[dEdE]

Merhaba,

...formül değil de veriyi göstermek mümkün mü?

Bu yöntemle malesef mümkün değil. Ya hep ya hiç.
Ancak formülleri makro kodu olarak yazıp hücrelere sonucu değer olarak yazdırabiliriz. Bu durumdada sayfada formül olmadığı için gizlemeye gerek kalmaz. İsterseniz makro kodunu gizleyebilirsiniz.

...sayfada satır da silemiyorum. silmem gereken bir durum bunun da düzeltile bilmesi mümkünmü.

caglarr65 Gizlediğimiz formülleri tekrar nasıl görebiliriz?

Sayfa korumasını kaldırırsanız istediğniz satırı silebilir, formülleri görebilirsiniz. Formülleri görünmez yapmak için tekrar sayfayı korumalısınız.

Hoşçakalın.

 

[caglarr65]

Sayın ;dEdE
Sayfa korumasını kaldırdıktan sonra formüller göründü.Cevabınız için teşekkürler.

 

[uzmanamele]

Merhaba

Sub Formülleri_Gizle()
ActiveSheet.Unprotect
    ActiveSheet.Cells.Select
    Cells.Locked = False
    Cells.FormulaHidden = False
    Selection.SpecialCells(xlCellTypeFormulas, 23).Select
    Selection.Locked = True
    Selection.FormulaHidden = True
ActiveSheet.Protect
        ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
        AllowUsingPivotTables:=True
End Sub

Deneme yanılma yöntemiyle True olanları False yaparak deneyin.

 

[caglarr65]

Sayın;uzmanamele
True olanları False yaparak sonuca ulaştım .Çok teşekkür ederim.

 

[82_elbistan]

MAKRO-1

Merhaba

Sub Formülleri_Gizle()
ActiveSheet.Unprotect
    ActiveSheet.Cells.Select
    Cells.Locked = False
    Cells.FormulaHidden = False
    Selection.SpecialCells(xlCellTypeFormulas, 23).Select
    Selection.Locked = True
    Selection.FormulaHidden = True
ActiveSheet.Protect
        ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
        AllowUsingPivotTables:=True
End Sub

Deneme yanılma yöntemiyle True olanları False yaparak deneyin.

MAKRO-2

Sub Kasa_giriş()
Sheets("KASA").Range("A3:AD3").Copy
sat = Sheets("KASA").Cells(65536, "B").End(xlUp).Row + 1
Sheets("KASA").Range("A" & sat).PasteSpecial
Application.CutCopyMode = False
MsgBox " KASA KAYDI YAPILDI..!! "
Sheets("KASA").Range("D3:J3").Value = ""
Set s1 = ThisWorkbook.Worksheets("KASA")
SonSatir = s1.Range("H65536").End(xlUp).Row
s1.Cells(4, "H") = Application.WorksheetFunction.Sum(s1.Range("H5:H" & SonSatir))
SonSatir = s1.Range("H65536").End(xlUp).Row
s1.Cells(4, "I") = Application.WorksheetFunction.Sum(s1.Range("I5:I" & SonSatir))
End Sub

Üstadım Makro 1 deki kodlarda çok güzel formülleri gizlemekte ancak, Makro-2 ile kasa kaydı yapmak istediğimde formülsüz görünen rakamları kayıt yapmaktadır. Formüller diğer sayfalar ile bağlantılı çalıştığı için formüllü olarak kayıt yapma durumu olabilir mi ? yada formüllü olarak kayıt yaptıktan sonra gizleme yapma imkanı olur mu ? Selam ve saygılar