ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð°Ý¦p¦ó§â¤u§@ªí¤¤©Ò¦³§t¤½¦¡ªºÀx¦s®æ³]©w¬°¤£¥i½s¿è«á¡A«OÅ@¤u§@ªí

¦^´_ 1# df2001tw
§Q¥ÎÀx¦s®æ®æ¦¡>«OÅ@>Âê©w
  1. Sub Test()
  2.   With ActiveSheet
  3.     .Unprotect
  4.     .Cells.Locked = False
  5.     .Cells.SpecialCells(xlCellTypeFormulas).Locked = True
  6.     .Protect
  7.   End With
  8. End Sub
½Æ»s¥N½X
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD