数据有效性设置

dl0506

-4

1.   Public Sub ProteceSheet()
   
2.         Dim myWkb As Workbook
   
3.         Dim wks_MainSheet As Worksheet
   
4.         Dim myWks As Worksheet
   
5.         Dim iLastRow As Long, iLoop As Long
   
6.         Dim arr_SheetList()
   
7.         
   
8.         Set myWkb = ThisWorkbook
   
9.         Set wks_MainSheet = myWkb.Worksheets("MainSheet")
   
10.         With wks_MainSheet
    
11.             .Range("A:ZZ").EntireColumn.Hidden = False
    
12.             .AutoFilterMode = False
    
13.             iLastRow = .Range("A" & .Rows.Count).End(xlUp).Row
    
14.             If iLastRow <= 1 Then
    
15.                 Call ShowMsgbox("MainSheet Sheet List Empty,Please Check it.", 2)
    
16.                 Exit Sub
    
17.             End If
    
18.             arr_SheetList = .Range("A2:A" & iLastRow).Value
    
19.         End With
    
20.         For iLoop = 1 To UBound(arr_SheetList)
    
21.             Set myWks = myWkb.Worksheets(arr_SheetList(iLoop, 1))
    
22.             myWks.Protect Password:="1234", userinterfaceonly:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True _
    
23.                     , AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowFiltering:=True
    
24.             myWks.EnableOutlining = True
    
25.             myWks.Range("J1:Z65536").Locked = False
    
26.         Next
    
27.     Call ShowMsgbox("Protect OK.", 1)
    
28.   End Sub

复制代码