如何设置Excel工作簿的最大行数上限（低于1,048,576行）

Excel本身没有内置设置可以直接修改工作簿的最大行数上限，但可以通过VBA代码结合工作表保护，实现限制用户在指定行数（比如2000行）之后输入内容的需求，以下是两种实用方案：

方案1：实时阻止超过限制行的输入 #

利用工作表的Change事件，当用户在2001行及以后的单元格输入内容时，自动清空内容并给出提示：

1. 打开目标工作表的VBA编辑器（按下Alt+F11）
2. 在左侧工程窗口中双击对应的工作表（比如Sheet1）
3. 粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 定义允许的最大行
    Const MAX_ROW As Long = 2000
    
    ' 检查输入区域是否超出限制
    If Target.Row > MAX_ROW Then
        Application.EnableEvents = False
        ' 清空违规输入的内容
        Target.ClearContents
        Application.EnableEvents = True
        ' 提示用户
        MsgBox "此工作表仅允许在第" & MAX_ROW & "行及之前输入内容！", vbExclamation, "输入限制"
    End If
End Sub

4. 保存工作簿为**启用宏的工作簿（.xlsm）**格式

方案2：隐藏超限行并保护工作表 #

如果不想用户看到超过2000行的区域，可以隐藏这些行，再通过工作表保护防止用户取消隐藏：

手动操作版 #

1. 选中第2001行到最后一行（可以直接输入2001:1048576到名称框后回车快速选中）
2. 右键点击行号，选择「隐藏」
3. 切换到「审阅」选项卡，点击「保护工作表」，设置保护密码，取消勾选「取消隐藏行」权限，点击确定

VBA自动执行版 #

如果需要批量处理多个工作表，或者想一键完成设置，可以用以下宏：

Sub SetRowLimit()
    Const MAX_ROW As Long = 2000
    Dim ws As Worksheet
    
    ' 可以指定具体工作表，比如Set ws = ThisWorkbook.Worksheets("数据录入表")
    Set ws = ActiveSheet
    
    ' 隐藏超过限制的行
    ws.Rows(MAX_ROW + 1 & ":" & ws.Rows.Count).Hidden = True
    
    ' 保护工作表，禁止修改行隐藏状态及插入/删除行
    ws.Protect Password:="yourpassword", _
        AllowFormattingCells:=True, _
        AllowFormattingColumns:=True, _
        AllowSorting:=True, _
        AllowFiltering:=True, _
        AllowUsingPivotTables:=True, _
        AllowFormattingRows:=False, _
        AllowInsertingRows:=False, _
        AllowDeletingRows:=False
End Sub

执行宏后，超过2000行的区域会被隐藏，且用户无法取消隐藏（除非知道保护密码）。

额外提示 #

• 如果需要对工作簿内所有工作表生效，可以把Worksheet_Change事件代码放到ThisWorkbook模块中，改用SheetChange事件
• 保存工作簿时必须选择.xlsm格式，否则宏会失效
• 可以根据实际需求调整代码里的MAX_ROW数值，以及工作表保护的权限选项

内容的提问来源于stack exchange，提问作者EuanM28