[已解决]求一句代码

学习学习再学习

如何在工作表被保护的状态下能够插入图片，怎么加一句代码呢？

希望能有这样的代码：ActiveSheet.Protect Allow*********:=True

哪位老师能提供一下的。
谢谢了

最佳答案

月排行榜 / 总排行榜

zhoujunah

2013-5-6 17:55

1. Sub ProtectionOptions()
   
2. 
   
3.     ActiveSheet.Unprotect
   
4. 
   
5.     ' Allow columns to be inserted on a protected worksheet.
   
6.     If ActiveSheet.Protection.AllowInsertingColumns = False Then
   
7.         ActiveSheet.Protect AllowInsertingColumns:=True
   
8.     End If
   
9. 
   
10.     MsgBox "Columns can be inserted on this protected worksheet."
    
11. 
    
12. End Sub

复制代码

跳转到最佳答案楼层

zhoujunah

1. Sub ProtectionOptions()
   
2. 
   
3.     ActiveSheet.Unprotect
   
4. 
   
5.     ' Allow columns to be inserted on a protected worksheet.
   
6.     If ActiveSheet.Protection.AllowInsertingColumns = False Then
   
7.         ActiveSheet.Protect AllowInsertingColumns:=True
   
8.     End If
   
9. 
   
10.     MsgBox "Columns can be inserted on this protected worksheet."
    
11. 
    
12. End Sub

复制代码

学习学习再学习

zhoujunah 发表于 2013-5-6 17:55

代码不是我要的，我要的是能插入图片，而不是列。谢谢楼上啊。

学习学习再学习

继续等大师解答。