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

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

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

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

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

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

    A תגובה 1 תגובה אחרונה
    0
  • A מנותק
    A מנותק
    avi rz
    השיב לפלורידה ב נערך לאחרונה על ידי
    #2

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

    פ תגובה 1 תגובה אחרונה
    0
  • פ מנותק
    פ מנותק
    פלורידה
    השיב לavi rz ב נערך לאחרונה על ידי
    #3

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

    OdedDvirO תגובה 1 תגובה אחרונה
    0
  • OdedDvirO מנותק
    OdedDvirO מנותק
    OdedDvir
    השיב לפלורידה ב נערך לאחרונה על ידי
    #4

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

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

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

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

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

    OdedDvirO תגובה 1 תגובה אחרונה
    0
  • OdedDvirO מנותק
    OdedDvirO מנותק
    OdedDvir
    השיב לפלורידה ב נערך לאחרונה על ידי
    #6

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

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

    פ תגובה 1 תגובה אחרונה
    1
  • פ מנותק
    פ מנותק
    פלורידה
    השיב לOdedDvir ב נערך לאחרונה על ידי
    #7

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

    OdedDvirO תגובה 1 תגובה אחרונה
    0
  • OdedDvirO מנותק
    OdedDvirO מנותק
    OdedDvir
    השיב לפלורידה ב נערך לאחרונה על ידי
    #8

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

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

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

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

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

    תגובה 1 תגובה אחרונה
    0
  • פ מנותק
    פ מנותק
    פלורידה
    השיב לOdedDvir ב נערך לאחרונה על ידי
    #10

    @odeddvir

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

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

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

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

    OdedDvirO תגובה 1 תגובה אחרונה
    0
  • 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
  • פ מנותק
    פ מנותק
    פלורידה
    השיב לOdedDvir ב נערך לאחרונה על ידי
    #12

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

    OdedDvirO תגובה 1 תגובה אחרונה
    0
  • OdedDvirO מנותק
    OdedDvirO מנותק
    OdedDvir
    השיב לפלורידה ב נערך לאחרונה על ידי
    #13

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

    פ תגובה 1 תגובה אחרונה
    2
  • פ מנותק
    פ מנותק
    פלורידה
    השיב לOdedDvir ב נערך לאחרונה על ידי
    #14

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

    OdedDvirO תגובה 1 תגובה אחרונה
    0
  • OdedDvirO מנותק
    OdedDvirO מנותק
    OdedDvir
    השיב לפלורידה ב נערך לאחרונה על ידי
    #15

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

    פ תגובה 1 תגובה אחרונה
    2
  • פ מנותק
    פ מנותק
    פלורידה
    השיב לOdedDvir ב נערך לאחרונה על ידי
    #16

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

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

    OdedDvirO תגובה 1 תגובה אחרונה
    0
  • OdedDvirO מנותק
    OdedDvirO מנותק
    OdedDvir
    השיב לפלורידה ב נערך לאחרונה על ידי
    #17

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

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

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

    פ תגובה 1 תגובה אחרונה
    1
  • פ מנותק
    פ מנותק
    פלורידה
    השיב לOdedDvir ב נערך לאחרונה על ידי פלורידה
    #18

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

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

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

    תגובה 1 תגובה אחרונה
    0
  • פ מנותק
    פ מנותק
    פלורידה
    השיב לOdedDvir ב נערך לאחרונה על ידי פלורידה
    #19

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

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

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

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

    דוגמא:

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

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

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

  • התחברו או הירשמו כדי לחפש.