Merhabalar,
Paylaşıma açılmış bir çalışma kitabında aşağıdaki kodlar ile çalıştırılan makro ekran ayarı yapmıyor.Bunun sebebi herhalde çalışma kitabının paylaşılmış olması ,
Eğer sebep bu ise paylaştırılmış bir çalışma kitabında da ekran ayarı yapmak mümkünmüdür ?
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
Worksheets("Ana Sayfa").Select
Sheets(Array("Ana Sayfa")).Select
Sheets("Ana Sayfa").Activate
Range("A1:O62").Select
Range("O62").Activate
ActiveWindow.Zoom = True
Range("A4").Select
Sheets("Ana Sayfa").Select
Range("B1:B2").Select
End Sub
Paylaşıma açılmış bir çalışma kitabında aşağıdaki kodlar ile çalıştırılan makro ekran ayarı yapmıyor.Bunun sebebi herhalde çalışma kitabının paylaşılmış olması ,
Eğer sebep bu ise paylaştırılmış bir çalışma kitabında da ekran ayarı yapmak mümkünmüdür ?
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
Worksheets("Ana Sayfa").Select
Sheets(Array("Ana Sayfa")).Select
Sheets("Ana Sayfa").Activate
Range("A1:O62").Select
Range("O62").Activate
ActiveWindow.Zoom = True
Range("A4").Select
Sheets("Ana Sayfa").Select
Range("B1:B2").Select
End Sub