Hallo Zusammen,

habe ein winziges Problem,
per Inputbox suche ich in einem geschützten Blatt nach Übereinstimmung bei der Seminarnummer,
klappt auch wunderbar - ein Thema habe ich aber und verstehhe es nicht, vielleicht kann mir Jemand helfen - ist bestimmt nur eine Kleinigkeit.

Das Blatt ist geschützt, nach Commandbutton funktioniert die Entsperrung, Suche funktioniert - alles Tutti,
das Problem:ist der gesuchte Wert in der Liste vorhanden wird die Zelle angesprungen (soll sie auch) der Blattschutz aber nicht wieder eingeschaltet,
wenn die Suche nicht übereinstimmt bleibt der Schutz drin, MSG-Box funktioniert alles cool - nur der Schutz bei Übereinstimmung nicht.

Hier mein Code:

Sub AA_SeminarSuchen()

ActiveSheet.Unprotect

Dim wks As Worksheet

Dim rng As Range
Dim sAddress As String, sFind As String
sFind = InputBox("Seminarnummer suchen")
For Each wks In Sheets(Array("Seminarliste")) 'Worksheets
Set rng = wks.Cells.Find(what:=("*" & sFind & "*"), lookat:=xlWhole, LookIn:=xlFormulas)
If Not rng Is Nothing Then
sAddress = rng.Address
Do
Application.Goto rng, False
'If MsgBox(prompt:="Weiter", Buttons:=vbYesNo + vbQuestion) = vbNo Then Exit Sub
'Set rng = Cells.FindNext(after:=ActiveCell)
If rng.Address = sAddress Then Exit Sub 'Do
Loop
End If
Next wks

MsgBox prompt:=("Seminarnummer nicht gefunden!")

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowSorting:=False, AllowFiltering:=False

End Sub


Kann mir jemand auf die Spruenge helfen - waere cool, ist sicher nur eine Kleinigkeit

VG Micha