Hi,

ich habe Teile eines Tabellenblattes mit folgendem Befehl geschützt.

ActiveSheet.Protect Password:="xxx" ', DrawingObjects:=True, Contents:=True, Scenarios:=True
With Worksheets(1)
.EnableSelection = xlUnlockedCells
End With

Desweiteren habe ich eine Spalte versteckt mit dem Befehl
Columns(39).Hidden = True.
Jedesmal wenn ich auf den Tabellenblatt in einer Zelle einen Wert eintragen will,
erscheint nach Enter bei Columns(39).Hidden = True die folgende Fehlermeldung:

Laufzeitfehler '1004'
Die Hidden- Eigenschaft des Range- Objektes kann nicht festgelegt werden.

Was tun ??

Gruss Joerg