Berikut saya tulis ulang dengan sederhana kodenya:

ActiveCell.Formula = "='E:\[Data.xlsm]Sheet1'!$A$1"

Keterangan:

E:\Data.xlsm berpassword

Kirim email ke