איך שאני מבין הקוד הראשון שהבאת, הוא פועל באמצעות אירוע. ולא ברמת היישום.
הוספתי את הקוד הבא, שמשמעותו שבמעבר מגליון לגליון, הוא הופך את החוברת למסך מלא.
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWindow.WindowState = xlMaximized
Application.WindowState = xlMaximized
Application.DisplayFullScreen = True
End Sub
אולי אפשר יהיה לעשות שבכל ארוע, כגון בחירת תא, הוא יקבל את ההוראה הזו?



