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

[µo°Ý] ³o¨ì©³¸Óµo¦b¨º£«?...«ç»ò°µ?·íÀx¦s®æ¿é¤J¼Æ­È«á,¸ÓÀx¦s®æ§Y¦Û°Ê¤WÂê.ÁÂÁÂ!

¦^´_  mark15jill


    £­ ........

ºF·\..................................«e½ú,what a ...
kaohsiung-man µoªí©ó 2013-4-22 15:32



    ²³æ¨Ó»¡

Private Sub Worksheet_SelectionChange(ByVal Target As Range)   ..... End Sub   <== ¦n¤ñ¦ÛµM¬Éªº¦ÛµM­·¡A¤£¥Î°µ¥ô¦ó°Ê§@´N·|¦³ ­· ¬y°Ê
Sub kka  .... End Sub  <== ¦n¤ñ¹q­·®°¡A»Ý­n¦³«ö¤U¶}Ãö¡A¤~·|¦³­·

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

¦^´_ 11# mark15jill
¼Ó¥D1# »¡: ·íÀx¦s®æ¿é¤J¼Æ­È«á,¸ÓÀx¦s®æ§Y¦Û°Ê¤WÂê
­×§ï¼Ó¥D6# µ{¦¡½X
  1. Option Explicit
  2. Private Sub Worksheet_Change(ByVal Target As Range) 'Àx¦s®æ¦³²§°Ê(Target) ¤u§@ªí¹w³]¨Æ¥ó
  3.     'Automatically Protecting After Input
  4.     'unlock all cells in the range first
  5.     Dim MyRange As Range
  6.     Const Password = "123" '**Change password here** ¤u§@ªí¤WÂꪺ±K½X
  7.     'ActiveCell:¨Ï¥Î¤¤Àx¦s®æ
  8.     Set MyRange = Intersect(Range("A1:C10¡AF1:H10"), ActiveCell) '**change range here**
  9.     'Set MyRange = Intersect(Range("A1:C10¡AF1:H10"), Target(1)) '¥ÎTarget(1)¤]¥i¥H
  10.     If Not MyRange Is Nothing Then '¬O¦b->"A1:C10¡AF1:H10"
  11.         Unprotect Password:=Password        '¤u§@ªí¸ÑÂê
  12.         ''MyRange.Locked = True             '"A1:C10¡AF1:H10" Àx¦s®æ¤WÂê
  13.    '****************************************************  
  14.    '¼Ó¥Dªº°ÝÃD:·íÀx¦s®æ¿é¤J¼Æ­È«á,¸ÓÀx¦s®æ§Y¦Û°Ê¤WÂê'
  15.         ActiveCell.Locked = True            '¨Ï¥Î¤¤Àx¦s®æ ¤WÂê
  16.    '*************************************************
  17.         Protect Password:=Password          '¤u§@ªí¤WÂê
  18.     End If
  19. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 11# mark15jill


   {:3_55:} ¦b¤U·M¶w~~~

´ú¸Õ¤§¤U....¦ü¥G¤£¥Î¥Hpassword"123"¸Ñ°£«OÅ@~~ª½±µ ¤u¨ã>«OÅ@>¨ú®ø«OÅ@¤u§@ªí §Y¥i¸ÑÂê¤F...
¦ý¤pªº»Ý­nªº¬O"±N«ü©wÀx¦s®æ¿é¤J¼Æ­È«á,¸ÓÀx¦s®æ¦Û°Ê¤WÂê,¨Ã¥i¥Hpassword¸ÑÂê".

ÁٽЫe½ú©ú¥Ü....ÁÂÁÂ!

TOP

¦^´_ 12# GBKEE


        ¶Wª©¤j~~

¤pªº»Ý­n±N"«ü©wÀx¦s®æ(¨Ï¥Î¤¤Àx¦s®æ)¿é¤J¼Æ­È«á,¸ÓÀx¦s®æ¦Û°Ê¤WÂê,¨Ã¥i¥Hpassword¸ÑÂê",
¨Ã¤£»Ý­n³s¤u§@ªí¤]¤@¦P¤WÂê~

´N­ì6# µ{¦¡½X,¸Ó¦p¦ó­×¥¿¤è¯à²Å¦X¤W­z»Ý¨D©O?

·q½Ð«ü±Ð ... ÁÂÁÂ!

TOP

¦^´_ 14# kaohsiung-man
¨Ã¤£»Ý­n³s¤u§@ªí¤]¤@¦P¤WÂê
¤u§@ªí¤WÂꪺ±ø¥ó¤U: Àx¦s®æ¤~¥i¤WÂê
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 15# GBKEE

¶Wª©¤j~~

    ­Y´N7# ªºµ{¦¡½X....¤S¸Ó¦p¦ó±N"¤u§@ªí¥[¤W¦³passwordªºÂê"ªº©O?

    ¦]¬°µ{¦¡½X¤¤ªº"123"¦ü¥G¨S¦³®Ä¥Î...¥u­n ¤u¨ã>«OÅ@>¨ú®ø«OÅ@¤u§@ªí §Y¥i¸ÑÂê¤F!

·q½Ð«ü±Ð ... ÁÂÁÂ!

TOP

¦^´_ 12# GBKEE

{:3_46:} ·PÁ«e½ú...¤pªº¦A¥H"«OÅ@"¥[¥H³]©w~~§Y¥i!

ÁÂÁÂ!{:3_59:}

TOP

¦^´_ 9# mark15jill


    ·PÁ«e½ú...¤pªº¦A¥H"«OÅ@"¥[¥H³]©w~~§Y¥i!

ÁÂÁÂ!

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-5-9 12:35 ½s¿è

¦^´_ 18# kaohsiung-man
15# ¤u§@ªí¤WÂꪺ±ø¥ó¤U: Àx¦s®æ¤~¥i¤WÂê
§Ú³oÆ[©À¥i¯à¦³¨Ç¿ù»~!!

½Æ»s¦nµ{¦¡½X ½Ð¥ý¦sÀÉ «á¦b¶}ÀɸոÕ
½d¨Ò¾A¥Î©ó: ¤u§@ªí[Sheet1]  Àx¦s®æ¿é¤J¼Æ­È«á,¸ÓÀx¦s®æ§Y¦Û°Ê¤WÂê
  1. Option Explicit
  2. 'ThisWorkbook¼Ò²Õ
  3. Private Sub Workbook_Activate()    '¬¡­¶Ã¯Ä²°Ê¨Æ¥ó : '¬¡­¶Ã¯¦¨¬°¨Ï¥Î¤¤ªº¬¡­¶Ã¯
  4.     ¶K¤W¥\¯à False
  5.     Workbook_Open
  6. End Sub
  7. Private Sub Workbook_Deactivate() '¬¡­¶Ã¯Ä²°Ê¨Æ¥ó :  '¬¡­¶Ã¯¤£¬O¨Ï¥Î¤¤ªº¬¡­¶Ã¯
  8.     ¶K¤W¥\¯à True
  9. End Sub
  10. Private Sub Workbook_Open()         '¬¡­¶Ã¯Ä²°Ê¨Æ¥ó : Àɮ׶}±Ò¦Û°Ê°õ¦æªºµ{¦¡
  11.     With Sheets("Sheet1")
  12.         .AR = .Range(.Cells(1), .UsedRange)  '
  13.         '¤u§@ªí[Sheet1]: ©Ò¦³¸ê®Æ¸m©ó°}¦C
  14.     End With
  15.     ¶K¤W¥\¯à False
  16. End Sub
  17. Private Sub ¶K¤W¥\¯à(M As Boolean)  'M=True : ¥i¥Î¶K¤W¥\¯à«ü¥O,   M = False: ¸T¥Î¶K¤W¥\¯à«ü¥O
  18.     Dim C As CommandBar, W As CommandBarControl, E As CommandBarControl
  19.     On Error Resume Next
  20.     For Each C In Application.CommandBars
  21.             For Each W In C.Controls
  22.                 For Each E In W.Controls
  23.                     If E.Caption Like "*¶K¤W*" Then E.Enabled = M
  24.                 Next
  25.                  If W.Caption Like "*¶K¤W*" Then W.Enabled = M
  26.             Next
  27.     Next
  28. End Sub
½Æ»s¥N½X
  1. '¤u§@ªí¼Ò²Õªº¹w³]µ{§Ç IJ°Ê¨Æ¥ó
  2. Option Explicit
  3. Public AR '¤u§@ªí¼Ò²Õ ¥i¨Ñ¨ä¥L¼Ò²Õ¤§µ{§Ç¨Ï¥ÎªºÅܼÆ
  4. Private Sub Worksheet_Change(ByVal Target As Range) '¤u§@ªíIJ°Ê¨Æ¥ó: ¤u§@ªí¤º®e¦³ÅÜ°Ê
  5. Dim A      '¥»µ{§Ç¨Ï¥ÎªºÅܼÆ
  6. Application.EnableEvents = False
  7. If IsArray(AR) Then
  8. If Target.Row <= UBound(AR, 1) And Target.Column <= UBound(AR, 2) Then
  9. A = AR(Target.Row, Target.Column)
  10. If IsNumeric(A) And A <> "" Then Target = A
  11. End If
  12. End If
  13. Application.EnableEvents = True
  14. AR = Range(Cells(1), UsedRange)
  15. 'ThisWorkbook.Save '¦sÀÉ
  16. End Sub
  17. Private Sub Worksheet_SelectionChange(ByVal Target As Range) '¤u§@ªíIJ°Ê¨Æ¥ó: ¤u§@ªí¨Ï¥Î¤¤ªºÀx¦s®æ½d³òÅÜ°Ê
  18. If Target.Count > 1 Then
  19. Target(1).Select
  20. MsgBox "¤£¤¹³\ §A¿ï¾Ü¦h­ÓÀx¦s®æ !!! "
  21. '¹w¨¾ ²M°£©Ò¦³¸ê®Æ
  22. End If
  23. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 18# kaohsiung-man


    ¬O§_¥i¶K±z­×§ï«áªº»yªk?  §Ú¤]·Q¾Ç²ß±zªº¤èªk@@" ·PÁÂ
¦Û¥Î¨®¤]¥i¥Hñ±b³á!
¤­¤d¤¸¥[ªoª÷¥[¤Jªo½c«áÁÙ¦^õX±z6200¤¸
ºÖ§Q©ô¨®¤Í·|power-want.com

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD