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

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

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

§Ú¬O¤p§b~~³o¨ì©³¸Óµo¦b¨º£«???

¦pÃD------«ç»ò°µ?...·íÀx¦s®æ¿é¤J¼Æ­È«á,¸ÓÀx¦s®æ§Y¦Û°Ê¤WÂê.~~THANKS!

·í§Ú¦bsheet1¤¤,¬Y­ÓÀx¦s®æ¿é¤J¼Æ­È«á,§Æ±æ¸ÓÀx¦s®æ¥i°¨¤W"¦Û°Ê¤WÂê"....¸Ó«ç»ò°µ©O?

­Y­n¼gexcel vba .....½Ð°ª¤â­Ì´£¨Ñµ{¦¡½X,±Ï±Ï¹q¸£¤p§b§a!

§Ú¬O¤p§b~~³o¨ì©³¸Óµo¦b¨º£«???

¦pÃD------«ç»ò°µ?...·íÀx¦s®æ¿é¤J¼Æ­È«á,¸ÓÀx¦s®æ§Y¦Û°Ê¤WÂê.~~THANKS! ...
kaohsiung-man µoªí©ó 2013-4-20 11:34



   °¨¤W¤WÂꪺ©w¸q¬°¦ó¡H ÁôÂáH¸õ¶}¡HÁÙ¬O¡H

  ¦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

¦^´_ 2# mark15jill


§Ú¬O¤p§b~~ , ¬Oªº~~~~«e½ú!

¥i°¨¤W"¦Û°Ê¤WÂê"ªº·N«ä´N¬O........¹ï¿é¤J¼Æ­Èªº¸ÓÀx¦s®æ,¦bÁä¤J¼Æ­È«öenter«á,¸ÓÀx¦s®æ§Y¥i³Q¦Û°Ê¤WÂê,¦ÓµLªk¦A¶i¦æ§ó§ï!
¨Ã¤£¬OÁôÂéθõ¥X!!!

¦³´MÀò...¦bsheet1¤¤,¬Y­ÓÀx¦s®æ¿é¤J¼Æ­È«á,¸Ó¤u§@­¶ÀH§Y¦Û°Ê¤WÂê,¦ÓµLªk¦A¶i¦æ§ó§ï!
¦ý¤p§Ì»Ý­nªº¬O...¦Û°Ê¤WÂê¸ÓÀx¦s®æ,¦Ó«D¾ã­Ó¤u§@­¶~~



­Y­n¼gexcel vba .....½Ð°ª¤â­Ì´£¨Ñµ{¦¡½X,±Ï±Ï¹q¸£¤p§b§a!

TOP

¦^´_  mark15jill


§Ú¬O¤p§b~~ , ¬Oªº~~~~«e½ú!

¥i°¨¤W"¦Û°Ê¤WÂê"ªº·N«ä´N¬O........¹ï¿é¤J¼Æ­Èªº ...
kaohsiung-man µoªí©ó 2013-4-22 08:34


¥H¤Uµ{¦¡½X¥i°µ¨ì... ¦ý¬O... ¬O¤j½d³òªº¡A½Ð¦Û¦æ­×§ï
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2.     On Error Resume Next
  3.     ActiveSheet.Unprotect
  4.     ActiveSheet.Cells.Locked = False
  5.    
  6.     Dim Rng As Range
  7.     ActiveSheet.Unprotect
  8.     For Each Rng In ActiveSheet.UsedRange
  9.         If Rng.Value <> "" Or Rng.HasFormula Then Rng.Locked = True
  10.     Next
  11.     ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
  12. End Sub
½Æ»s¥N½X

  ¦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

¥»©«³Ì«á¥Ñ kaohsiung-man ©ó 2013-4-22 13:27 ½s¿è

¦^´_ 4# mark15jill


.....¤Ó·P¿E±z£{~~~

¦ý¬O~~~¤WÂê¤F....¤pªº¸Ó«ç»ò¸ÑÂê...¥i§_¦bµ{¦¡½X¤¤¥[¤J¸ÑÂê±K½X©O?

¦Ó¥B,­Y¬O¥u­nÂê©wA1~C10¤ÎF1~H10§Y¥i...¤S¸Ó±q¦ó³B­×§ï©O?


ÁÂÁ«e½ú

TOP

¦^´_ 4# mark15jill
³o¬O¤p§b¼gªº¦H§@...¸Ó¦p¦ó»P±zªºµ{¦¡½Xµ²¦X¦¨:
1.·íÀx¦s®æ¿é¤J¼Æ­È«á,¸ÓÀx¦s®æ§Y¦Û°Ê¤WÂê.
2.ªþ¦³¸ÑÂêpassword.
3.¶È¹ïA1~C10¤ÎF1~H10Àx¦s®æ§@¦Û°Ê¤WÂꪺ³]©w.
¬ß±z¤£§[«ü±Ð ~ ÁÂÁ !

Private Sub Worksheet_Change(ByVal Target As Range)
'Automatically Protecting After Input
'unlock all cells in the range first
Dim MyRange As Range
Const Password = "123" '**Change password here**
Set MyRange = Intersect(Range("A1:C10¡AF1:H10"), Target) '**change range here**
If Not MyRange Is Nothing Then
Unprotect Password:=Password
MyRange.Locked = True
Protect Password:=Password
End If
End Sub

TOP

¥»©«³Ì«á¥Ñ mark15jill ©ó 2013-4-22 14:24 ½s¿è

¦³¬~©«ªº¶ûºÃ....<6#>
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)


  2.     On Error Resume Next

  3.     ActiveSheet.Unprotect

  4.     ActiveSheet.Cells.Locked = False

  5.    
  6.     Dim Rng1,Rng2 As Range

  7.     ActiveSheet.Unprotect
  8.    
  9. '²Ä¤@­Ó«ÊÂê°Ï°ì   
  10.     For Each Rng1 In Range("A1:C10")  '³o§ï½d³ò

  11.         If Rng1.Value <> "" Or Rng1.HasFormula Then Rng1.Locked = True
  12.         If [x1] = "123" Then Rng1.Locked = False  '³]©w¸Ñ°£±ø¥ó

  13.     Next

  14. '²Ä¤G­Ó«ÊÂê°Ï°ì
  15.     For Each Rng2 In Range("F1:H10") '³o§ï½d³ò

  16.         If Rng2.Value <> "" Or Rng2.HasFormula Then Rng2.Locked = True
  17.          If [x1] = "123" Then Rng2.Locked = False'³]©w¸Ñ°£±ø¥ó
  18.     Next

  19.     ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

  20. End Sub
½Æ»s¥N½X

  ¦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

¦^´_ 8# mark15jill
SORRY....#6 ->¤â«ö§Ö¤F°Õ...

¤£¹L...µ²¦Xªº¤è¦¡,¹ê«D¤pªº©Ò¯à·Q¹³~~~

¥u¯à»¡¾ÇÃÀ¤£ºë,²Ê²L¶È±o¥Ö¤ò

......................................................................

¤è¤~´ú¸Õ....¦ü¥G¤£¥Î¥Hpassword¸Ñ°£«OÅ@~~ª½±µ ¤u¨ã>«OÅ@>¨ú®ø«OÅ@¤u§@ªí §Y¥i¸ÑÂê¤F...

«e½ú,½Ð¬d·Ó....ÁÂÁÂ!

TOP

¥»©«³Ì«á¥Ñ mark15jill ©ó 2013-4-22 15:12 ½s¿è
¦^´_  mark15jill
SORRY....#6 ->¤â«ö§Ö¤F°Õ...

¤£¹L...µ²¦Xªº¤è¦¡,¹ê«D¤pªº©Ò¯à·Q ...
kaohsiung-man µoªí©ó 2013-4-22 15:04



    ¤§©Ò¥H¥Î
Private Sub Worksheet_SelectionChange(ByVal Target As Range)   ..... End Sub
¤£¦P©ó
Sub kka  .... End Sub

«eªÌ
´N¬O¥u­n¦³ÅÜ°Ê<¤£ºÞ¬O·Æ¹«ÂIÀ»©ÎÀx¦s®æÅÜ°Ê>¡A´N·|«ö·Óµ{¦¡¥h¶]..°£«D§â¥¨¶°¥\¯àÃö±¼

«áªÌ
­n°õ¦æ«á¡A¥\¯à¤~·|±Ò°Ê....

¦ý¬O
¥u­n±N¥¨¶°¥\¯àÃö±¼©Î¥t¥~³]©w... ³o¤@¤Á³£¨S¥Î£¾£¾

  ¦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

¦^´_ 10# mark15jill


    £­ ........

ºF·\..................................«e½ú,what are U talking about ???

¤pªº ...¤£À´...

TOP

        ÀR«ä¦Û¦b : ¸Ü¦h¤£¦p¸Ü¤Ö¡A¸Ü¤Ö¤£¦p¸Ü¦n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD