אקסל | פתיחת קובץ במסך מלא כברירת מחדל

[פלורידה]

אני מעוניין שקובץ מסויים ייפתח לי ברירת מחדל, על מסך מלא כלומר עם כרטיסיות ממזערות וכדו'.

אשמח למידע. ותודה רבה לעוזרים

[avi rz]

@פלורידה באיזה אופיס אתה מדבר?

[פלורידה]

@avi-rz אני באופיס 2019, אבל אני מעוניין שזה יהיה כהגדרה בקובץ עצמו.

[OdedDvir]

@פלורידה תוסיף באובייקט "חוברת_עבודה_זו" את הקוד הבא:

Private Sub Workbook_Open()
    Application.DisplayFullScreen = True
End Sub

[פלורידה]

@odeddvir
לא הכרתי את המצב הזה. באופן נורמלי יש באופיס 3 אפשרויות. 1. הסתר 2. הצג כרטיסיות. 3. הצג כרטיסיות ופקודות.

1. איך מגיעים לצורה הזו מתוך הממשק של התוכנה.

2. האם יש דרך לעשות את ההסתר הרגיל.

[OdedDvir]

@פלורידה לגבי 1, להלן קיצורים מתוך הממשק של התוכנה:
Ctrl+F1 סוגר\פותח תצוגת כרטיסיות.
Ctrl+Shift+F1 סוגר\פותח תצוגת מסך מלא.

לגבי 2, מה הכוונה ההסתר הרגיל? מה אתה רוצה שלא יראו?

[פלורידה]

@odeddvir

[OdedDvir]

@פלורידה תוכל להסתיר לגמרי את רצועת הכלים, (כך שלא תהיה אפשרות לפתוח אותה כלל)
על ידי החלפת הקוד לעיל בקוד הבא:

Private Sub Workbook_Open()
   Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",False)"
End Sub

[פלורידה]

@odeddvir זה הכי טוב...

הבעיה, שהוא משפיע על כל חוברות העבודה, כלומר כל חוברת שאני פותח הוא פותח במצב הזה.

בדיוק לפני כמה דקות הכנסתי את הקוד הקודם שהבאת לחיפוש גוגל, וראיתי שמדברים על הבעיה הזו כאן לעת עתה לא הצלחתי ליישם את הפיתרון.

[פלורידה]

@odeddvir

איך שאני מבין הקוד הראשון שהבאת, הוא פועל באמצעות אירוע. ולא ברמת היישום.

הוספתי את הקוד הבא, שמשמעותו שבמעבר מגליון לגליון, הוא הופך את החוברת למסך מלא.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  ActiveWindow.WindowState = xlMaximized
  Application.WindowState = xlMaximized
  Application.DisplayFullScreen = True
End Sub

אולי אפשר יהיה לעשות שבכל ארוע, כגון בחירת תא, הוא יקבל את ההוראה הזו?

[OdedDvir]

@פלורידה הבנתי את הבעיה. אם חוברת העבודה פתוחה, ההגדרות להסתרת הסרגל תקפות עבור כל חוברת אחרת שתפתח באותו זמן, ורק אם תסגור את החוברת ורק אז תפתח חדשה - הסרגל יחזור להופיע.
מה שצריך זה קוד שיסתיר את הסרגל כשהחוברת המסויימת שלך הופכת לפעילה, ויציג אותו אם היא לא פעילה. דהיינו הקוד הבא:

Private Const MY_WORKBOOK_NAME = "תלמוד בבלי -חזרות.xlsm"

Private Sub ShowRibbon(state As Boolean)
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon""," & state & ")"
End Sub

Private Sub Workbook_Activate()
    ShowRibbon (ActiveWorkbook.Name <> MY_WORKBOOK_NAME)
End Sub

Private Sub Workbook_Deactivate()
    ShowRibbon True
End Sub

שים לב שבשורה 1 צריך להופיע שם החוברת שעבורה אתה רוצה להסתיר את הסרגל (השתמשתי בשם החוברת שהעלת בפוסט לעיל)

[פלורידה]

@odeddvir בחוברת עבודה זה לא עובד לי.
האם זה מודול?

[OdedDvir]

@פלורידה זה קוד שאתה מדביק באובייקט "חוברת_עבודה_זו", בדיוק כמו קודם. כמובן תסיר את הקוד הקודם שהבאתי.

[פלורידה]

@odeddvir אני מניח שניסית את זה... אשמח לראות את הקובץ להבין במה טעיתי

[OdedDvir]

@פלורידה בבקשה: תלמוד בבלי -חזרות.xlsm

[פלורידה]

@odeddvir אתה פשוט גאון. הצלחת במקום שכל האלופים ברשת נכשלו!!!! (עברתי לפחות על 8 שרשורים בפורומים המקצועיים השונים ברשת...)

הערה: הקוד עובד רק אם הוא הראשון בחוברת.

[OdedDvir]

@פלורידה אמר באקסל | פתיחת קובץ במסך מלא כברירת מחדל:

הערה: הקוד עובד רק אם הוא הראשון בחוברת.

תודה על השבחים (לא אכפת לי ליהנות קצת גם אם זה לא אמת...) אבל ההערה שלך בפירוש לא נכונה. הקוד עובד בכל מקום שתניח אותו, כל עוד הוא באובייקט המתאים ("חוברת_עבודה_זו")

[פלורידה]

@odeddvir אמר באקסל | פתיחת קובץ במסך מלא כברירת מחדל:

הקוד עובד בכל מקום שתניח אותו, כל עוד הוא באובייקט המתאים ("חוברת_עבודה_זו")

תלמוד בבלי -חזרות.xlsm

[פלורידה]

@odeddvir אמר באקסל | פתיחת קובץ במסך מלא כברירת מחדל:

מה שצריך זה קוד שיסתיר את הסרגל כשהחוברת המסויימת שלך הופכת לפעילה, ויציג אותו אם היא לא פעילה. דהיינו הקוד הבא:

אפשר ליישם את זה גם לקוד המופיע כאן???

כי כאן זה ממש כמו באפליקציה.

דוגמא:

[מומלץ לפתוח את הקובץ רק כאשר שאר קבצי האקסל סגורים]
1.xlsm

[OdedDvir]

@פלורידה אכן צדקת בדבר אחד (מכאן שכל המתגאה - הקב"ה משפילו...), השורה הראשונה בלבד, היינו הגדרת הקבוע

Private Const ....

מוכרחה לבוא בראש המודול. שאר הקוד - עובד בכל מקום.

ולשאלתך, ודאי שאפשר ליישם כמו בדוגמא. תעתיק את הפונקציות שלו UIHide ו- UIShow ורק תשנה את הקוד כך:

Private Const MY_WORKBOOK_NAME = ...

Sub UIHide() ....
....
End Sub

Sub UIShow() ...
...
End Sub

Private Sub Workbook_Activate()
    If (ActiveWorkbook.Name = MY_WORKBOOK_NAME) Then
        UIHide
    Else
        UIShow
    End If
End Sub
 
Private Sub Workbook_Deactivate()
    UIShow
End Sub