(25/10/2018, 13:30)neskafei yazdı: programlama ekranı çıkıyor hata veriyor çalıştıramadım.

Alıntı: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
    
End Sub

(26/10/2018, 08:55)Allback yazdı:

(25/10/2018, 13:30)neskafei yazdı: programlama ekranı çıkıyor hata veriyor çalıştıramadım.

İlk mesajdaki dosya güncellenmiştir. 
64bit sistemlerde çalışacak hale getirildi.