Help Returning A Function Boolean

[viruzman]

hi all,

just wondering on how to build a function, basicly i want the function to
test is activeworkbook.haspassword is true of false, then if the function is true, the
returned message should be "This Book Is Protected", and if false "This Book in non Protected".

and to use the function like so, if i have a userform4 with a textbox2 on it,

i want to type Public sub Command1_click()
CheckBookPass (textbox2.text)

and the returnes string in Textbox2.text would be This Book Is Protected is true. on so on,

thank you

[viruzman]

Does anyone have a solution.

thank you

[Leith Ross]

Hello ,

Add a VBA Module to your workbook and paste this code into it.

Please Login or Register  to view this content.

Here iscode for Command1

Please Login or Register  to view this content.

[viruzman]

huh, seems to work good thank you,

must of been coding too much lately. thenk you appreciated.