- ©«¤l
- 2
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2016-5-12
- ³Ì«áµn¿ý
- 2016-12-22
|
[µo°Ý] ½Ð°Ý¦p¦ó§â¤u§@ªí¤¤©Ò¦³§t¤½¦¡ªºÀx¦s®æ³]©w¬°¤£¥i½s¿è«á¡A«OÅ@¤u§@ªí
¤p§Ì豵IJVBA
·Qn¸ÕµÛ§â쥻°µ¦nªºexcel ÀÉ®× ¦³¤½¦¡ªº³¡¤À¦Û°Ê¥[¤W«OÅ@ ÁקK¨ä¥L¤H¤£¤p¤ß×§ï µM«á¨ä¾lÀx¦s®æ»Ýn¥Ñ¨Ï¥ÎªÌ¿é¤J
¹Á¸Õ¤F¤@¤U¡Aµ²ªG§Ú¥u·|§â¦³¤½¦¡ªºÀx¦s®æ§Ë¦¨¥i½s¿è¡A»P§Ú·Qnªºè¦n¬Û¤Ï
Sub protect_formula()
ActiveSheet.Unprotect
ActiveSheet.Protection.AllowEditRanges.Add _
Title:="formula", _
Range:=Selection.SpecialCells(xlCellTypeFormulas)
ActiveSheet.protect
End Sub
¦³«e½ú¯à±Ð§Ú¶Ü? |
|