如何为一系列行设置固定的行高？

Question

我有一个宏为一系列行设置某个行高，如下所示：

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

此宏按预期工作，直到我激活行范围内的选定单元格。结果，行高度变为15或20像素的较小高度。以下是一个例子：

有没有办法防止在激活单元格时行高变化？

Answer 1

保护工作表和设置AllowFormattingRows:=False会阻止用户调整行的大小。

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