如何同时设置保护N个工作表？

鼎盛中国

使用office2010，一个工作簿里有150多个工作表，现在需要对这些工作表设置同样的保护条件，如果一个一个的来弄，工作量确实很大，请教大家，有没有简便的方法呢？谢谢。反过来，又如何操作呢？

zcxqwef

这个问题我也很想知道。

lu_zhao_long

原帖由 鼎盛中国 于 2011-4-24 18:05 发表
使用office2010，一个工作簿里有150多个工作表，现在需要对这些工作表设置同样的保护条件，如果一个一个的来弄，工作量确实很大，请教大家，有没有简便的方法呢？谢谢。反过来，又如何操作呢？

不就 150 多个工作表吗！一个一个地设置也不会超过 1小时而已。如果找到别人编辑好代码，然后再去执行一次（仅需要一次，通常不值得），估计没有 2天是搞不定的！
建议对于这样的情况，则只要每创建一个工作表时就设置好，也不至于到现在来集中处理！

style-sh

原帖由 鼎盛中国 于 2011-4-24 18:05 发表
使用office2010，一个工作簿里有150多个工作表，现在需要对这些工作表设置同样的保护条件，如果一个一个的来弄，工作量确实很大，请教大家，有没有简便的方法呢？谢谢。反过来，又如何操作呢？

你是局域网里操作吗？你一个工作薄里才150多个工作表，我一个工作薄里却有近400个工作表，我的表是有多个人要看的，为了保护工作表的内容不被人修改，又要让别人能够看（同事只查看，不输入任何信息），我采取照相机的方法，就是说：工作薄在我机子，另一同名空白工作薄在局域网上，我再用照相机的方法把我的工作薄里的所有表格一个一个照进空白表里，这样即解决了同事共享的要求，又解决了我的表格不被修改的要求，你看这样能解决你的需要吗？

a19410593

录制一个保护工作表的宏，并加上快捷键，这样点一下按一下快捷键。

我是不懂循环，不然加个循环就能一次性完成。

willin2000

1.    Sub Protect_sheets()
   
2. 
   
3.       ' Loop through all sheets in the workbook
   
4.       For i = 1 To Sheets.Count
   
5. 
   
6.          ' Activate each sheet in turn.
   
7.          Sheets(i).Activate
   
8. 
   
9.          response = MsgBox("Do you want to protect this sheet?", vbYesNo)
   
10.          If response = vbYes Then
    
11.             ActiveSheet.Protect Password:="larry", DrawingObjects:=True, _
    
12.                Contents:=True, Scenarios:=True
    
13. 
    
14.          ElseIf response = vbNo Then
    
15.             MsgBox ("Sheet not protected")
    
16. 
    
17.          End If
    
18.       Next i
    
19.    End Sub

复制代码

willin2000

1. Sub LockWorksheets()
   
2. Dim wsWorksheet  As Worksheet
   
3.     For Each wsWorksheet In ActiveWorkbook.Worksheets
   
4.         wsWorksheet.Protect Password:="password"
   
5.     Next
   
6. End Sub

复制代码

kakaco

哇。直接锁起来不就好了。

zcxqwef

有时一个工作簿设计了几张表，要一张一张锁定，也挺烦人的呢。如果能有什么快方法，也省一些时间。工作，本就是为了省时间。