­ã´£³¡ªL

¢°¡D¤u§@ªí¥þ³¡Àx¦s®æ³£³]¬°¡eÂê©w¡f¡D¦A±N¢Ö¢°ªºÂê©w¨ú®ø
¡@
¢±¡D¦b¤u§@ªíµ{¦¡°Ï¡A©ñ¤J¥H¤Uµ{¦¡¡G
¡@¡@Private Sub Worksheet_Change(ByVal Target As Range)
¡@¡@With Target
¡@¡@¡@¡@¡@If .Address <> "$H$1" Then Exit Sub
¡@¡@¡@¡@¡@If .Value <> "12345" Then Exit Sub
¡@¡@¡@¡@¡@ActiveSheet.Unprotect "1111"
¡@¡@¡@¡@¡@[A:F].EntireColumn.Hidden = False
¡@¡@¡@¡@¡@[A1].Select
¡@¡@¡@¡@¡@[H1] = ""
¡@¡@End With
¡@¡@End Sub
¡@¡@¡Ä¡Ä¥Øªº¡G¦b¢Ö¢°¿é¤J"12345¡¨¡]¦¹±K½X¥i¦Û¦æ¨M©w¡^¡A¸Ñ°£¤u§@ªí«OÅ@¤ÎÅã¥Ü¥þ³¡Äæ¦ì¡A¥H§QÀɮ׺޲zªÌ¶i¦æ½s¿è¤u§@
¡@
¢²¡D¼Ò²Õ°Ï©ñ¥H¤Uµ{¦¡¡A¨Ã«ü©wµ¹«ö¶s¡G
¡@¡@Sub Åã¥Ü1()
¡@¡@With ActiveSheet
¡@¡@¡@¡@¡@.Unprotect "1111"
¡@¡@¡@¡@¡@.[A:F].EntireColumn.Hidden = True
¡@¡@¡@¡@¡@.[A1,D1,E1].EntireColumn.Hidden = False
¡@¡@¡@¡@¡@.Protect "1111"
¡@¡@¡@¡@¡@.[A1].Select
¡@¡@End With
¡@End Sub
¡@
¡@Sub Åã¥Ü2()
¡@With ActiveSheet
¡@¡@¡@¡@.Unprotect "1111"
¡@¡@¡@¡@.[A:F].EntireColumn.Hidden = True
¡@¡@¡@¡@.[A1].EntireColumn.Hidden = False
¡@¡@¡@¡@.Protect "1111"
¡@¡@¡@¡@.[A1].Select
¡@End With
¡@End Sub
¡@¡Ä¡Ä¥Øªº¡G¸Ñ°£¤u§@ªí«OÅ@¡]±K½X¥i¦Û¦æ³]©w¡^¡A½Õ¾ãÄæ¦ìÁôÂëá¡A«ì´_«OÅ@¡A§Y¥i¨¾¤î§ó§ï¡A¦ý¥i°õ¦æ·j´M
¡@
¢³¡Dµ{¦¡½X¥²¶·³]©w¡e±M®×«OÅ@¡f§_«h¨Ï¥ÎªÌÁÙ¬O¥i¥H¬Ý¨ìµ{¦¡°Ïªº±K½X¡A
¡@¡@¦ý¬O³o±M®×«OÅ@±K½X­n¦Û¤v°O±o¦í¡A§K±o¸Ñ¤£¶}¦ÓµLªk¶i¦æµ{¦¡ªº§ó§ï¡I
¡@¡@¡]µù¡G³o«OÅ@±K½X¨Ã«Dµ´¹ï¦w¥þ¡A¦³¤ß¤HÁÙ¬O¦³¿ìªk¯}¸Ñªº¡A¥u¯à¨¾§g¤l¡^

¦³ºÃ°Ý¡A¥iºô¤WÃöÁä¦r§ä¤@¤U¡A¦³«Ü¦h¤å³¹¥i¬Ý¡A´N¤£¥t§@»¡©ú¡I¡I