Sub auto_open() komutunu sarı renkli olarak işaretlemiş.
Kod:
Sub auto_open()
Sheets("ANA").Select
x = GetSystemMetrics(0) ' x eksenindeki genişliği veriyor
Y = GetSystemMetrics(1) ' y eksenindeki genişliği veriyor
ActiveWindow.Zoom = 70 * x / 1024
Application.DisplayFullScreen = True
Sheets("ANA").Select