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

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

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

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

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

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

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

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

    Private Sub Workbook_Open()
        Application.DisplayFullScreen = True
    End Sub
    
    פ תגובה 1 תגובה אחרונה
    4
    • OdedDvirO OdedDvir

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

      Private Sub Workbook_Open()
          Application.DisplayFullScreen = True
      End Sub
      
      פ מנותק
      פ מנותק
      פלורידה
      כתב ב נערך לאחרונה על ידי
      #5

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

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

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

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

        @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
                                    • דף הבית
                                    • קטגוריות
                                    • פוסטים אחרונים
                                    • משתמשים
                                    • חיפוש
                                    • חוקי הפורום