Hilfe beim VBA-Code

[schadre]

Hallo ihr fleißigen Helfer. Durch googlen habe ich einen VBA-Code der es mir ermöglicht eine gesamten Arbeitsmappe zu durchsuchen.
Nun habe ich festgestellt, dass ich dieses Makro nicht in einer geschützten Datei ausführen lässt. Also was macht der hilflose Anwender  . Er googelt erneut und findet die Hilfe ich soll folgendes machen:

ActiveSheet.Unprotect Password:="Test""
Mein Makro
ActiveSheet.Protect Password:="Test" 

Gemacht getan mein Makro sieht dann so aus:
Option Explicit
Public strSuch As String
ActiveSheet.Unprotect Password:="Test""
Sub Suchen_alle_Tabellen()
Dim wks As Worksheet
Dim rng As Range
Dim strAddress As String, strFind As String
Dim oldColor As Integer
strFind = InputBox("Bitte Suchbegriff eingeben:", Application.UserName, strSuch)
If strFind = "" Then Exit Sub
For Each wks In Worksheets
Set rng = wks.Cells.Find(strFind, lookat:=xlPart, LookIn:=xlFormulas)
If Not rng Is Nothing Then
strAddress = rng.Address
Do
Application.GoTo rng, False
oldColor = rng.Interior.ColorIndex
rng.Interior.ColorIndex = 55
If MsgBox("Weiter", vbYesNo + vbQuestion) = vbNo Then GoTo Aufraeumen
rng.Interior.ColorIndex = oldColor
Set rng = Cells.FindNext(After:=ActiveCell)
If rng.Address = strAddress Then Exit Do
Loop
End If
Next wks
strSuch = strFind
MsgBox "Keine weiteren Fundstellen!", False, Application.UserName
Exit Sub
Aufraeumen:
rng.Interior.ColorIndex = oldColor
ActiveSheet.Protect Password:="Test" 
End Sub

Soweit so gut. Das funktioniert leider aber nur halb. 
1.) Der Blattschutz wird entfernt
2.) Das Makro wird ausgeführt und dann wird der Blattschutz leider nicht wieder aktiviert

Was ist falsch bei diesem Code/Vorgehen ??
Bitte helft einem Laien..........
Danke

[Fennek]

Hallo,

ohne den Code gelesen zu haben, die Struktur ist in etwa so:

Code:

sub Suchen()
such = "SuchwortW
for each Sht in sheets
     Sht.UnProtect "123"
     set rng = Sht.cells.find(such, xlValues, xlWhole)
     if not rng is nothing then
'Hier die Codes zum suchen
     endif
     Sht.Protect "123"
next Sht
end sub

[schadre]

Hallo,

ohne den Code gelesen zu haben, die Struktur ist in etwa so:

Code:

sub Suchen()
such = "SuchwortW
for each Sht in sheets
    Sht.UnProtect "123"
    set rng = Sht.cells.find(such, xlValues, xlWhole)
    if not rng is nothing then
'Hier die Codes zum suchen
    endif
    Sht.Protect "123"
next Sht
end sub

Hallo Fennek.
Vielen Dank für deine rasche Hilfe. Wenn ich deinen Code bei mir einfüge und ausführe bekomme ich eine Fehlermeldung

Laufzeitfehler "13"
Typen unverträglich.

Mache ich etwas falsch

[Fennek]

Hallo,

der Code ist ein "Gerüst" und so nicht lauffähig. Die notwendigen Änderungen musst du einfügen.

Code:

sub Suchen()
dim Sht as worksheet
such = "Suchwort"
for each Sht in thisworkbook.sheets
    Sht.UnProtect "123"
    set rng = Sht.cells.find(such, xlValues, xlWhole)
    if not rng is nothing then
'Hier die Codes zum suchen
    endif
    Sht.Protect "123"
next Sht
end sub

Außerdem hilft es anzugeben, in welcher Zeile der Fehler aufgetreten ist. Falls du "option explicit" verwendest, müssen alle Variablen dimensioniert werden.

mfg

[Rabe]

Hi,

strSuch = strFind
MsgBox "Keine weiteren Fundstellen!", False, Application.UserName
Exit Sub
Aufraeumen:
rng.Interior.ColorIndex = oldColor
ActiveSheet.Protect Password:="Test" 
End Sub

Soweit so gut. Das funktioniert leider aber nur halb. 
1.) Der Blattschutz wird entfernt
2.) Das Makro wird ausgeführt und dann wird der Blattschutz leider nicht wieder aktiviert

Was ist falsch bei diesem Code/Vorgehen ??
Bitte helft einem Laien..........
Danke

Wenn keine Fundstelle mehr vorhanden ist, wird das Makro verlassen: Exit Sub
danach wird nichts mehr ausgeführt.

Das Setzen des Blattschutzes muß an einer geeignete Stelle vor dem "Exit Sub" erfolgen.


Oder einfach das Exit Sub entfernen.