帮忙批量解决工作簿结构保护问题

wslpsjh

江湖救急，求批量解决工作簿，给工作簿结构加密问题，不是工作簿加密，是保护工作簿结构，防止添加、移动、复制工作表。文件夹工作簿数量较多，操作人较多，把工作表整的乱七八糟的

沈默00

录制一个保护工作表的宏，然后外套一个循环工作薄

MyLaLaLand

批处理保护工作簿结构

wslpsjh

MyLaLaLand 发表于 2024-3-7 11:16
批处理保护工作簿结构

没设密码，一点就解开了

MyLaLaLand

wslpsjh 发表于 2024-3-7 12:52
没设密码，一点就解开了

换成这个 ActiveWorkbook.Protect Password:="123", Structure:=True, Windows:=False

wslpsjh

MyLaLaLand 发表于 2024-3-7 13:40
换成这个 ActiveWorkbook.Protect Password:="123", Structure:=True, Windows:=False

我试了一下，还是不行，大神，请你直接上传附件

ykcbf1100

wslpsjh 发表于 2024-3-9 14:43
我试了一下，还是不行，大神，请你直接上传附件

还没有解决吗？

wslpsjh

ykcbf1100 发表于 2024-3-9 20:12
还没有解决吗？

没有，不是工作簿加密，是保护工作簿结构，防止添加、移动、复制工作表

ykcbf1100

wslpsjh 发表于 2024-3-9 22:39
没有，不是工作簿加密，是保护工作簿结构，防止添加、移动、复制工作表

Sub 保护工作簿结构()
    Application.DisplayAlerts = False
    ThisWorkbook.Protect Structure:=True, Windows:=False
    Application.DisplayAlerts = True
End Sub

wslpsjh

ykcbf1100 发表于 2024-3-10 07:56
Sub 保护工作簿结构()
    Application.DisplayAlerts = False
    ThisWorkbook.Protect Structure:=T ...

这个代码只能保护本工作表的，不能保护文件夹里所有工作簿