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

peter460191

¦^´_ 41# infoverdad


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

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

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