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

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

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

½Ð°Ý¦U¦ì¤j¤j¡A¦b EXCEL ¸Ì­±³]©w«OÅ@¤u§@ªí¡A­nÅý¨Ï¥ÎªÌµLªk¿ï¨úÂê©wªºÀx¦s®æ¡A¦ý­n¯à¿ï¨ú¥¼Âê©wªºÀx¦s®æ¡A½Ð°Ý³o±ø«ü¥O­n¦p¦ó³]©w©O¡H
§Ú¥Î¥¨¶°¿ý»s¤@ª½¸Õ¤£¥X¨Ó¡A³Â·Ð½Ð¦U¦ì¤j¤jÀ°¦£¤@¤U¡AÁÂÁ¡C

«OÅ@¤u§@ªí.png (15.93 KB)

«OÅ@¤u§@ªí.png

¦^´_ 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

ÁÂÁÂGBKEEª©¥Dªº±Ð¾Ç¡A½Ð°ÝGBKEEª©¥D©Ò¨Ï¥ÎVBA¨ç¼Æ¥N¸¹¦³­þÃä¥i¥H§ä¨ì¬ÛÃöªº±Ð¾Ç¸ê®Æ¶Ü¡H¦]¬°¹ï©ó§Ú­Ì³o¨Ç·s¤â¨ÓÁ¿¡A¦³«Ü¦h¦n¥Îªº¨ç¼Æ§Ú­Ì³£¤£ª¾¹D¡A©Ò¥H·Q½Ð±z«üÂI¤@¤U§Ú­Ì¥i¥H¨ì­þÃä§ä¨ì¨º¨Ç¨ç¼Æ¸ê®Æ?

TOP

ÁÂÁª©¥Dªº¸Ñµª¡A°ÝÃD¤w¸g¸Ñ¨M¤F¡A¤Q¤À·P¿E

TOP

        ÀR«ä¦Û¦b : §ïÅܦۤv¬O¦Û±Ï¡A¼vÅT§O¤H¬O±Ï¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD