דילוג לתוכן
  • דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
כיווץ
תחומים

תחומים - פורום חרדי מקצועי

💡 רוצה לזכור קריאת שמע בזמן? לחץ כאן!
  1. דף הבית
  2. תוכנה
  3. אקסל | פתיחת קובץ במסך מלא כברירת מחדל

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

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

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

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

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

    OdedDvirO מנותק
    OdedDvirO מנותק
    OdedDvir
    כתב ב נערך לאחרונה על ידי
    #6

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

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

    פ תגובה 1 תגובה אחרונה
    1
    • OdedDvirO OdedDvir

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

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

      פ מנותק
      פ מנותק
      פלורידה
      כתב ב נערך לאחרונה על ידי
      #7

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

      OdedDvirO תגובה 1 תגובה אחרונה
      0
      • פ פלורידה

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

        OdedDvirO מנותק
        OdedDvirO מנותק
        OdedDvir
        כתב ב נערך לאחרונה על ידי
        #8

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

        Private Sub Workbook_Open()
           Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",False)"
        End Sub
        
        פ 2 תגובות תגובה אחרונה
        2
        • OdedDvirO OdedDvir

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

          Private Sub Workbook_Open()
             Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",False)"
          End Sub
          
          פ מנותק
          פ מנותק
          פלורידה
          כתב ב נערך לאחרונה על ידי
          #9

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

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

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

          תגובה 1 תגובה אחרונה
          0
          • OdedDvirO OdedDvir

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

            Private Sub Workbook_Open()
               Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",False)"
            End Sub
            
            פ מנותק
            פ מנותק
            פלורידה
            כתב ב נערך לאחרונה על ידי
            #10

            @odeddvir

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

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

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

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

            OdedDvirO תגובה 1 תגובה אחרונה
            0
            • פ פלורידה

              @odeddvir

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

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

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

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

              OdedDvirO מנותק
              OdedDvirO מנותק
              OdedDvir
              כתב ב נערך לאחרונה על ידי OdedDvir
              #11

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

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

                פ מנותק
                פ מנותק
                פלורידה
                כתב ב נערך לאחרונה על ידי
                #12

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

                OdedDvirO תגובה 1 תגובה אחרונה
                0
                • פ פלורידה

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

                  OdedDvirO מנותק
                  OdedDvirO מנותק
                  OdedDvir
                  כתב ב נערך לאחרונה על ידי
                  #13

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

                  פ תגובה 1 תגובה אחרונה
                  2
                  • OdedDvirO OdedDvir

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

                    פ מנותק
                    פ מנותק
                    פלורידה
                    כתב ב נערך לאחרונה על ידי
                    #14

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

                    OdedDvirO תגובה 1 תגובה אחרונה
                    0
                    • פ פלורידה

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

                      OdedDvirO מנותק
                      OdedDvirO מנותק
                      OdedDvir
                      כתב ב נערך לאחרונה על ידי
                      #15

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

                      פ תגובה 1 תגובה אחרונה
                      2
                      • OdedDvirO OdedDvir

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

                        פ מנותק
                        פ מנותק
                        פלורידה
                        כתב ב נערך לאחרונה על ידי
                        #16

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

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

                        OdedDvirO תגובה 1 תגובה אחרונה
                        0
                        • פ פלורידה

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

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

                          OdedDvirO מנותק
                          OdedDvirO מנותק
                          OdedDvir
                          כתב ב נערך לאחרונה על ידי
                          #17

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

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

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

                          פ תגובה 1 תגובה אחרונה
                          1
                          • OdedDvirO OdedDvir

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

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

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

                            פ מנותק
                            פ מנותק
                            פלורידה
                            כתב ב נערך לאחרונה על ידי פלורידה
                            #18

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

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

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

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

                              פ מנותק
                              פ מנותק
                              פלורידה
                              כתב ב נערך לאחרונה על ידי פלורידה
                              #19

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

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

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

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

                              דוגמא:

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

                              OdedDvirO תגובה 1 תגובה אחרונה
                              0
                              • פ פלורידה

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

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

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

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

                                דוגמא:

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

                                OdedDvirO מנותק
                                OdedDvirO מנותק
                                OdedDvir
                                כתב ב נערך לאחרונה על ידי OdedDvir
                                #20

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

                                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
                                תגובה
                                • תגובה כנושא
                                התחברו כדי לפרסם תגובה
                                • מהישן לחדש
                                • מהחדש לישן
                                • הכי הרבה הצבעות


                                בא תתחבר לדף היומי!
                                • התחברות

                                • אין לך חשבון עדיין? הרשמה

                                • התחברו או הירשמו כדי לחפש.
                                • פוסט ראשון
                                  פוסט אחרון
                                0
                                • דף הבית
                                • קטגוריות
                                • פוסטים אחרונים
                                • משתמשים
                                • חיפוש
                                • חוקי הפורום