Excel怎样设置单元格输入次数限制

1、首先打开Microsoft Office Excel 2007，新建文档并保存文件名《Excel怎样设置单元格输入次数限制.xlsm》（演示文件，下面代码复制到能运行宏的工作簿都可以）如图。

3、鼠标移到当前工作表标签栏“Sheet1”表（需要在哪表设置在哪表），右键，弹出快捷菜单，如下图。

5、在右边代码框中复制下面代码到该框中，如下图。Private Sub Worksheet_Change(ByV锾攒揉敫al Target As Range) '2020-7-6 21:50:24 If Target.Row = 1 And Target.Column = 1 Then 'a1 If Sheets("mm").Range("m1").Value < 1 Then Sheets("mm").Range("m1").Value = Sheets("mm").Range("m1").Value + 1 ActiveSheet.Protect Password:="a888", DrawingObjects:=True, Contents:=True, Scenarios:=True ActiveWorkbook.Save Else Sheets("mm").Range("m1").Value = Sheets("mm").Range("m1").Value + 1 ActiveSheet.Protect Password:="a888", DrawingObjects:=True, Contents:=True, Scenarios:=True ActiveWorkbook.Save End If End IfEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range) '2020-7-6 21:55:24 Dim m As String If Target.Row = 1 And Target.Column = 1 Then 'a1 If Sheets("mm").Range("m1").Value >= 1 Then Application.DisplayAlerts = False m = Application.InputBox(Prompt:="请输入密码才能修改A1单元格", Type:=2) If m = " a888" Then ActiveSheet.Unprotect ("a888") Else MsgBox "密码不正确！" Range("a2").Select End If Application.DisplayAlerts = True End If End IfEnd Sub

7、VBE窗口设置密码：M888，具体方法详见我的百度经验《Excel怎样加密多表查找数据列表》中方法二：VBA：8条。

9、回到“Sheet1”表窗口，A1输入情况，第一次不需要密码，第2次后需要密码（“a888”），结果如下：

10、需要输入n次时，需把代码修改下可以。If Sheets("mm").Range(&鳎溻趄酃quot;m1").Value < 1改为If Sheets("mm").Range("m1").Value < nIf Sheets("mm").Range("m1").Value >= 1 Then改为If Sheets("mm").Range("m1").Value >= n

11、如果觉得这篇经验帮到了您，请点击下方的 “投票点赞" 或者“收藏”支持我！还有疑问的话可以点击下方的 “我有疑问”，谢谢啦！