excelde kaydırma çubukları

[mustafa7691]

arkadaşlarım excel sayfadaki yatay ve dikey kaydırma çubuklarını sadece o sayfa için(seçeneklerden kaldırılırsa tüm sayfalara uyguluyor)kaldırmak mümkünmü lütfen yardım

 

[Merhum İdris SERDAR]

Aşağıdaki kodları ilgili sayfanın koduna yazın.

Private Sub Worksheet_Activate()
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
End With
End Sub

Private Sub Worksheet_Deactivate()
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
End Sub

 

[mustafa7691]

teşekkür ederim ilginize uyguluyorum

 

[Ali]

Farklı bir alternatifde ben ekleyeyim.
Thisworkbook'a aşağıdaki kodları eklerseniz Sayfa2 adlı sayfanızdaki kaydırma çubukları gözükmez.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim deger As Boolean
deger = False
If Sh.Name <> "Sayfa2" Then deger = True
ActiveWindow.DisplayHorizontalScrollBar = deger
ActiveWindow.DisplayVerticalScrollBar = deger
End Sub