כיצד להסיר או לכבות קישורים היפרטקסטים ב-Excel?

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

• הסר את כל הקישורים ההיפרטקסטים בטווח באמצעות פקודת הסר קישורים היפרטקסטים (Excel 2010 וגרסאות מאוחרות יותר)
• הסר את כל הקישורים ההיפרטקסטים בגליון עבודה באמצעות קוד VBA (כל גרסאות Excel)
• הסר את כל הקישורים ההיפרטקסטים מבלי לאבד עיצוב באמצעות קוד VBA (כל גרסאות Excel)
• הסר את כל הקישורים ההיפרטקסטים מבלי לאבד עיצוב בטווחים, גליונות או חוברת עבודה עם Kutools עבור Excel (כל גרסאות Excel)
• כבה או השבת קישורים היפרטקסטים אוטומטיים ב-Excel

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

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

1. בחר את הטווח שמכיל את הקישורים ההיפרטקסטים שברצונך להסיר.

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

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

3. וכל הקישורים ההיפרטקסטים בטווח הנבחר יוסרו בבת אחת.

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

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

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

2. החזק את מקשי ALT + F11 כדי לפתוח את חלון Microsoft Visual Basic for Applications.

3. לחץ על הוסף > מודול, והדבק את הקוד הבא בחלון המודול.

קוד VBA: הסר את כל הקישורים ההיפרטקסטים מגליון העבודה הפעיל:

Sub RemoveHyperlinks() 
ActiveSheet.Hyperlinks.Delete 
End Sub

4. לאחר מכן, לחץ על מקש F5 כדי להריץ את הקוד הזה, וכל הקישורים ההיפרטקסטים יוסרו מגליון העבודה הפעיל מיד.

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

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

1. החזק את מקשי ALT + F11 כדי לפתוח את חלון Microsoft Visual Basic for Applications.

2. לחץ על הוסף > מודול, והדבק את הקוד הבא בחלון המודול.

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

Sub RemoveHlinkskeepformatting()
Dim Rng As Range
Dim WorkRng As Range
Dim TempRng As Range
Dim UsedRng As Range
Dim xLink As Hyperlink
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set UsedRng = Application.ActiveSheet.UsedRange
For Each xLink In WorkRng.Hyperlinks
    Set TempRng = Cells(1, UsedRng.Column + UsedRng.Columns.Count)
    Set Rng = xLink.Range
    Rng.Copy TempRng
    Rng.ClearHyperlinks
    Set TempRng = TempRng.Resize(Rng.Rows.Count, Rng.Columns.Count)
    TempRng.Copy
    Rng.PasteSpecial xlPasteFormats
    TempRng.Clear
Next
End Sub

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

4. ואז, לחץ על אישור, הקישורים ההיפרטקסטים הוסרו, אך עיצוב הקישורים ההיפרטקסטים (כולל הקווים תחתונים) נשמר. ראה צילומי מסך:

הסר את כל הקישורים ההיפרטקסטים בטווחים, גליונות או חוברת עבודה עם Kutools עבור Excel

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

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

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

כבה או השבת קישורים היפרטקסטים אוטומטיים ב-Excel

Excel יצור באופן אוטומטי קישורים היפרטקסטים כאשר אתה מקליד כתובות אינטרנט או דוא"ל; אם אתה צריך להשבית את ההתנהגות הזו, אנא עשה כך:

1. ב-Excel 2010 וגרסאות מאוחרות יותר, לחץ על קובץ > אפשרויות; ב-Excel 2007, לחץ על כפתור Office > אפשרויות Excel כדי לפתוח את תיבת הדו-שיח אפשרויות Excel.

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

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

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