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

Àx¦s®æ«OÅ@

Àx¦s®æ«OÅ@

¦U¤j¤j, ¦n
¤p©f¦³¤@°ÝÃD½Ð±Ð, ¦b¤u§@ªí¤¤,°²³] a1:a100¥Î®a·Q¥Î¤@«ö¶s, ¦b¸Ó½d³ò¤º·í¥Î®a©ó¿é¤J¸ê®Æ«á©ó¨ä¤¤¥ô¦óÀx¦s®æ¤¤, µM«á¥Î®a«ö¤@¤U«ö¶s, ¸ÓÀx¦s®æ«K³Q«OÅ@, ¦p¤p©f·Q¨ú®ø¸ÓÀx¦s®æ«OÅ@¦P¼Ë¦a«ö¤@¤U«ö¶s, Àx¦s¦s®æ§Y¥i½s¿è¨Ï¥Î,
¤p©f´¿¨Ï¥ÎÀx¦s®æ«OÅ@, ¦ý¥X¨Óªº®ÄªG¨Ã¤£§¹¬ü, ¬G½Ð¦U¤j¤jÀ°¦£, ÁÂ!

¦U¤j¤j, ¦n
¤p©f¦³¤@°ÝÃD½Ð±Ð, ¦b¤u§@ªí¤¤,°²³] a1:a100¥Î®a·Q¥Î¤@«ö¶s, ¦b¸Ó½d³ò¤º·í¥Î®a©ó¿é¤J¸ê®Æ«á©ó¨ä ...
317 µoªí©ó 2013-6-1 16:29 [/quote]

¤p©f²{§âÀɮפW¶Ç, §Æ±æ¯à±o¨ì¦^À³,
aa.rar (11.15 KB) [quote]

TOP

¦^´_ 2# 317

³o¬q¥N½X©ñ¦b¤u§@ªí1ªº¥N½X¤º
  1. Private Sub CommandButton1_Click()
  2.         ActiveSheet.Unprotect
  3.         Selection.Locked = True
  4.         ActiveSheet.Protect
  5. End Sub

  6. Private Sub CommandButton2_Click()
  7.         ActiveSheet.Unprotect
  8.         Selection.Locked = False
  9.         ActiveSheet.Protect
  10. End Sub
½Æ»s¥N½X
¥Îªk:    ¥ý§â¤u§@­¶«OÅ@,©Î«ö¤@¤U 1
©Ò¦³®æ¤l¹w³]¬OÂꦺªº, «ö¤U2¥i¥H¸ÑÂê
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

¦^´_ 2# 317

¸Õ¸Õ
  1. Private Sub CommandButton1_Click()
  2. Me.Unprotect '¨ú®ø«OÅ@
  3. Me.Cells.Locked = False 'Àx¦s®æ¨ú®øÂê©w
  4. Me.Cells.SpecialCells(xlCellTypeConstants).Locked = True '«DªÅ®æÂê©w
  5. Me.Protect '«OÅ@¤u§@ªí
  6. End Sub

  7. Private Sub CommandButton2_Click()
  8. Me.Unprotect '¨ú®ø«OÅ@
  9. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 3# kimbal
·PÁ¤j¤j¦^À³,
¤p©f¨ü±Ð¤F, ¦ý¦³¤@ÂI¤p°ÝÃD·Q¥[¤J, ¥i§_¦bµ{¦¡¤¤¥[¤J¤@¦æ²MªÅÀx¦s®æ¸ê®Æ, ·í¤p©f¶i¦æ½s¿è®É«ö«ö¶s2, Àx¦s®æ¸ê®Æ¦P®É²MªÅ, ¦]¤p©f©óÀx¦s®æ¤¤³]©w¤F±ø¥ó®æ¦¡¤Æ, ¬G§Æ±æ¯à¥[¤J¦¹µ{¦¡, ÁÂÁÂ!!

TOP

¦^´_ 4# Hsieh
hsiehª©¤j, ÁÂÁ¦^À³,
¤p©f·PÁÂ, ¤p©f·Q§@¤p³\­×§ï, ¤£ª¾¤j¤j­Ì¯à¨ó§U, ÁÂ

­×§ï1,      ¨ü«OÅ@½d³ò±qG3:AK100, ¦¹½d³ò¥~¥Î®a¥iÀH·N½s¿è,

­×§ï2,      °ò©ó¤p©f¦b¸Ó½d³ò¤º¥Î¤F±ø¥ó®æ¦¡¤Æ, ·í¦³­È®É, Àx¦s®æÅÜ´«ÃC¦â, ¦b¥Î®a«ö¤U«ö¶s2®É¬O§_¦P®É¥i¥H²MªÅ¸ÓÀx¦s¸ê®Æ, ¦]¦³®É¥Î®a·Q¨ú®ø¤w¿é¤Jªº­È, Àx¦s®æÁÙ¬OÅܤF¦â, ¥Î®a¥²¶·«ö¨ä¥k°·«ö¤U²MªÅ¸ê®Æ, Àx¦s®æ¤~¯à¦^´_­ì¨Ó¥¼¿é¤J­Èª¬ºA.µL¦â.

                 ¬G§Æ±æ©ó¸Ó½d³ò¤º¿ï¾Ü¤FÀx¦s®æ, «ö«ö¶s2, ¸ÓÀx¦s¦P®É³Q²MªÅ,

¥ý¦æÁÂÁª©¤j

TOP

¦^´_ 6# 317
  1. Private Sub CommandButton1_Click()
  2. Me.Unprotect 12345 '¨ú®ø«OÅ@
  3. Cells.Locked = False 'Àx¦s®æ¨ú®øÂê©w
  4. If Application.CountA(Range("G3:AK100")) > 0 Then Range("G3:AK100").SpecialCells(xlCellTypeConstants).Locked = True '«DªÅ®æÂê©w
  5. Me.Protect 12345 '«OÅ@¤u§@ªí
  6. End Sub

  7. Private Sub CommandButton2_Click()
  8. Me.Unprotect 12345 '¨ú®ø«OÅ@
  9. If Not Intersect(Range("G3:AK100"), Selection) Is Nothing Then Selection.ClearContents
  10. Cells.Locked = False 'Àx¦s®æ¨ú®øÂê©w
  11. If Application.CountA(Range("G3:AK100")) > 0 Then Range("G3:AK100").SpecialCells(xlCellTypeConstants).Locked = True '«DªÅ®æÂê©w
  12. Me.Protect 12345 '«OÅ@¤u§@ªí
  13. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 7# Hsieh
ÁÂÁÂhsiehª©¤j, ¤p©f°J¤ß·PÁÂ, ¯¬§Ö¼Ö,

TOP

¦^´_ 7# Hsieh
¤µ¤Ñ¨ì³o½×¾Â, ¬Ý¨ì³o½g¤å³¹, ªº½T¥ç¤p§ÌÀò¯q¨}¦h, ¦³­Ó°ÝÃD½Ð±Ðª©¥D, µ{¦¡¤¤12345À³¬O±K½X, ¤p§Ì¸Õ¥Î, «hµL¶·¿é¤J±K½X, ½Ð±Ð¤j¤j³o±K½X©óµ{¦¡¤¤ªº§@¥Î¬O,
¥t°²­Y·í¨Ï¥ÎªÌ¨S¦³¨Ï¥Î±ø¥ó®æ¦¡¤Æ, ·í§¹¦¨¸ê®Æ¿é¤J«á, ¨Ï¥ÎªÌ«ö¤U«ö¶s1, ³o®ÉÀx¦s®æ¤~Åܦâ¤Î«OÅ@, ´N¬O§_¥i¥H,  Áٱ檩¤j±Ð¾É, ÁÂÁÂ!!
hong912

TOP

¦^´_ 9# hong912
³o°ÝÃD«ü¥Ü¾Þ§@µ{§Ç¤Wªº»{ª¾
¼Ó¥Dªº»Ý¨D¬O¦b½d³ò¤º­ì¥»³£µL«OÅ@ª¬ºA¨Ñ¨Ï¥ÎªÌ¿é¤J¸ê®Æ
·í¨Ï¥ÎªÌ¿é¤J§¹¸ê®Æ«á¡A¥²¶·«ö¤U«ö¶s1¡A¤~·|¹ï¤w¦³ªº¸ê®Æ§@«OÅ@
ªÅ®æ¤´µM¥i¥H¦Û¥Ñ¿é¤J¡A­Y¿é¤J§¹¦¨¨S¦³«ö¤U«ö¶s1¨º»ò¸ÓÀx¦s®æ¤´µM¯à°÷­×§ï
©Ò¥H¡A§A´ú¸Õ®É¬O§_¦³·Ó¦¹µ{§ÇÅÞ¿è¨Ï¥Î?¦pªG¦³«ö¤U«ö¶s1¥H«á´NÀ³¸Ó·|¹ï¦³¸ê®ÆªºÀx¦s®æ«OÅ@
§Aªº»Ý¨D¥u¬O¦h¤F¹ïÀx¦s®æÃC¦â°µ³]©w
¸Õ¸Õ
  1. Private Sub CommandButton1_Click()
  2. Dim Rng As Range
  3. Set Rng = Cells '«ü©w§@¥Î½d³ò
  4. Me.Unprotect 12345 '¨ú®ø¤u§@ªí«OÅ@
  5. Cells.Locked = False '©Ò¦³Àx¦s®æ¨ú®øÂê©w
  6. If Application.CountA(Rng) > 0 Then '½d³ò¤º¦³¸ê®Æ
  7. Rng.Interior.ColorIndex = xlNone '¥h°£©³¦â
  8. With Rng.SpecialCells(xlCellTypeConstants) '¦³¸ê®ÆªºÀx¦s®æ³]©w
  9.   .Interior.ColorIndex = 6 '©³¦â¬°¶À¦â
  10.   .Locked = True 'Âê©wÀx¦s®æ
  11. End With
  12. End If
  13. Me.Protect 12345 '¤u§@ªí«OÅ@
  14. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : §g¤l¦p¤ô¡AÀH¤è´N¶ê¡AµL³B¤£¦Û¦b¡C
ªð¦^¦Cªí ¤W¤@¥DÃD