[已解决]程序错误，求解答

qinjunwu

Private Sub Workbook_Open()
    OriData.Visible = True
    OriData.Activate
    OriData.Range("A1").Locked = False
    OriData.Protect
End Sub

OriData为一worksheet，但是程序运行错误，求解答。

最佳答案

月排行榜 / 总排行榜

zjdh

2011-10-15 22:00

1. 
   
2. Private Sub Workbook_Open()
   
3.     With Sheets(1)
   
4.         .Unprotect
   
5.         .Visible = True
   
6.         .Activate
   
7.         .Cells.Locked = True
   
8.         .Range("A1").Locked = False
   
9.         .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
   
10.         , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
    
11.         AllowFormattingRows:=True, AllowDeletingColumns:=True, AllowDeletingRows _
    
12.         :=True
    
13.     End With
    
14. End Sub
    
15. 
    
16. 保护单元格.rar (6 KB, 下载次数: 1)
    2011-10-15 21:59 上传

    点击文件名下载附件
    

复制代码

跳转到最佳答案楼层

那么的帅

回复 qinjunwu 的帖子

提供具体数据附件。

zgwei050

试试：OriData改为sheets("OriData")

qinjunwu

回复 那么的帅 的帖子

没有数据啊，我只是想锁定除了单元格A1外的整个sheet

qinjunwu

回复 zgwei050 的帖子

不行哦。。。

qinjunwu

提示“不能设置Range的Locked属性”，但我查帮助文档有这个语句啊。

zjdh

1. Private Sub Workbook_Open()
   
2.     With Sheets("OriData")
   
3.         .Unprotect
   
4.         .Visible = True
   
5.         .Activate
   
6.         .Cells.Locked = True
   
7.         .Range("A1").Locked = False
   
8.         .Protect
   
9.     End With
   
10. End Sub

复制代码

qinjunwu

回复 zjdh 的帖子

非常感谢，是因为我之前已经运行过一遍程序而把A1已经写了保护，所以就不能locked了。
但是我的想法还是没有实现，我是想把除了A1单元格以外的所有单元格锁定。
现在A1是可以写，但是邮件菜单很多都不能用，比如都不能设置单元格格式了。

qinjunwu

回复 zjdh 的帖子

有什么方法可以继续使用在单元格A1的右键菜单呢

zjdh

1. 
   
2. Private Sub Workbook_Open()
   
3.     With Sheets(1)
   
4.         .Unprotect
   
5.         .Visible = True
   
6.         .Activate
   
7.         .Cells.Locked = True
   
8.         .Range("A1").Locked = False
   
9.         .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
   
10.         , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
    
11.         AllowFormattingRows:=True, AllowDeletingColumns:=True, AllowDeletingRows _
    
12.         :=True
    
13.     End With
    
14. End Sub
    
15. 
    
16. 保护单元格.rar (6 KB, 下载次数: 1)
    2011-10-15 21:59 上传

    点击文件名下载附件
    

复制代码