Zellen nach Eingabe gesperrt
20.03.2014 09:25:42
Gismo
habe in einer Datei nachfolgendes Makro. In Excel 2003 funktioniert es einwandfrei.
Die Zellen werden je nach Eingabe vergrößer (Zeilenhöhe).
Sobald ich die Datei in Excel 2010 öffne und in diese Felder eine Eingabe vornehme, ist die Zelle gesperrt.
Bin für jeden Tip dankbar :-/
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="1234"
Dim CurrentRowHeight As Single, MergedCellRgWidth As Single
Dim CurrCell As Range, RowHeightMin As Single
Dim ActiveCellWidth As Single, PossNewRowHeight As Single
RowHeightMin = 10 ' Diesen Wert vergrößern, wenn eine Mindestzeilenhöhe nicht _
unterschritten werden soll
If Target.Row > 1 And Target.Row PossNewRowHeight, _
WorksheetFunction.Max(CurrentRowHeight, RowHeightMin), PossNewRowHeight) _
End If
End With
End If
End If
Application.ScreenUpdating = True
ActiveSheet.Protect Password:="1234"
End Sub