vba 帮忙简化一下。

发布网友发布时间：2022-04-23 05:39

共3个回答

热心网友时间：2023-07-04 14:04

Private Sub Workbook_Deactivate()
Dim i As Integer
Dim b As Shape
For i = 1 To Sheets.Count
'关闭时删除图片
Sheets(i).Select
ActiveSheet.Unprotect Password:="66477"
If Sheets(i).Name <> "目录" Then
For Each b In ActiveSheet.Shapes
If b.Type = msoPicture Then '新加的判断语句
b.Delete '删除图片
End If
Next
End If
ActiveSheet.Protect Password:="66477"
Next i

ActiveWorkbook.Save '保存当前工作簿文档
End Sub

热心网友时间：2023-07-04 14:04

再看一下保护工作表与解除工作表保护的代码

热心网友时间：2023-07-04 14:05

ActiveSheet.protect Password:=66477

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com