PKKO

¦^´_ 1# mdr0465

©ñ¨ì¸Ó¤À­¶ª«¥ó¤º,¤£¯à©ñ¨ì¤@¯ëªº¼Ò²Õ¤º
­Y¤£·Q¦]¬°«OÅ@¦ÓµLªk¿é¤J,½Ð¥ý±NÀx¦s®æªº«OÅ@¥þ³¡¨ú®øÂê©w

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

½Æ»s¥N½X