תחומים
    • הרשמה
    • התחברות
    • חיפוש
    • קטגוריות
    • פוסטים אחרונים
    • משתמשים
    • חיפוש
    חוקי הפורום

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

    תוכנה
    3
    20
    101
    טוען פוסטים נוספים
    • מהישן לחדש
    • מהחדש לישן
    • הכי הרבה הצבעות
    תגובה
    • הגב כנושא
    התחבר בכדי לפרסם תגובה
    נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
    • פ
      פלורידה נערך לאחרונה על ידי

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

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

      A תגובה 1 תגובה אחרונה תגובה ציטוט 0
      • A
        avi rz @פלורידה נערך לאחרונה על ידי

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

        פ תגובה 1 תגובה אחרונה תגובה ציטוט 0
        • פ
          פלורידה @avi rz נערך לאחרונה על ידי

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

          OdedDvir תגובה 1 תגובה אחרונה תגובה ציטוט 0
          • OdedDvir
            OdedDvir @פלורידה נערך לאחרונה על ידי

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

            Private Sub Workbook_Open()
                Application.DisplayFullScreen = True
            End Sub
            
            פ תגובה 1 תגובה אחרונה תגובה ציטוט 4
            • פ
              פלורידה @OdedDvir נערך לאחרונה על ידי

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

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

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

              OdedDvir תגובה 1 תגובה אחרונה תגובה ציטוט 0
              • OdedDvir
                OdedDvir @פלורידה נערך לאחרונה על ידי

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

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

                פ תגובה 1 תגובה אחרונה תגובה ציטוט 1
                • פ
                  פלורידה @OdedDvir נערך לאחרונה על ידי

                  @odeddvir
                  7fdc3a36-778d-49a0-90b6-2bc7314c3f91-image.png

                  OdedDvir תגובה 1 תגובה אחרונה תגובה ציטוט 0
                  • OdedDvir
                    OdedDvir @פלורידה נערך לאחרונה על ידי

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

                    Private Sub Workbook_Open()
                       Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",False)"
                    End Sub
                    
                    פ 2 תגובות תגובה אחרונה תגובה ציטוט 2
                    • פ
                      פלורידה @OdedDvir נערך לאחרונה על ידי

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

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

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

                      תגובה 1 תגובה אחרונה תגובה ציטוט 0
                      • פ
                        פלורידה @OdedDvir נערך לאחרונה על ידי

                        @odeddvir

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

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

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

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

                        OdedDvir תגובה 1 תגובה אחרונה תגובה ציטוט 0
                        • OdedDvir
                          OdedDvir @פלורידה נערך לאחרונה על ידי 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 צריך להופיע שם החוברת שעבורה אתה רוצה להסתיר את הסרגל (השתמשתי בשם החוברת שהעלת בפוסט לעיל)

                          פ 2 תגובות תגובה אחרונה תגובה ציטוט 2
                          • פ
                            פלורידה @OdedDvir נערך לאחרונה על ידי

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

                            OdedDvir תגובה 1 תגובה אחרונה תגובה ציטוט 0
                            • OdedDvir
                              OdedDvir @פלורידה נערך לאחרונה על ידי

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

                              פ תגובה 1 תגובה אחרונה תגובה ציטוט 2
                              • פ
                                פלורידה @OdedDvir נערך לאחרונה על ידי

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

                                OdedDvir תגובה 1 תגובה אחרונה תגובה ציטוט 0
                                • OdedDvir
                                  OdedDvir @פלורידה נערך לאחרונה על ידי

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

                                  פ תגובה 1 תגובה אחרונה תגובה ציטוט 2
                                  • פ
                                    פלורידה @OdedDvir נערך לאחרונה על ידי

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

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

                                    OdedDvir תגובה 1 תגובה אחרונה תגובה ציטוט 0
                                    • OdedDvir
                                      OdedDvir @פלורידה נערך לאחרונה על ידי

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

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

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

                                      פ תגובה 1 תגובה אחרונה תגובה ציטוט 1
                                      • פ
                                        פלורידה @OdedDvir נערך לאחרונה על ידי פלורידה

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

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

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

                                        תגובה 1 תגובה אחרונה תגובה ציטוט 0
                                        • פ
                                          פלורידה @OdedDvir נערך לאחרונה על ידי פלורידה

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

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

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

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

                                          דוגמא:

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

                                          OdedDvir תגובה 1 תגובה אחרונה תגובה ציטוט 0
                                          • OdedDvir
                                            OdedDvir @פלורידה נערך לאחרונה על ידי 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
                                            
                                            תגובה 1 תגובה אחרונה תגובה ציטוט 2
                                            • 1 / 1
                                            • פוסט ראשון
                                              פוסט אחרון
                                            בא תתחבר לדף היומי!