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

317

¤j¤j­Ì:¦n
¤p©f¦³¤@°ÝÃD·Q½Ð±Ð¦U¤j¤j, ²{§âÀɮפW¶Ç, ¤º¦³©ú²Ó»¡©ú, ½Ð¤j¤j±Ð¾É,
AA.rar (162.69 KB)

¤U¸ü¦¸¼Æ: 30

2010-12-7 20:49

luhpro

Worksheets("sheet1").Visible = 0 µ¥¦P
Worksheets("sheet1").Visible=xlSheetHidden
¸û§C¶¥ªºÁôÂáA¥i ...
infoverdad µoªí©ó 2011-7-19 22:51

¨ä¹ê¥u­n¥i¥H¶}±Ò¥¨¶°½s¿èµe­±,
¤u§@ªí¨S¦³³]«OÅ@,
·í Excel VBA ¨S¦³³]«OÅ@±K½X,
¥i¥H¸Ñ°£¤u§@ªíªºÁôÂꬺA.

¤U¸ü (21.04 KB)

2014-11-1 21:37

¤£¹L­Y Excel VBA ¦³³]±K½X,
­Y³] Visible=0
Excel ·|¾× Visible Äݩʪº³]©w.

¤U¸ü (16.28 KB)

2014-11-1 21:37

¦ý­Y³]  Visible=-1
«h¤£ºÞ§A¦³¨S¦³³] Excel VBA «OÅ@±K½X, (¥i¬Ý¨ì¹Ï¤¤µ{¦¡½X½s¿è°Ï¬O¦Ç¦âªº,¸Óµ{¦¡°õ¦æ®É¨Ã¨S¦³¸Ñ¶} Excel VBA ±K½X)
·Ó¼Ë³q³q³£¯à¬Ý¨ì,
©Ò¥H³oºØ«OÅ@¤è¦¡¼h¯Å¨ä¹ê¨Ã¤£°ª³á.

¤U¸ü (18.58 KB)

2014-11-1 21:43

GBKEE

¦^´_ 42# peter460191
41# ªþÀÉ VBA  ThisWorkbook   ¤w§i¶D§A±K½X

1. Private Sub Workbook_Open()
   
2.     Worksheets("Secret").Visible = 2
   
3.     If InputBox("½Ð¿é¤J±K½X©Î¨ú®ø") = "123" Then
   
4.         MsgBox "USER¡A§A¦n!!"
   
5.         'Worksheets("Secret").Visible = -1
   
6.         Worksheets("Secret").Visible = xlSheetVisible
   
7.         Sheets("Secret").Cells.Font.ColorIndex = 56
   
8.     Else
   
9.         'MsgBox "§A¦n!!"
   
10.         Sheets("Secret").Cells.Font.ColorIndex = 2
    
11.         Worksheets("Secret").Visible = 2
    
12.     End If
    
13. End Sub

½Æ»s¥N½X

peter460191

¦^´_ 41# infoverdad


infoverdad ±z¦n:
¦³¤U¸üªþ¥ó¸Õ¥Î¡A¦ý¦n¹³±K½X¿ù»~¤]¥i¥H¥´¸Ñ°£«OÅ@,¬O§Ú¨Ï¥Î¤£¥¿½T¶Ü?

infoverdad

Worksheets("sheet1").Visible = 0 µ¥¦P
Worksheets("sheet1").Visible=xlSheetHidden
¸û§C¶¥ªºÁôÂáA¥i¥H¥Î¡u®æ¦¡¡v=>¡u¤u§@ªí¡v=> ¨ú®øÁôÂÃ

Worksheets("sheet2").Visible = 2 µ¥¦P
Worksheets("sheet1").Visible=xlSheetVeryHidden
¸û°ª¶¥ªºÁôÂáAµLªk¥Î¡u®æ¦¡¡v=>¡u¤u§@ªí¡v=> ¨ú®øÁôÂÃ
­n¥ÎWorksheets("sheet2").Visible = -1 §ïÅܨäÁôÂ䧪¬ºA

¶·Åª¨ú±K½X¤~¯à¬Ý¨ìÁôÂ꺤u§@ªí.rar (16.09 KB)

¤U¸ü¦¸¼Æ: 24

2011-7-19 22:51

infoverdad

¤À¨É§Ú¤w¥Î¦b¤u§@¤Wªº¤èªk:
Ãö³¬Àɮ׮ɱN¾÷±K¤u§@ªíÁôÂÃ

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2. Sheets("­º­¶").Select
   
3. Worksheets("Secret").Visible = 2
   
4. Me.Save
   
5. End Sub
   
6. 
   
7. Private Sub Workbook_Open()
   
8. Worksheets("Secret").Visible = 2
   
9. If InputBox("½Ð¿é¤J±K½X©Î¨ú®ø") = "123" Then
   
10.     MsgBox "USER¡A§A¦n!!"
    
11.     Worksheets("Secret").Visible = -1
    
12.     Sheets("Secret").Cells.Font.ColorIndex = 56
    
13. Else
    
14.     'MsgBox "§A¦n!!"
    
15.     Sheets("Secret").Cells.Font.ColorIndex = 2
    
16.     Worksheets("Secret").Visible = 2
    
17. End If
    
18. End Sub

½Æ»s¥N½X

¥´¶}ÀÉ®×´£¥ÜKEY¤J±K½X"123",«h"SECRET"¤u§@ªí·|¥X²{
­Y¤£¿é¤J±K½X,«h"SECRET"¤u§@ªí·|Ä~Äò³QÁôÂÃ,¥BµLªk¥Î¨ú®øÁôÂ꺤覡¥´¶}!

lin

­Y¥H¼s¸q¸ÑÄÀ¡AEXCEL«OÅ@¤è¦¡«Ü¦h¡G
ÀÉ®×¥i¥H¦UºØ¤è¦¡³]©w±K½X¡A¥t¥~¤]¥i¥H³]¬°°ßŪ¡A©Î©ó¦sÀɮɥt¦s³Æ¥÷¡BÁôÂÃÀÉ®×µ¥
Àx¦s®æ¥i³]±K½X«OÅ@¡A¥t¥~¤]¥i¥HÁôÂáB¸s²Õµ¥
¤u§@ªí¥i³]±K½X«OÅ@¡A¥t¥~¤]¥i¥Hscrollarea¡BÁôÂõ¥
¨ä¹êÀ³µø­Ó§O»Ý­n¦Ó¨M©w¨Ï¥Î¤èªk

dodocho

¦n¹³¸ò§Ú°Ýªº¦³Ãö,¥i¬O¬Ý¤£À´,¤S¤£¯à¤U¸üÀÉ®×,§Ú­n¥[ªo¤F

luckwind

´±°Ý¥i¥H¥u°w¹ï³æ¤@¬¡­¶¶}±Ò®É°µ±K½X«OÅ@¶Ü¡H¨ä¥L¬¡­¶«h¥i¥H¥¿±`¨Ï¥Î....

basarasy

¦^´_ 35# HUNGCHILIN

ÁÂÁÂHUNGCHILIN¤j¤jªº»¡©ú.
§Ú¥H¬Ý¹L¤j¤jªº«OÅ@«O±K©«.
¦³¨Ç¤U¸ü«á¤£ª¾¥Îªk.
²©öª©ªº¥é VBA±M®×¥[¸ÑÂê¾¹¼W¯q¶°  ¥u¦³ .xls, .xla, .xlt
§Ú²{¦b¥Îªº³£¬O .xlsx  .xlsm
´Á±æHUNGCHILIN¤j¤jªºVBA±M®×¥[¸ÑÂê¾¹.