Fehlermeldung zu Makro in Excel 2007
26.02.2009 11:47:41
Glen
Habe folgenden Code der bis anhin einwandfrei auf Excel 2000 funktionierte. Nun bei der V.2007 erscheint der Fehler (Fehler beim Kompilieren. Variable nicht definiert) und markiert jeweils die Stelle (Antwort =) im Code.
Kann mir bitte jemand helfen und sagen was dagegen getan werden kann?
Hier die Makros um den Blattschutz für alle Mappen ein.- u. auszuschalten:
Sub Blattschutz_ein()
Antwort = MsgBox("Wollen Sie alle Mappen schützen?", vbYesNo + vbQuestion, "Empfehlung zum _
aktivieren des Blattschutz")
If Antwort = vbNo Then
Exit Sub
End If
Dim TB As Variant
Application.ScreenUpdating = False
For Each TB In ActiveWorkbook.Sheets
TB.Protect Password:=""
TB.EnableSelection = xlSelection
Next
MsgBox "Alle Mappen der Tabelle sind nun geschützt!", 48 + 0, "Blattschutz aktiviert"
End Sub
Sub Blattschutz_aus()
Antwort = MsgBox("Schutz bei allen Mappen aufheben?", vbYesNo + vbQuestion, "Deaktivieren vom _
_
Blattschutz")
If Antwort = vbNo Then
Exit Sub
End If
Dim TB As Variant
Application.ScreenUpdating = False
For Each TB In ActiveWorkbook.Sheets
TB.Unprotect Password:=""
TB.EnableSelection = xlSelection
Next
MsgBox "Alle Mappen der Tabelle sind nun offen!", 48 + 0, "Blattschutz deaktiviert"
End Sub
Tausend Dank im voraus an alle Helfer.
Grüsse, Glen