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

[µo°Ý] ³æ¤@Àx¦s®æ«OÅ@

¦^´_ 1# rouber590324

«OÅ@¥\¯à¬O¥i¥H«ü©wÀx¦s®æªº
  1. Sub ex()
  2. With ActiveSheet
  3. .Cells.Locked = False '¨ú®øÂê©w
  4. .Range("A1").Locked = True 'Âê©wÀx¦s®æ
  5. .Protect '«OÅ@¤u§@ªí
  6. End With
  7. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : §Ñ¥\¤£§Ñ¹L¡A§Ñ«è¤£§Ñ®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD