GBKEE

¦^´_ 3# mdr0465
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     If Not Intersect(Target(1), Range("m1")) Is Nothing Then
   
4.         If CStr(Range("m1")) = "11" Then
   
5.             If Not Columns("B:B").EntireColumn.Hidden Then
   
6.                 Columns("B:B").EntireColumn.Hidden = True
   
7.                 ActiveSheet.Protect Password:="1234", DrawingObjects:=True, Contents:=True, Scenarios:=True
   
8.             End If
   
9.         Else
   
10.             ActiveSheet.Unprotect Password:="1234"
    
11.             Columns("B:B").EntireColumn.Hidden = False
    
12.         End If
    
13. End If
    
14. End Sub

½Æ»s¥N½X