Formül Çubuğu..!

[sensizsoldum]

Merhaba iyi akşamlar,
Herhangi bir çalışma kitabı için geçerli olacak şekilde formül çubuğunu gizleye bilir miyiz? Ekleyeceğim kod BuÇalışmaKitabı uygulanacak ve o kitabın tüm sayfalarında geçerli olacak, ama farklı bir kitap için normal ayar kalacak bu şekilde bir çözüm yolu olabilir mi?
İyi akşamlar dilerim.

 

[Mahir64]

MErhaba

Application.DisplayFormulaBar = False 'gizle
Application.DisplayFormulaBar = True 'göster

 

[sensizsoldum]

Merhaba Mahir Bey,
Bu kodları denemiştim. Ben sadece istediğim çalışmaya eklediğimde o çalışma için gizlenecek bir yöntem arıyorum. Bu kodları denedim tüm çalışmalar için geçerli oldu. Belki de ben bir şeyleri yanlış yapıyorum. Örnek olarak herhangi bir dosya sunabilir seniz memnun olurum. Mümkünse bu kod butonsuz olsun.
İlginiz için teşekkür ediyorum.
İyi geceler dilerim.

 

[Seyit Tiken]

Kitabın Kod Bölümüne yapıştırıp deneyiniz.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveCell.HasFormula Then
Application.DisplayFormulaBar = False
Else
Application.DisplayFormulaBar = True
End If
End Sub

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodları deneyin.

Kitap aktif olduğunda formül çubuğu gizlenir.
Kitap kapandığında ya da başka kitap aktif olduğunda formül çubuğu görünür olur.

ThisWorkbook ya da BuÇalışmaKitabı bölümüne uygulayın.

Private Sub Workbook_Activate()
    Application.DisplayFormulaBar = False
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayFormulaBar = True
End Sub

Private Sub Workbook_Deactivate()
    Application.DisplayFormulaBar = True
End Sub

 

[sensizsoldum]

Merhabalar,
Günaydın Hayırlı sabahlar, İlgilerinizden dolayı herkese ayrı ayrı teşekkür ederim.
Sayenizde devasa çalışmalar inşa ediyorum. Emeği geçen herkese Tekrardan teşekkür ediyorum. İyi ki varsınız.
İyi çalışmalar dilerim.
Saygılarımla.
Osman BAĞRIYANIK