Option
Explicit
'***********<
Schutz und Eingabe >****************
'*Eingabefelder
zuruecklesen
'*
Public Sub
Verlinkungen_loeschen_Arbeitsmappe(ByRef wb As Workbook)
'-----------------<
Verlinkungen_loeschen_Arbeitsmappe() >-----------------
'----< Sheets ermitteln >----
Dim ws As Worksheet
'--< @Loop: alle Sheets >--
For Each ws In wb.Sheets
If ws.Visible = xlSheetVisible Then
If ws.Range("A1").Value
= "z" Then
Application.StatusBar
= Now & " Verlinkungen löschen->" & ws.Name
Verlinkungen_loeschen_in_Blatt
wb, ws
End If
End If
Next
'--< @Loop: alle Sheets >--
Application.StatusBar = Now & " Fertig: " &
wb.Name & " verlinkungen löschen"
'-----------------</ Verlinkungen_loeschen_Arbeitsmappe()
>-----------------
End Sub
Public Sub
Verlinkungen_loeschen_in_Blatt(ByVal wb As Workbook, ByVal ws As Worksheet)
'-----------------< Verlinkungen_loeschen_in_Blatt()
>-----------------
'*löscht alle verlinkungen
ws.Activate
'----< Sheets ermitteln >----
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'----< @Loop: Eingabezellen >----
Dim array_ExternalLinks
array_ExternalLinks = wb.LinkSources(Type:=xlLinkTypeExcelLinks)
Dim iLink As Integer
For iLink = 1 To UBound(array_ExternalLinks)
'-< einlesen_einzelzelle >-
wb.BreakLink
Name:=array_ExternalLinks(iLink), Type:=xlLinkTypeExcelLinks
Application.StatusBar = Now &
" link löschen : " & iLink
'-</ einlesen_EinzelZelle
>-
Next iLink
'----</ @Loop: Eingabezellen >----
'< close >
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
'</ close >
'-----------------</
Verlinkungen_loeschen_in_Blatt() >-----------------
End Sub
|