RE: [belajar-excel] BreakLink
Dear Mr Kid,
Terima kasih atas masukannya Mr...
Salam,
DD
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 10 Desember 2016 3:43
To: BeExcel
Subject: Re: [belajar-excel] BreakLink
Hai Dede,
Coba begini :
dim link as variant
'jika ada sheet yang di-protect, lakukan loop setiap sheet disini dan isi
dengan proses unprotect sheet
'proses break link
for each link in thisworkbook.linksources(xlexcellinks)
thisworkbook.breaklink link,xllinktypeexcellinks
next link
'jika perlu mem-protect ulang sheets tertentu atau seluruhnya, lakukan loop
setiap sheet yang akan di-protec disini dan isi dengan proses protect sheet
Regards,
Kid
On Wed, Dec 7, 2016 at 1:37 PM, 'Dede Sulaeman'
dede_sulae...@pinusmerahabadi.co.id [belajar-excel]
wrote:
Dear BeExceller,
Berikut script yang saya pakai :
Sub Macro2()
FlNm = Range("A1").Value
u = Range("F1").Value
For x = 1 To u
On Error Resume Next
Sheets("Sheet1").Select
Sheets("Sheet1").Move
ActiveWorkbook.BreakLink Name:="" & FlNm & "", Type:=xlExcelLinks
Sheets("Sheet1").Select
Sheets("Sheet1").Move Before:=Workbooks("Book1").Sheets(1)
Next x
End Sub
Script ini hanya untuk BreakLink satu file saja.
Jadi kalau Tiga file gimana yah scriptnya?
Salam,
DD
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 07 Desember 2016 8:43
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] BreakLink
Dear Be Exceller,
Saya mempunyai file (sebut saja File A) yang formulanya nge-Link ke (3)tiga
file yang berbeda.
Apa scriptnya yah kalau saya mau nge-BreakLink “File A” tersebut.
Salam,
DD
Re: [belajar-excel] BreakLink
Hai Dede,
Coba begini :
dim link as variant
'jika ada sheet yang di-protect, lakukan loop setiap sheet disini dan isi
dengan proses unprotect sheet
'proses break link
for each link in thisworkbook.linksources(xlexcellinks)
thisworkbook.breaklink link,xllinktypeexcellinks
next link
'jika perlu mem-protect ulang sheets tertentu atau seluruhnya, lakukan loop
setiap sheet yang akan di-protec disini dan isi dengan proses protect sheet
Regards,
Kid
On Wed, Dec 7, 2016 at 1:37 PM, 'Dede Sulaeman'
dede_sulae...@pinusmerahabadi.co.id [belajar-excel] <
belajar-excel@yahoogroups.com> wrote:
>
>
> Dear BeExceller,
>
>
>
> Berikut script yang saya pakai :
>
>
>
> Sub Macro2()
>
> FlNm = Range("A1").Value
>
> u = Range("F1").Value
>
>
>
> For x = 1 To u
>
> On Error Resume Next
>
> Sheets("Sheet1").Select
>
> Sheets("Sheet1").Move
>
> ActiveWorkbook.BreakLink Name:="" & FlNm & "", Type:=xlExcelLinks
>
> Sheets("Sheet1").Select
>
> Sheets("Sheet1").Move Before:=Workbooks("Book1").Sheets(1)
>
> Next x
>
> End Sub
>
>
>
> Script ini hanya untuk BreakLink satu file saja.
>
> Jadi kalau Tiga file gimana yah scriptnya?
>
>
>
> Salam,
>
> DD
>
>
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:belajar-excel@
> yahoogroups.com]
> *Sent:* 07 Desember 2016 8:43
> *To:* belajar-excel@yahoogroups.com
> *Subject:* [belajar-excel] BreakLink
>
>
>
>
>
> Dear Be Exceller,
>
>
>
> Saya mempunyai file (sebut saja File A) yang formulanya nge-Link ke
> (3)tiga file yang berbeda.
>
> Apa scriptnya yah kalau saya mau nge-BreakLink “File A” tersebut.
>
>
>
> Salam,
>
> DD
>
>
>
RE: [belajar-excel] BreakLink
Dear Mr Toby,
Makasih atas masukannya, saya pelajari dulu.
Salam,
DD
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 07 Desember 2016 17:44
To: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] BreakLink
Dear DD,
Coba Script ini :
Dim a As Workbook
Dim b As Long
Dim c As Variant
Set a = ActiveWorkbook
c = a.LinkSources(Type:=xlLinkTypeExcelLinks)
For b = 1 To UBound(c)
a.BreakLink Name:=c(b), Type:=xlLinkTypeExcelLinks
Next b
Jika ada file link yang terprotect, maka tidak bisa nge-BreakLinks
TerimaKasih.
Pada Rabu, 7 Desember 2016 13:54, "'Dede Sulaeman'
dede_sulae...@pinusmerahabadi.co.id [belajar-excel]"
menulis:
Dear BeExceller,
Berikut script yang saya pakai :
Sub Macro2()
FlNm = Range("A1").Value
u = Range("F1").Value
For x = 1 To u
On Error Resume Next
Sheets("Sheet1").Select
Sheets("Sheet1").Move
ActiveWorkbook.BreakLink Name:="" & FlNm & "", Type:=xlExcelLinks
Sheets("Sheet1").Select
Sheets("Sheet1").Move Before:=Workbooks("Book1").Sheets(1)
Next x
End Sub
Script ini hanya untuk BreakLink satu file saja.
Jadi kalau Tiga file gimana yah scriptnya?
Salam,
DD
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 07 Desember 2016 8:43
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] BreakLink
Dear Be Exceller,
Saya mempunyai file (sebut saja File A) yang formulanya nge-Link ke (3)tiga
file yang berbeda.
Apa scriptnya yah kalau saya mau nge-BreakLink “File A” tersebut.
Salam,
DD
RE: [belajar-excel] BreakLink
Dear BeExceller,
Berikut script yang saya pakai :
Sub Macro2()
FlNm = Range("A1").Value
u = Range("F1").Value
For x = 1 To u
On Error Resume Next
Sheets("Sheet1").Select
Sheets("Sheet1").Move
ActiveWorkbook.BreakLink Name:="" & FlNm & "", Type:=xlExcelLinks
Sheets("Sheet1").Select
Sheets("Sheet1").Move Before:=Workbooks("Book1").Sheets(1)
Next x
End Sub
Script ini hanya untuk BreakLink satu file saja.
Jadi kalau Tiga file gimana yah scriptnya?
Salam,
DD
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 07 Desember 2016 8:43
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] BreakLink
Dear Be Exceller,
Saya mempunyai file (sebut saja File A) yang formulanya nge-Link ke (3)tiga
file yang berbeda.
Apa scriptnya yah kalau saya mau nge-BreakLink “File A” tersebut.
Salam,
DD
