[已解决]求助,请高手帮忙写一个代码

zxc2011

请高手帮忙写一个代码
在此谢谢

最佳答案

月排行榜 / 总排行榜

zjdh

2011-11-7 21:19

保护工作表3.rar (7.53 KB, 下载次数: 8)

2011-11-7 21:19 上传

点击文件名下载附件

跳转到最佳答案楼层

zjdh

保护工作表3.rar (7.53 KB, 下载次数: 8)

2011-11-7 21:19 上传

点击文件名下载附件

zxc2011

蓝桥玄霜 发表于 2011-11-7 21:05

老师你好能不能让它不要激活其它工作表就在退出保存的那张工作表上

zxc2011

zjdh 发表于 2011-11-7 20:51

为什么在26行输入数据后同行其它的空单元格也被保护了

蓝桥玄霜

1. Private Sub Workbook_Open()
   
2. Dim Sht As Worksheet
   
3. For Each Sht In Sheets
   
4.     If Sht.Name <> "Sheet1" Then
   
5.         Sht.Activate
   
6.         Sht.Unprotect "123"
   
7.         Sht.Cells.Select
   
8.         Selection.Locked = False
   
9.         Selection.FormulaHidden = False
   
10.         Selection.SpecialCells(xlCellTypeConstants, 23).Select
    
11.         Selection.Locked = True
    
12.         Selection.FormulaHidden = False
    
13.         Sht.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True
    
14.         
    
15.     End If
    
16. Next
    
17. End Sub
    

复制代码

zjdh

用6楼的附件