تبدیل به پیوندها در یک کتاب کار مشترک در اکسل

Question

اریک یک کتاب کار مشترک دارد که شامل پایگاه داده ای از حدود 3500 رکورد است. دو سلول در هر رکورد حاوی یک آدرس ایمیل و یک URL هستند. هنگامی که یک رکورد جدید به پایگاه داده اضافه می شود، آدرس ایمیل و URL به جای اینکه به صورت لینک هایپرلینک باشند، به صورت متن معمولی ظاهر می شوند. برای تبدیل آن‌ها به لینک‌ها، اریک باید اشتراک‌گذاری کتاب کار را لغو کند، تغییر را انجام دهد و سپس کتاب کار را دوباره به اشتراک بگذارد. اریک از خود پرسید که آیا شاید راه آسان تری برای مدیریت این وضعیت وجود داشته باشد.

خیلی ساده، افزودن و ویرایش هایپرلینک ها هنگام استفاده از کتاب کار مشترک مجاز نیست. ساده ترین راه این است که پیوندها را در سلول های جداگانه به عنوان متن قرار دهید و سپس از فرمول HYPERLINK برای ارجاع به آن سلول ها استفاده کنید.

به عنوان مثال، اگر URL در سلول E2 وارد شده باشد، می توانید از فرمول زیر در سلول دیگری استفاده کنید:

=HYPERLINK(E2, E2)

آرگومان اول در این فرمول به سلولی است که حاوی آدرس است و آرگومان دوم برای متنی است که برای هایپرلینک نمایش داده می شود. این رویکرد به دو ستون اضافی (برای فرمول های HYPERLINK) نیاز دارد، اما نیازی به لغو اشتراک و اشتراک گذاری مجدد کتاب کار ندارد.

تنها گزینه دیگر ایجاد یک ماکرو است که می‌تواند فرآیند لغو اشتراک‌گذاری و اشتراک‌گذاری مجدد کتاب کار را خودکار کند. ماکرو زیر این کار را انجام می دهد و هر آنچه در سلول انتخاب شده است را به یک لینک تبدیل می کند.

Sub AddHyperlink()
    Dim cell As Range

    Application.DisplayAlerts = False

     Unshare the Workbook
    If ActiveWorkbook.MultiUserEditing Then
        ActiveWorkbook.ExclusiveAccess
    End If

     Change address in cell to a hyperlink.
    If ActiveCell = "" Then
        ActiveCell.Hyperlinks.Delete
    Else
        For Each cell In Intersect(Selection, _
          Selection.SpecialCells(xlConstants, xlTextValues))
            With Worksheets(1)
                .Hyperlinks.Add Anchor:=cell, _
                  Address:=cell.Value, _
                  ScreenTip:=cell.Value, _
                  TextToDisplay:=cell.Value
            End With
        Next cell
    End If

     Reshare the Workbook
    If Not ActiveWorkbook.MultiUserEditing Then
        ActiveWorkbook.SaveAs _
          Filename:=ActiveWorkbook.FullName, _
          AccessMode:=xlShared
    End If
End Sub

لازم به ذکر است که مایکروسافت قابلیت Shared Workbook را در آخرین نسخه های اکسل حذف کرد. تالیف مشترک روش جدیدتری برای اشتراک‌گذاری کتاب‌های کار است. صفحه وب زیر نحوه دسترسی به دکمه های Shared Workbook را در صورت نیاز توضیح می دهد. برای مثال، اگر باید ویژگی Shared Workbook را خاموش کنید:

https://support.office.com/en-us/article/What-happened-to-shared-workbooks-150FC205-990A-4763-82F1-6C259303FE05