¤u§@ªí«OÅ@(¦b¥H«OÅ@¤U¡A·í¬YӰ϶ô¶ñ¼g¸ê®Æ«á¡A¾ãÓ¤u§@ªí³£¬O«OÅ@¤£¯à¶ñ¼g¸ê®Æ)
- ©«¤l
- 559
- ¥DÃD
- 58
- ºëµØ
- 0
- ¿n¤À
- 626
- ÂI¦W
- 0
- §@·~¨t²Î
- win8
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TW
- µù¥U®É¶¡
- 2010-11-22
- ³Ì«áµn¿ý
- 2024-6-14
|
¤u§@ªí«OÅ@(¦b¥H«OÅ@¤U¡A·í¬YӰ϶ô¶ñ¼g¸ê®Æ«á¡A¾ãÓ¤u§@ªí³£¬O«OÅ@¤£¯à¶ñ¼g¸ê®Æ)
Dear ¤j¤j
¸ß°Ý¤@¤U«OÅ@¤u§@ªíªº¥\¯à¡A¦p¤U¹Ï¤Îªþ¥ó©Ò¥Ü¡A
¤@¯ë«OÅ@¤u§@ªí¡A³£¬O¬°¤F¤£Åý¾ãÓ¸ê®Æµ²ºc³Qקï©Î²¾°Ê¡AÁקK¾ÉP¸ê®Æ¦b¼´¨ú®É¡A©Ò²£¥Íªº¿ù»~¡A
©Ò¥H¡A³£·|³]©w¬Y¨ÇÄæ¦ì¬O¶}©ñµ¹¶ñ¼gªÌ¶ñ¼g¡A
¦ý²{¦bªº»Ý¨D¬O¡G·í¶ñ¼gªÌ¶ñ¼g§¹«á¡A¸Ó¸ê®Æ¬On³Q¤WÂê¡AÁקK¤UÓ¼f®ÖªÌ¥hקï¨ì¶ñ¼gªÌªº¸ê®Æ¡A
·Q½Ð±Ð¤j¤jÌ¡A¹ï©ó³o¤@Ó°ÝÃD¡A¥i¥H½ç±Ð¡B¸Ñ´b¡C
ªíÅ@¤u§@ªí½m²ß.rar (13.26 KB)
|
|
¾Ç²ß¤~¯à´£¤É¦Û¤v
|
|
|
|
|
- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
¦^´_ 1# hugh0620
nªº¬O³o¼Ë¶Ü? «ö«ö¶s«á §R°£"¤¹³\¨Ï¥ÎªÌ½s¿è½d³ò"¤ºªº³]©w- Private Sub CommandButton1_Click()
- Unprotect Password:="1234"
- ActiveSheet.Protection.AllowEditRanges(1).Delete
- Protect Password:="1234"
- End Sub
½Æ»s¥N½X |
|
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C
|
|
|
|
|
- ©«¤l
- 559
- ¥DÃD
- 58
- ºëµØ
- 0
- ¿n¤À
- 626
- ÂI¦W
- 0
- §@·~¨t²Î
- win8
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TW
- µù¥U®É¶¡
- 2010-11-22
- ³Ì«áµn¿ý
- 2024-6-14
|
¥»©«³Ì«á¥Ñ hugh0620 ©ó 2014-12-15 18:30 ½s¿è
¦^´_ 2# stillfish00
Dear stillfish00
ÁÂÁ§A´£¨Ñªº¤è¦¡¡A¥i¥H¹F¨ì»Ý¨D¥\¯à¡A
¦ý¬O§_¦³¨ä¥LºØ¤è¦¡¡A¬J¥i¥H«O¯d¥Î¥»¤¹³\¨Ï¥ÎªÌªº½d³ò¡A¤S¥i¥H±N¨ä«OÅ@°_¨Ó¡C
delete ªº¤è¦¡¡A§Æ±æ¬O³Ì«á¤@ºØ¦Ò¼{ªº¤è¦¡¡C |
|
¾Ç²ß¤~¯à´£¤É¦Û¤v
|
|
|
|
|
- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
¦^´_ 3# hugh0620
¤£ª¾¹D¡A¤j·§¤£¯à
§Ú¦Û¤v¤@¯ë¬O±N¥i¿é¤JªºÀx¦s®æ¥Î¦WºÙºÞ²zû¥ý©w¸q
µM«á±±¨î¦U¦WºÙ½d³ò¤ºªºÀx¦s®æ"Âê©w"©Î"¤£Âê©w"
µM«á¦A«OÅ@¤u§@ªí
¤¹³\¨Ï¥ÎªÌ½s¿è·Pı¬OµLµø¦³¨S¦³Âê©w³£¥i½s¿è¡A§Ú¬O¤ñ¸û¤Ö¥Îªº¡C |
|
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C
|
|
|
|
|
- ©«¤l
- 559
- ¥DÃD
- 58
- ºëµØ
- 0
- ¿n¤À
- 626
- ÂI¦W
- 0
- §@·~¨t²Î
- win8
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TW
- µù¥U®É¶¡
- 2010-11-22
- ³Ì«áµn¿ý
- 2024-6-14
|
¥»©«³Ì«á¥Ñ hugh0620 ©ó 2014-12-16 00:23 ½s¿è
¦^´_ 4# stillfish00
Dear stillfish00
¥Î¦WºÙºÞ²zû¨Ó©w¸q¡AÅ¥°_¨Ó¤]³\¬O¥t¤@±ø¾A¦X¹F¨ì§Ú»Ý¨Dªº¤è¦¡
¯à§_½Ð±z°µ¤@Ó²³æªº½d¥»¡A´£¨Ñµ¹§Ú°Ñ¦Ò¬Ý¬Ý¡A·P®¦¡C
(Ó¤H¤ñ¸û¤Ö¹ï«OÅ@¦³©Ò¨Ï¥Î©Î¬ã¨s¡A¤£¬O«Ü¼ô±x§ó²`¤Jªº¤è¦¡¡A½Ð¨Ï¥Î³Ì²³æªº«OÅ@¾Þ§@) |
|
¾Ç²ß¤~¯à´£¤É¦Û¤v
|
|
|
|
|
- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
¦^´_ 5# hugh0620
¥ý©w¦n¦WºÙ IN_DATA1 ªº½d³ò- Private Sub CommandButton1_Click()
- LockInput
- End Sub
- Private Sub UnlockInput()
- Unprotect Password:="1234"
- Range("IN_DATA1").Locked = False
- Protect Password:="1234"
- End Sub
- Private Sub LockInput()
- Unprotect Password:="1234"
- Range("IN_DATA1").Locked = True
- Protect Password:="1234"
- End Sub
½Æ»s¥N½X
«OÅ@¤u§@ªí½m²ß2.zip (14.18 KB)
|
|
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C
|
|
|
|
|
- ©«¤l
- 559
- ¥DÃD
- 58
- ºëµØ
- 0
- ¿n¤À
- 626
- ÂI¦W
- 0
- §@·~¨t²Î
- win8
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TW
- µù¥U®É¶¡
- 2010-11-22
- ³Ì«áµn¿ý
- 2024-6-14
|
|
¾Ç²ß¤~¯à´£¤É¦Û¤v
|
|
|
|
|
- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
¥»©«³Ì«á¥Ñ stillfish00 ©ó 2014-12-17 09:38 ½s¿è
¦^´_ 7# hugh0620
¥ú¬O³o¼Ë¬Ý¤£¥X°ÝÃD¡Adebug¤£¬O¥u¦³¿ù»~¥N½X´N¯àdebug............³Ì¦n¬OªþÀÉ°Õ
1. «ö°»¿ù
2. ¦b§Y®É¹Bºâµøµ¡¿é¤J ?Range("AAA").address , ¬Ý¬O§_·|¥X¿ù
3. Àˬd¦¹®É¬O§_¯à¤â°Ê¹ï¿é¤J½d³òªºÀx¦s®æ°µÂê©w: ¥kÁä>Àx¦s®æ®æ¦¡>«OÅ@>Âê©w |
|
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C
|
|
|
|
|
- ©«¤l
- 559
- ¥DÃD
- 58
- ºëµØ
- 0
- ¿n¤À
- 626
- ÂI¦W
- 0
- §@·~¨t²Î
- win8
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TW
- µù¥U®É¶¡
- 2010-11-22
- ³Ì«áµn¿ý
- 2024-6-14
|
|
¾Ç²ß¤~¯à´£¤É¦Û¤v
|
|
|
|
|
- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
¦^´_ 9# hugh0620
§t¦X¨ÖÀx¦s®æ¡A§ï³o¼Ë:
For Each x In Range("AAA")
x.MergeArea.Locked = False
Next |
|
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C
|
|
|
|
|