Harald wrote:
You have to open it by code.<<snip

Not necessarily, you could place code on ThisWorkbook code page...

Private Sub Workbook_Open()
If ActiveWorkbook.ReadOnly = False Then 'Means workbook is not read only
'<call your code/function/sub here
End if
End Sub

regards
ricky