If Range("Password").Value = "BBB" Then
   ActiveSheet.UsedRange.Locked = True
End If

它给我一个错误为"溢出"。
我怀疑你应该得到一个溢出错误与此代码。溢出可能会发生，如果你使用类似Cells.Count在Excel 2007年以上。CountLarge被引入只是因为Cells.Count返回一个Integer值的错误在Excel 2007中，因为增加行/列。Cells.CountLarge返回一个Long值。
现在回到您的查询。
您不需要SELECT所有单元格。事实上，您应该避免使用Select。您可能希望看到How to avoid using Select in Excel VBA
此外，如果不保护工作表，则锁定工作表的所有单元格也将无效。您可以将代码更改为

If Range("Password").Value = "BBB" Then
    With ActiveSheet
        .Cells.Locked = True
        .Protect "Password"
    End With
End If

如果您不想使用Activesheet，请使用类似下面的代码

Option Explicit

Sub Sample()
    Dim ws As Worksheet

    '~~> Change this to the relevant sheet
    Set ws = Sheet1

    With ws
        If .Range("Password").Value = "BBB" Then
            .Cells.Locked = True
            .Protect "Password"
            '~~> To unprotect, uncomment the below
            '.UnProtect "Password"
        End If
    End With
End Sub