run a "call " when opening a workbook for edit

[CsJHUN]

Hi guys!

I have a private sub on "thisworkbook"

Private Sub Workbook_open()
Call module.macroname
End Sub

It is a password protected wb for edit. (So if you didnt give the password when opening you can only read and can't save the file)
I want to edit this privatesub for dont run that "call" if someone open the WB to edit it. (or if someone open for read-only run that "call")

You are awesome, thx for advice.
Cheers
John

 

[FormR]

You could try:

Private Sub Workbook_open()
If Me.ReadOnly Then Call Module.macroname
End Sub

 

[CsJHUN]

THX for quick reply, working
Never though that would be that easeee. I should look after that "me" a lil bit more
Thanks again

 

[FormR]

The "Me" keyword can be used here as you are in the "ThisWorkbook" code module. If you were using the code in another module it would be writted as:

ThisWorkbook.ReadOnly