Worksheet_Deactivate() µ{§Ç±Ò°Ê¥¢±Ñ?? (¤w¸Ñ¨M)
- ©«¤l
- 5
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 12
- ÂI¦W
- 0
- §@·~¨t²Î
- Window XP
- ³nÅ骩¥»
- SP3
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-15
- ³Ì«áµn¿ý
- 2012-9-18
|
Worksheet_Deactivate() µ{§Ç±Ò°Ê¥¢±Ñ?? (¤w¸Ñ¨M)
¥»©«³Ì«á¥Ñ riceeric ©ó 2012-3-16 09:34 ½s¿è
§Ú¦³Ó¨ú®ø©ì©ÔÀx¦s®æªº¨Æ¥óCode¡A¦ý¬OWorksheet_Deactivate()³oÓµ{§Ç¦b¦P¤@ÓExcelÀɤÁ´«¨ì¥t¤@Ó¤u§@ªí®É·|±Ò°Ê³oӨƥó
¦ý¬O±q³oÓ¤u§@ªíÂI¶}¥t¤@ÓExcelÀɳoӨƥó«o¤£·|³Q°õ¦æ
§ó©_©Çªº¬O§Ú´«³¡¹q¸£¹Á¸Õ³oÓÀɮסA¦³3¥x«o¥i¥H¡A¦³1¥x¸ò§Úªº¤@¼Ë¤£¦æ
¦³°ª¤â¥i¥HÀ°§Ú¸Ñ´b¶Ü?
---------------------------------------Code¬°§Ú¬°¤FÂê¦í©ì©ÔÀx¦s®æ¥H¤Î½Æ»s¥\¯à¼gªº- '±Ò°Ê¦¹¤u§@ªí¨Æ¥ó
- Private Sub Worksheet_Activate()
- '¸T¤î©ì©ÔÀx¦s®æ
- Application.CellDragAndDrop = False
- Dim copyCtls As CommandBarControls
- Dim copyCtl As CommandBarControl
- Application.CutCopyMode = False
- '´M§ä©Ò¦³ [½Æ»s] «ö¶s, ¨äID¬°19
- Set copyCtls = Application.CommandBars.FindControls(ID:=19)
- '±N©Ò¦³ [½Æ»s] «ö¶s¥\¯à¨ú®ø
- For Each copyCtl In copyCtls
- copyCtl.Enabled = False
- Next
- '¨ú®ø [½Æ»s] §Ö±¶Áä
- Application.OnKey "^c", ""
- '¤u§@ªí¼ÐÅÒ¥kÁä©Ò¸õ¥X¨Óªº "ply" ¤u¨ã¦C"²¾°Ê©Î½Æ»s(M)..." «ö¶s¥i²¾°Ê¨Ã²£¥Í°Æ¥»
- '¦]¦¹¤@¦}¸T¤î
- Application.CommandBars("ply").Controls(5).Enabled = False
- '¥H¤WÀ³¸Ó´NµLªk½Æ»s¤F
- End Sub
- '²¾¥X¦¹¤u§@ªíµ{§Ç
- Private Sub Worksheet_Deactivate()
- '¨t²Î«ì´_©ì©Ô¥\¯à
- Application.CellDragAndDrop = True
- Dim copyCtls As CommandBarControls
- Dim copyCtl As CommandBarControl
- '´M§ä©Ò¦³ [½Æ»s] «ö¶s, ¨äID¬°19
- Set copyCtls = Application.CommandBars.FindControls(ID:=19)
- '±N©Ò¦³ [½Æ»s] «ö¶s¥\¯à«ì´_
- For Each copyCtl In copyCtls
- copyCtl.Enabled = True
- Next
- '«ì´_ [½Æ»s] §Ö±¶Áä
- Application.OnKey "^c"
- '«ì´_¤u§@ªí¼ÐÅÒ¥kÁä©Ò¸õ¥X¨Óªº "ply" ¤u¨ã¦C"²¾°Ê©Î½Æ»s(M)..." «ö¶s¥\¯à
- Application.CommandBars("ply").Controls(5).Enabled = True
- '¥H¤WÀ³¸Ó´N¥i¥H½Æ»s¤F
- End Sub
½Æ»s¥N½X |
|
Eric.Tu
|
|
|
|
|
- ©«¤l
- 5
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 12
- ÂI¦W
- 0
- §@·~¨t²Î
- Window XP
- ³nÅ骩¥»
- SP3
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-15
- ³Ì«áµn¿ý
- 2012-9-18
|
¦^´_ 2# GBKEE
·P¿E¤£ºÉ¡A¥i¥H¥Î¤F¡ã:) |
|
Eric.Tu
|
|
|
|
|