tamekran makrosu yardım.

[ahmetozbey]

aşağıdaki kodları kullanıyorum. ancak satır numaraları ile sütün harfleri gözüküyor.bunlarında gözükmemesini istiyorum.(sadece kaydırma cubukları gözüksün.) yardımcı olursanız sevinirim.

Sub auto_open()
Application.DisplayFullScreen = Not Application.DisplayFullScreen
Application.CommandBars("Full Screen").Enabled = Not Application.CommandBars("Full Screen").Enabled
Application.CommandBars("Worksheet Menu Bar").Enabled = Not Application.CommandBars("Worksheet Menu Bar").Enabled
ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings
End Sub

 

[Qene]

Sub auto_open()
Application.ScreenUpdating = False
On Error Resume Next
For i = 1 To Application.CommandBars.Count
Application.CommandBars(i).Enabled = False
Next i
ActiveWindow.DisplayHeadings = False
Application.ScreenUpdating = True
End Sub

Sub auto_close()
On Error Resume Next
For i = 1 To Application.CommandBars.Count
Application.CommandBars(i).Enabled = True
Next
ActiveWindow.DisplayHeadings = True
End Sub

End Sub

 

[ahmetozbey]

verdiğiniz kodlarla yine tam ekran olmadı.

 

[mehmett]

Aşağıdaki kodları deneyin;

Sub auto_open()
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayFullScreen = True
For i = 1 To Application.CommandBars.Count
Application.CommandBars(i).Visible = False
Next
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayWorkbookTabs = False
End Sub
 
Sub auto_close()
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayFullScreen = False
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Standard").Visible = True
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayWorkbookTabs = True
End Sub