Wie kann ich eine feste Zeilenhöhe für eine Reihe von Zeilen festlegen?

Question

Ich habe ein Makro, das eine bestimmte Zeilenhöhe für eine Reihe von Zeilen setzt, wie unten dargestellt:

Sub Set_Row_Height() 
     ThisWorkbook.Sheets(1).Rows("7:3000").RowHeight = 50 
End Sub 

Dieses Makro funktioniert wie vorgesehen, bis ich eine ausgewählte Zelle im Bereich von Zeilen zu aktivieren. Als Ergebnis ändert sich die Zeilenhöhe auf eine kleinere Höhe von 15 oder 20 Pixeln. Unten ist ein Beispiel:

Gibt es eine Möglichkeit von Ändern der Zeilenhöhe zu verhindern, wenn eine Zelle aktiviert wird?

Answer 1

Der Schutz Ihres Arbeitsblatts und der Einstellungen AllowFormattingRows:=False verhindert, dass ein Benutzer die Größe der Zeile ändert.

Worksheets("Sheet1").Protect Password:="", AllowFormattingRows:=False, DrawingObjects:=False, Contents:=True, Scenarios:= _ 
    False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _ 
    AllowInsertingColumns:=True, AllowInsertingRows:=True, _ 
    AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _ 
    AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _ 
    AllowUsingPivotTables:=True