Sub BreakLinks()
'Updateby20140318
Dim wb As Workbook
Set wb = Application.ActiveWorkbook
If Not IsEmpty(wb.LinkSources(xlExcelLinks)) Then
For Each link In wb.LinkSources(xlExcelLinks)
wb.BreakLink link, xlLinkTypeExcelLinks
Next link
End If
End Sub
| HỖ TRỢ |
|---|
| 02516-544-809 1900-636-507 |
| Giờ làm việc |
| Sáng 07h30 đến 12h00 |
| Chiều 13h30 đến 17h00 |