Skip to main content

כיצד להשבית עריכה בתיבת טקסט כדי למנוע מהמשתמש להקליד ב-Excel?

Author: Siluvia Last Modified: 2025-05-30

המאמר הזה מדבר על השבתת עריכת תיבת טקסט (ActiveX Control) או מספר תיבות טקסט (ActiveX Control) כדי למנוע מהמשתמש להקליד ב-Excel.

השבתת עריכה בתיבת טקסט על ידי שינוי המאפיינים שלה
השבתת עריכה במספר תיבות טקסט באמצעות קוד VBA


השבתת עריכה בתיבת טקסט על ידי שינוי המאפיינים שלה

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

1. הדלק את מצב העיצוב על ידי לחיצה על Developer > Design Mode. ראה צילום מסך:

click Developer > Design Mode

2. לחץ ימני על תיבת הטקסט ולחץ על Properties מהתפריט הקונטקסטואלי כפי שמוצג בסcreenshot למטה.

Right-click the textbox and click Properties

3. בחלון Properties שנפתח, בחר False בתיבה Enabled ולאחר מכן סגור את חלון Properties. ראה צילום מסך:

select False in the Enabled box

עכשיו תיבת הטקסט שנבחרה אפורה ולא ניתן לערוך אותה.

the selected textbox is gray and unable to edit

a screenshot of kutools for excel ai

פתחו את הקסם של Excel עם Kutools AI

  • ביצוע חכם: בצעו פעולות בתאים, ניתוח נתונים ויצירת תרשימים - הכל מונע על ידי פקודות פשוטות.
  • נוסחאות מותאמות אישית: צור נוסחאות מותאמות אישית כדי להיעיל את זרימת העבודה שלך.
  • תכנות VBA: כתבו והטמיעו קוד VBA ללא מאמץ.
  • פרשנות נוסחאות: הבינו נוסחאות מורכבות בקלות.
  • תרגום טקסט: שברו את מחסומי השפה בגיליונות הנתונים שלכם.
שפרו את יכולות ה-Excel שלכם עם כלים המופעלים על ידי AI. הורידו עכשיו וחוו יעילות כ никогда קודם לכן!

השבתת עריכה במספר תיבות טקסט באמצעות קוד VBA

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

1. בגיליון העבודה שמכיל תיבות הסימון שאתה צריך להשבית את העריכה בהן, לחץ על Developer > Insert > Check Box (ActiveX Control) כדי להוסיף תיבת סימון לגיליון העבודה. ראה צילום מסך:

click Developer > Insert > Check Box

2. לחץ ימני על תיבת הסימון ובחר View Code מהתפריט הקונטקסטואלי. ראה צילום מסך:

Right-click the checkbox and select View Code

3. בחלון Microsoft Visual Basic for Applications, אנא החלף את הקוד המקורי עם קוד ה-VBA הבא.

קוד VBA: השבתת עריכה במספר תיבות טקסט

Private Sub CheckBox1_Click()
    Dim xTextBox As OLEObject
    Dim xFlag As Boolean
    Dim I As Long
    Dim xArr
    xArr = Array("TextBox1", "TextBox2", "TextBox3")
    xFlag = True
    If Me.CheckBox1 Then xFlag = False
    For Each xTextBox In ActiveSheet.OLEObjects
        If TypeName(xTextBox.Object) = "TextBox" Then
            For I = 0 To UBound(xArr)
                If xTextBox.Name = xArr(I) Then
                    xTextBox.Enabled = xFlag
                End If
            Next
        End If
    Next
End Sub

הערות:

1. בקוד, CheckBox1 הוא השם של תיבת הסימון שהוספת. ו-TextBox1, TextBox2, ו-TextBox3 הם תיבות הטקסט שתהפוך אותן ללא ניתנות לעריכה בגיליון העבודה. אנא שנה אותם לפי הצורך.

2. כדי להשבית עריכה עבור תיבות טקסט נוספות, אנא הוסף את שם תיבת הטקסט תוך שימוש במירכאות כפולות בשורה xArr = Array("TextBox1", "TextBox2", "TextBox3").

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

check the checkbox will make all specified textboxes unable to edit

הערה: אם תבטל את הסימון בתיבת הסימון, תיבות הטקסט יכולות להיות ערוכות שוב.


מאמרים קשורים:

כלי הפרודוקטיביות הטובים ביותר ל-Office

🤖 Kutools AI Aide: מהפכה בניתוח נתונים באמצעות: ביצוע חכם |צור קוד |צור נוסחאות מותאם אישית |נתח נתונים וייצר תרשימים |הפעל פונקציות משופרות
פיצ'רים פופולריים: מצא, הדגש או סמן כפילויות | מחק שורות ריקות | שלב עמודות או תאים מבלי לאבד נתונים |   עיגול ...
חיפוש מתקדם: VLookup עם מספר קריטריונים | VLookup לערכים מרובים | חיפוש במספר גליונות | התאמה עמומה ....
רשימת נפתחת מתקדמת: צור במהירות רשימה נפתחת | רשימה נפתחת תלויה | רשימה נפתחת עם בחירה מרובה ....
מנהל עמודות: הוסף מספר עמודות מסוים | העבר עמודות | החלף מצב תצוגה של עמודות מוסתרות | השווה טווחים ועמודות ...
פיצ'רים נבחרים: מיקוד רשת | תצוגת עיצוב | שורת נוסחאות משופרת | נהל חוברת עבודה וגליון עבודה | ספריית טקסט אוטומטי (Auto Text) | בורר תאריך | מיזוג נתונים | הצפן/פענח תאים | שלח דואר אלקטרוני לפי טבלה חד-ממדית | סינון מתקדם | סינון מיוחד (סנן תאים עם גופן מודגש/נטוי/קו חוצה...) ...
15 ערכות כלים מובילות:12 כלי טקסט (הוסף טקסט, מחק תווים מסוימים, ...) | מעל50 סוגי תרשימים (תרשים גאנט, ...) | מעל40 נוסחאות חכמות (חישוב גיל על פי תאריך לידה, ...) |19 כלי הוספה (הכנס קוד QR, הכנס תמונה מנתיב, ...) |12 כלי המרה (המרה למילים, המרת מטבע, ...) |7 כלי מיזוג ופיצול (מיזוג מתקדם של שורות, פיצול תאים, ...) | ...ועוד

שדרג את כישורי ה-Excel שלך עם Kutools for Excel ותחווה יעילות שלא הכרת. Kutools for Excel מציע מעל300 פיצ'רים מתקדמים לשיפור הפרודוקטיביות ולחסוך זמן. לחץ כאן כדי לקבל את הפיצ'ר שהכי נחוץ לך...


Office Tab מביא ממשק טאב ל-Office והופך את העבודה שלך להרבה יותר קלה

  • אפשר עריכה וקריאה בטאבים ב-Word, Excel, PowerPoint
  • פתח וצור מסמכים מרובים בטאבים חדשים באותו חלון, במקום בחלונות חדשים.
  • הגדל את הפרודוקטיביות שלך ב-50% וצמצם מאות קליקים של עכבר בכל יום!