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

¤@­Ó«OÅ@°ÝÃD,

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-12-9 20:18 ½s¿è

¦^´_ 10# 317
§A³o¹Ï¤ù2¬O±M®×³]©w±K½X¥Îªº,¥²»Ý¥Î¤â°Êªº,µLªk¥Îvba¾Þ§@ªº
Sheets("¸ê®Æ­¶").Protect Password:="1234", DrawingObjects:=True, Contents:=True, Scenarios:=True
¤W¦¡¬OÀɮפ¤ ¤u§@ªí¦W¬°"¸ê®Æ­¶"ªº³]©w«OÅ@ªºµ{¦¡½X,¥B³]¥ß±K½X¬°"1234"
¥ý«e§i¶D§A±N¸ê®Æ­¶ªº¦rÅéÃC¦â»PÀx¦s®æªº©³¦â ÃC¦â³]¬°¦P¼ËÃC¦â.
¦pÃö³¬ÀÉ®×®É °õ¦æ¦¹µ{¦¡½X, ¥i¹w¨¾¦A«×¶}±ÒÀÉ®×, ¦p°±¥Î¥¨¶°®É¥B¸ê®Æ­¶¨SÁôÂÃ.±N¤£·|¼ÉÅS¸ê®Æ­¶ªº¤º®e

TOP

GBKEE¤j¤j:¦n
©ú¥Õ¤F, ¦b³o­Óµo°Ý¬yµ{¤¤,
GBKEE
hsieh
两¦ì¤j¤jµ¹¤©¤p©fÄ_¶Qªº«ü¾É, °J¤ß·PÁÂ!!,
³Ì«á, ¯¬Ä@§Ö¼Ö,°·±d....

TOP

§Ú¦b·Q.....
¼Ó¥D·|ÁôÂäu§@ªí¡AÀ³¸Ó¤£¥u¬O·Q«OÅ@¤u§@ªí¡A¦Ó¬O·Q...«O±K
¦pªG¡A¥u°w¹ï¤u§@ªí³]±K½X«OÅ@¡AÀ³¸Ó¬O¨S¤°»ò§@¥Î
§Ú·Q...¥u­n¤@­Ó²³æªº"µ¥©óªº¤½¦¡"´N¯à¿sµø¡u¸ê®Æ­¶¡vªº¤º®e¤F~

TOP

¦^´_ 13# solely
¤j¤j¦n,
¤p©f¦³¤@ExcelÀɮ׫Ç,¦Ó¦b¤½¥q¤¤¦³3¦ì¦P¨Æ¨Ï¥Î, ¦¹ÀɮץαK½Xµn¤J¶}±Ò, ¦Óvba«OÅ@±M±K½X«OÅ@, ·íµM³o¨Ã«D°ª«×ªº¾÷±K, ¦ý·í¤¤¸ê®Æ¤]¤£·QÀH·Nµ¹¤H¬Ý, ¤@ª½¨S¦³¨Æ±¡µo¥Í,
¤@¤Ñ, ¤½¥q¤¤¨Ó¤F¦ì·s¦P¨Æ, ¤½¥q°tµ¹¤F¥L·s¹q¸£, ¦Ó·s¸£¤¤·s¦P¨Æ¥¼±Ò¥Î¥¨¶°, ¥LÀH·N¶}±Ò¦¹ÀÉ®×, µo°Ý¤F¤p©f­t³dªº¸ê®Æ, ³o¥O§Ú¦YÅå, ³o¤~ª¾¹D©Ò¦³¯A¤Jµ{¦¡±K½X«OÅ@ªºExcelÀÉ®×,
¦b°±¥Î¥¨¶°ªº±¡ªp¤U, µ¥©ó¨S¦³«OÅ@, ¥ô¦ó¤H³£¥i¥HÀH·N¬Ý, ©ó¬O¦b¦¹°Q½×°Ï¤¤½Ð±Ð¦U¤j¤j, ¬Ý¥i¦³¿ìªkÀ±¸É¦¹¯ÊÂI, ¦Óhsieh¤ÎGBKEE两¦ì¤j¤jµ¹¤©«ü¾É,
ÀÉ®×Á`ºâ©ó°±¥Î¥¨¶°®É¶}±Ò,¶¢®a¬O¬Ý¤£¨ì¸ê®Æ, ·íµM¦pªG¬O·í¤¤°ª¤â,­þÁÙ¬O®{©`¦ó, ¦ý°²­Y¤å¥ó¬O°ª«×¾÷±Kªº¸Ü,¤½¥q¦Û·|½Ð±M¤J³]ªk«OÅ@, §Úµ¥³o¨Ç¦æ¬F¤p¤å­û, ¤£¹L¬O«OÅ@¤p¤p¸ê®Æ§a..

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-12-24 21:28 ½s¿è

¦^´_ 14# 317
¬¡­¶Ã¯³]¥ß¶}±Ò±K½X,®Ç¤HµLªk¶}±Ò.

TOP

ÁÂÁ¤j¤j.
¤p©f·PÁ«ü¾É, ¯¬Ä@§Ö¼Ö.

TOP

GBKEE¤j¤j,
¤W­z©Ò´£¤Îªº«OÅ@¤è¦¡, ¤j¤j¥i§_°µ¤@½d¨ÒÀÉ, µ¹¤©§Úµ¥µ{«×§C¦Ó´N·Q±q¤¤¾Ç²ßªºªù¥Í°Ñ¦Ò,
·P®¦..

TOP

¦^´_ 17# ©P¤j°¶
¦p¤U¹Ï ¿ï¨ú«á ¿é¤J±K½X§Y¥i

TOP

¤j¤j,
¥ý¦æÁ¹L, ¤j¤jµ¹¤©±Ð¾É, ¬O¤@¯ë¿ï¶µ¤¤³]¥ß±K½X, ¦Ó¤p§Ì©Ò·Q¦V¤j¤j¾Ç²ßªº«K¬O§âÀx¦s®æ¦rÅé³]©w»PÀx¦s®æ¬Û¦P¦â, ¦A¥[¤W±K½X³]©w¬°1234µ{¦¡½d¨Ò, ´¿»P¤Í¦n°Q½×, ¦ý¨S¦³±o¨ìµ²ªG, ¬G½Ð¤j¤j«ü¾É, §Æ±æ¤j¤jµ¹¤©¤@½d¨Ò. ¦nÅý±q¤¤¾Ç²ß, ¥ýÁ¹L¤j¤j, ¸t½Ï§Ö¼Ö..

TOP

¦^´_ 19# ©P¤j°¶
1.±Nµ{¦¡½X¶K©ó ThisWorkbook,  ±M®×ªºÄÝ©Ê->«OÅ@  ¤Ä¿ïÂê©w±M®×, ¿é¤J±K½X
2.¬¡­¶Ã¯¥t¦sÀɮ׫ü¥O -> ¤u¨ã-> ¤@¯ë¿ï¶µ  ¿é¤J¬¡­¶Ã¯«OÅ@±K½X
  1. Option Explicit
  2. Private Const ±K½X = "1234"
  3. Private Const ¦rÅéÃC¦â = 1
  4. Private Const «OÅ@¦â = 2    '¥i¦Û¦æ­×§ï
  5. Dim Answer$
  6. Private Sub Workbook_Open()
  7.     Sheets_Protect
  8.     Answer_Pass
  9. End Sub
  10. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  11.     Sheets_Protect
  12.     Save
  13. End Sub
  14. Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  15.     Answer_Pass
  16. End Sub
  17. Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
  18.      My_UnProtect (IIf(Answer = ±K½X, True, False))
  19. End Sub
  20. Private Sub Sheets_Protect()
  21.     Dim Sh As Worksheet
  22.     For Each Sh In Sheets
  23.         With Sh
  24.         .Unprotect ±K½X
  25.         .Cells.Font.ColorIndex = «OÅ@¦â
  26.         .Cells.Interior.ColorIndex = .Cells.Font.ColorIndex
  27.         .EnableSelection = xlNoSelection
  28.         .Protect PassWord:=±K½X, DrawingObjects:=True
  29.         End With
  30.     Next
  31. End Sub
  32. Private Sub My_UnProtect(Y As Boolean)
  33.     Application.ScreenUpdating = False
  34.     With ActiveSheet
  35.         .Unprotect ±K½X
  36.         If Y = True Then
  37.             .Cells.Font.ColorIndex = ¦rÅéÃC¦â
  38.             .Cells.Interior.ColorIndex = xlNone
  39.             Application.CommandBars.FindControl(ID:=30029).Enabled = True
  40.         Else
  41.             .Cells.Font.ColorIndex = «OÅ@¦â
  42.             .Cells.Interior.ColorIndex = .Cells.Font.ColorIndex
  43.             .EnableSelection = xlNoSelection
  44.             .Protect PassWord:=±K½X, DrawingObjects:=True
  45.             Application.CommandBars.FindControl(ID:=30029).Enabled = False
  46.         End If
  47.     End With
  48.     Application.ScreenUpdating = True
  49. End Sub
  50. Private Sub Answer_Pass()
  51.     If Answer <> ±K½X Then
  52.         If InputBox("±K½X??", "¿é¤J±K½X") = ±K½X Then Answer = ±K½X
  53.     End If
  54.     My_UnProtect (IIf(Answer = ±K½X, True, False))
  55. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤p¨Æ¤£°µ¡B¤j¨ÆÃø¦¨¡C
ªð¦^¦Cªí ¤W¤@¥DÃD