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

[µo°Ý] VBA ¿ï¨úÂê©wªºÀx¦s®æ«ü¥O

¦^´_ 1# julianwic
  1. Option Explicit
  2. Sub Ex()
  3.     With ActiveSheet  '§@¥Î¤¤ªº¤u§@ªí
  4.         .Unprotect
  5.         .Range("A1:B10").Locked = False
  6.         .Protect  'DrawingObjects:=True, Contents:=True, Scenarios:=True
  7.         .EnableSelection = xlUnlockedCells  '¤u§@ªí¤W,¨S¤WÂêÀx¦s®æ¥i¿ï
  8.        '.EnableSelection = xlNoSelection    '¤u§@ªí¤WªºÀx¦s®æ¤£¥i¿ïªº
  9.        '.EnableSelection = xlNoRestrictions '¤£­­¨î
  10.     End With
  11. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¨ü¤HÂI¤ô¤§®¦¡A¶··í´é¬u¥H³ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD