如何锁定工作表的指定单元格

qjls

工作簿由"目录"和"1"，"2"。。。。。"N"个表组成。（附件只给出1，2两个表）
要求除"目录"外的所有1，2...N表的 "A2:B12"的区域锁定，不让修改
那位大侠给指点一下，应该怎么做


谢谢 Book1.rar (1.89 KB, 下载次数: 35)

2008-12-8 19:53 上传

点击文件名下载附件

[ 本帖最后由 qjls 于 2008-12-8 19:53 编辑 ]

lu_zhao_long

给你一段代码，你把它放在每一个你想保护的工作表中
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim CurrentRow As Long
    Dim CurrentColumn As Long
   
    CurrentRow = Target.Row             '获得当前行号
    CurrentColumn = Target.Column       '获得当前列号
    If (CurrentRow >= 2 And CurrentRow <= 12) Then      '如果当前处在第2行到第12行
        If (CurrentColumn >= 1 And CurrentColumn <= 2) Then     '如果当前又处在第1到第2列
            Cells(CurrentRow, 3).Select                 '则选择当前行的第3列
        End If
    End If
End Sub

name004

Sub nam004()
Dim i%
For i = 1 To Worksheets.Count

    Sheets(i).Select
    Cells.Select
    Selection.Locked = False
    Selection.FormulaHidden = False
    Range("A2:B12").Select
    Selection.Locked = True
    Selection.FormulaHidden = True
    ActiveSheet.Protect Password = "123"
        
    Next
    Sheets("目录").Select     ' 这个地方有点多余，我的技术生疏，明天再来
    ActiveSheet.Unprotect Password = "123"
End Sub

江南新绿

Sub 锁定()
Set sht = ActiveSheet '用于最后回到当前页
On Error GoTo errmsg '用于锁定两次，使第二次失效
   n = Sheets.Count
    For i = 1 To n
    If Sheets(i).Name <> "目录" Then
    Sheets(i).Select
    With Sheets(i)
     Cells.Select
     Selection.Locked = False
     Range("A3:B12").Select
     Selection.Locked = True
     .Protect password = "1"
     End With
     End If
    Next
errmsg:
    sht.Select
    Exit Sub
    sht.Select
End Sub

Sub 解锁()
Set sht = ActiveSheet

    n = Sheets.Count
    For i = 1 To n
    If Sheets(i).Name <> "目录" Then
    Sheets(i).Select
    ActiveSheet.Unprotect password = "1"
    End If
    Next
     sht.Select
End Sub

好学999

2楼和办法真好

qjls

谢谢楼上诸位啊！！

wzckz6325

2楼和办法真好

yangguang5-9

有点复杂

ling00027

有点复杂，没看明白