ich habe folgendes Problem. Habe unter Excel2000 folgenden Code der auch funktioniert:
Sub Passwort() 'einblenden
Dim rng As Range
Dim sPassWord As String
sPassWord = InputBox("Bitte ein Paßwort eingeben:", "Passwort")
Select Case sPassWord
Case "MeinPasswort"
Call ProtectUnprotectaufheben 'Blattschutz aufheben
For Each rng In Range("C5:H200").Cells 'einblenden Zeilen
If rng.Interior.ColorIndex = 3 Then
Rows(rng.Row).Hidden = False
End If
Next rng
Case ""
Case Else
Beep
MsgBox "Paßwort ist falsch"
End Select
End Sub
Unter Excel97 bekomme ich jetzt folgende Fehlermeldung:
Die Methode Protect für das Objekt_Worksheet ist fehlgeschlagen.
Wenn ich jetzt den Blattschutz rausnehme bekomme ich die nächtst Meldung:
Die Hidden-Eigenschaft des Range-Objektes kann nicht festgelegt werden.
Woran kann das liegen? Unter Excel2000 läuft alles wunderbar.
Schon jetzt danke,
Kay