excel normal boyutta

[EmirhanG]

merhaba arkadaşlar, excel normal boyuta getirdiğimizde başlıksız görünmesi mümkünmü. (aynı tam ekran yaptığımızda başlığın görünmediği gibi) ve excel left ve width ini ayarladıktan sonra görünümü sabitlemek yani imleçle genişletilmesi ,daraltılmasını ve tutup taşınmasını engellemek mümkünse yardımcı olacak arkadaşlara ricam ulur taşekürler....herkeslere hayırlı çalışmalar.

 

[EmirhanG]

yardımmm...

 

[Seyit Tiken]

İstediğiniz böyle bir şey mi?

 

[hsayar]

Hocam bu kodda Sub Gizle, sub göster satırları yok o nasıl oluyor

 

[N.Ziya Hiçdurmaz]

Yanıt

Yanlara dağılmış.

Sub gizle()
DisplayHorizontalScrollBar = False
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayVerticalScrollBar = False
Application.DisplayFullScreen = True
For s = 1 To CommandBars.Count
CommandBars(s).Enabled = False
Next
End Sub
 Sub göster()
DisplayHorizontalScrollBar = True
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayVerticalScrollBar = True
Application.DisplayFullScreen = False
For s = 1 To CommandBars.Count
CommandBars(s).Enabled = True
Next
End Sub

 

[hsayar]

alakanıza teşekkürler hocam

 

[EmirhanG]

İstediğiniz böyle bir şey mi?

hocam kusurabakmayın acil cıkmam gerekli idi, cevabınızı şimdi gördüm ilginiz için teşekürler ama benim itediğim bu şekildeğildi anlatamadım galiba full ekran olmadan normal ekranken yani
Application.Left = 55
Application.Top = 100
Application.Width = 550
Application.Height = 400 sayfa bu ayarlarda görünürken başlıksız görünsün istiyorum ve imlecle sayfanın genişlik(Width),yükseklik(Height),tepe uzaklığı(Top) ve sol kenar uzaklığı(left) ayarlarının değiştirilememesi yani bu ayarların sabitlenmesi mümkünmüdür mümkünse çok makbule geçer teşekürler.....

 

[Seyit Tiken]

Yukarıda Nurziya beyin verdiği size uygun kod satırlarınıda aşağıdaki koda ekleyerek deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.WindowState = xlNormal
Application.Width = 392.25
Application.Height = 342
End Sub

Not : Herhangi bir hücreye tıklama yapıldığı an kod çalışır.