Suchfunktion inaktiv bei ActiveWorkbook.ReadOnly

Private Sub _
Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveWorkbook.ReadOnly Then
Else
Dim Beginn As Date
Dim Pause As Date
Dim Ende As Date
Beginn = Timer
Pause = 300
Do Until Timer > Beginn + Pause
DoEvents
Loop
Ende = Timer
Me.Save
Me.Close
End If
End Sub

Wenn ich nun das Dokument ohne Schreibschutz öffne, ist eine Suche (STRG+F) immer nur einmal möglich. Anschließend regiert die Tastenkombi nicht mehr. Ich muss erst das Dokument schließen und neu öffnen, dann klappt die Suche wieder genau einmal.
Ist das Dokument schreibgeschützt geöffnet kann ich die Suche mehrfach verwenden.
Vielen Dank für Eure Hilfe und ein gesundes 2008.
Stefan