VBA function call from another open workbook

[Spikenaylor]

In workbook 1

Functions - module

Public Function Sheetpasswrd()
Sheetpasswrd = "1234"
End Function

VBA Project locked for viewing etc

In workbook 2

in a vba module

I am moving the data from workbook 2 into workbook 1 but I need to unlock the workbook 1

In workbook 2, i can within a cell retrieve the password

In VBA i am struggling to retrieve the password from the function in workbook 1

I have tried various solutions from the net but unsuccesfully

Workbook 2 module

dim wbk as Workbook, password as string

set wbk = Workbooks.open(Filename:= "Path to workbook 1)

wbk. activate

password = Application.run(wkb!Functions, Sheetpasswrd)

wbk.unprotect password:= password


I just keep coming up with errors

Can anyone point out my errors

 

[dmt32]

Hi,

try changing this line

password = Application.run(wkb!Functions, Sheetpasswrd)

to this

password = Application.Run(wkb.Name & "!Sheetpasswrd")

and see if this does what you want.


Dave

 

[Fluff]

Further to the suggestion by dmt32
Should it be wbk, rather than wkb

 

[dmt32]

Further to the suggestion by dmt32
Should it be wbk, rather than wkb

many thanks - I missed that!

Dave

 

[lhartono]

Modify your Sheetpasswrd function calling like this..

[COLOR=#0000cd]password= Application.Run("'" & wbk.Name & "'![/COLOR][COLOR=#0000cd]Sheetpasswrd")[/COLOR]

 

[Spikenaylor]

Great
works
Thanks a lot
I didn't notice the spelling mistake
many thanks