Dera para master, minta bantuan pada para master tentang masalah
berikut;

        Saya menginginkan ada sebuah workbook yang saya kasih macro, jika
saya ganti nama workbook tersebut maka pada sheet1 cell B3 itu sesuai dengan
nama workbook meskipun workbooknya diganti ganti. Tetapi masih berkendala
jika sheet1 cell B3 itu ikut saya protect maka pada sheet1 cell B3 tidak
bisa secara otomatis berubah mengikuti nama workbook tersebut, mohon
pencerahannya.

        Kode macro yang saya buat seperti berikut ;

        

 

Sub jajal()

    ActiveCell.FormulaR1C1 = "=WkbName()"

                          Range("B3").Select

End Sub

(Terdapat pada sheet 1)

______________________________________________

 

Function WkbName()

    WkbName = ActiveWorkbook.Name

End Function

 

(Terdapat pada macro 1)

        

        Supaya lebih jelas saya ilustrasikan pada Ike terlampir. Syukron....

               

PRAZTMATH T

 

<<image001.gif>>

<<image002.png>>

<<image004.png>>

<<image006.jpg>>

Attachment: coba macro.xlsb
Description: application/vnd.ms-excel.sheet.binary.macroenabled.12

Kirim email ke