Belirli aralıklarda formül çubuğunu gizleme

[okyanus123452]

Sayın Excel Dostu
Sizler için Basit benim için çok zor bir sorunum var.
Çalışma sayfamda Aktif hücre, d2:Q2 arasında olduğu zaman yukarıdaki formül çubuğunu kapatmak (gizlemek) istiyorum. Aktif hücre bu aralığın dışında ise formül çubuğu gizlensin.
Genel Ayarlardan kapatmak istemiyorum
İlginize şimdiden teşekkür ederim.

 

[Emir Hüseyin Çoban]

. . .

D2:Q2 aralığı seçili ise formül çubuğu açık mı kapalı mı olacak.

. . .

 

[okyanus123452]

Hüseyin bey iyi akşamlar
Aktif hücre D2:Q2 aralıklarından birinde olduğunda formül çubuğu gizli olacak
Bu hücrelerde uzun yazı var seçili olunca ekranın büyük bir kısmını kapladığı için kapatmak istiyorum.

 

[okyanus123452]

Dosyayı göndermeme gerek var mı bu arada
Bilmem anlatabildim mi ? Sorumu

 

[Emir Hüseyin Çoban]

. . .

Çalışma sayfasının kod bölümüne

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
 If Not Intersect(Target, Range("D2:Q2")) Is Nothing Then
    Application.DisplayFormulaBar = False
    Else
    Application.DisplayFormulaBar = True
    End If
End Sub

. . .

 

[okyanus123452]

Hüseyin bey kodlar için çok teşekkür ederim. Sorunsuz çalışıyor.
Saygı ve Sevgilerimle hayırlı akşamlar.