Sub Remove_External_Links()
' Макрос снимающий все связи с другими книгами
For Each Worksheet In Worksheets
If Worksheet.ProtectContents = True Then
Worksheet.Unprotect (5)
End If
Next Worksheet
alinks = ActiveWorkbook.LinkSources
'проверяем есть ли ссылка на другие файлы, если нет, то выходим из поцедуры
If IsArray(alinks) = False Then GoTo SET_PW
'находим количество элементов в массиве
Links = UBound(alinks)
For i = 1 To Links
Name1 = ActiveWorkbook.LinkSources
ActiveWorkbook.BreakLink alinks(i), Type:=xlExcelLinks
Next i
SET_PW:
For Each Worksheet In Worksheets
Worksheet.Protect (5)
Next Worksheet
End Sub

Multi user editing change

Sub NotModeAccess()
Dim o As Workbook
Set o = ActiveWorkbook
Application.DisplayAlerts = False
If ActiveWorkbook.MultiUserEditing Then
ActiveWorkbook.ExclusiveAccess
End If
Application.DisplayAlerts = True
End Sub

Style of links

Sub Stile_of_Links()
'
' Stile_of_Links Макрос
' Меняет стиль ссылок. Столбцы становятся цифрами или буквами!

If Application.ReferenceStyle = xlR1C1 Then
Application.ReferenceStyle = xlA1
Else
Application.ReferenceStyle = xlR1C1
End If
End Sub

All Sheets in workbook name

Sub All_Sheet_select()
For each worksheet in Worksheets
MsgBox Worksheet.Name
Next Worksheet
End Sub