Az önce başka bir forumda sizin aynı sorunuzla karşılaştım çözümü alttaki gibiymiş teşekkür etmiş.

ActiveWorkbook yerine Thisworkbook ile neneyin abey.

Private Sub Workbook_Open()
If ThisWorkbook.ReadOnly Then
ThisWorkbook.Close
End If
End Sub