如何批量设置允许编辑区域并保护工作表

wslpsjh

A至G列，AM至AO列，AQ至BH列，中间有合并单元格，如何锁定单元格？允许编辑区域H至AL列。并批量保护工作表

3190496160

Sub 批量保护()
Application.ScreenUpdating = False
f = Dir(ThisWorkbook.Path & "\*.xls*")
Do While f <> ""
    If f <> ThisWorkbook.Name Then
        Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & f, 0)
        With wb.Worksheets(1)
             rs = .Cells(Rows.Count, 1).End(xlUp).Row
             .Range("a6:g" & rs).Locked = True
             .Range("am1:bh" & rs).Locked = True
             .Protect "123"
        End With
        wb.Close True
    End If
f = Dir
Loop
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

新建文件夹 (2).rar (266.97 KB, 下载次数: 29)

2024-2-12 20:30 上传

点击文件名下载附件

wslpsjh

3190496160 发表于 2024-2-12 20:31

现在他们复制到新表，就可以乱增乱减，把数据验证都给删了失去保护意义，能不能修改下宏，批量保护时，只选定解除锁定的单元格，选定的锁定单元格，这个不选。

wslpsjh

附图如下。。。

ykcbf1100

附件供参考。。。