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'
[email protected] [belajar-excel] <
[email protected]> 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:* [email protected] [mailto:belajar-excel@
> yahoogroups.com]
> *Sent:* 07 Desember 2016 8:43
> *To:* [email protected]
> *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
>
>
>
