求助vba将多文件指定列保护，感谢

wangweihebtu · 发表于 2024-5-22 16:32

本帖最后由 wangweihebtu 于 2024-5-23 16:32 编辑

每年给高中毕业证做综合素质评价，得把一个文件分发为几十个文件发到各班，然后再收回来合在一起，有些数据可能不小心被学生修改，求助用VBA将多文件的A:H J:K 列进行保护然后分到各班，这样就避免了对关键数据的误操作，然后收回来以后解除保护合在一起，谢谢

shiruiqiang · 发表于 2024-5-22 17:30

单元格锁定，工作簿保护就行

LIUZHU · 发表于 2024-5-22 18:17

2楼正解，我还以为是批量拆分表格，只是保护工作表的某些区域的话，用VBA相当于你从客厅开着车汽车去房间

ykcbf1100 · 发表于 2024-5-22 19:29

单元格锁定

附件供参考。。。

ykcbf1100 · 发表于 2024-5-22 19:30

单元格锁定。

Sub ykcbf() '//2024.5.22 多工作簿单元格锁定
Set fso = CreateObject("scripting.filesystemobject")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim tm: tm = Timer
p = ThisWorkbook.Path & ""
pw = "123"
For Each f In fso.GetFolder(p).Files
If InStr(f.Name, ThisWorkbook.Name) = 0 Then
fn = fso.GetBaseName(f)
Set wb = Workbooks.Open(f, 0)
With wb.Sheets("Sheet1")
.Unprotect pw
.Cells.Locked = False
.Range("a:h,j:k").Locked = True
.Protect pw
End With
wb.Close 1
End If
Next f
Application.ScreenUpdating = False
MsgBox "共用时：" & Format(Timer - tm) & "秒！"
End Sub

复制代码

wangweihebtu · 发表于 2024-5-23 08:42

LIUZHU 发表于 2024-5-22 18:17
2楼正解，我还以为是批量拆分表格，只是保护工作表的某些区域的话，用VBA相当于你从客厅开着车汽车去房间

不好意思，我是菜鸟，让您见笑了

wangweihebtu · 发表于 2024-5-23 08:43

ykcbf1100 发表于 2024-5-22 19:30
单元格锁定。

感谢！我不咋会写，看了您的代码受益匪浅

		自动登录	找回密码
密码			免费注册

[已解决] 求助vba将多文件指定列保护，感谢

评分