¡@¼ÊºÙ: ªü¦N ¡@ÀY»Î: ¤£®¢¤U°Ý,¤£Â_¾Ç²ß,¤~·|¶i¨B
ª©¥D![Rank: 7](images/default/star_level3.gif) ![Rank: 7](images/default/star_level2.gif) ![Rank: 7](images/default/star_level1.gif)
- ©«¤l
- 647
- ¥DÃD
- 190
- ºëµØ
- 24
- ¿n¤À
- 1037
- ÂI¦W
- 0
- §@·~¨t²Î
- windows7
- ³nÅ骩¥»
- Office 2010 ; OOO3.0 ; Google
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¦Ë«n
- µù¥U®É¶¡
- 2010-5-2
- ³Ì«áµn¿ý
- 2022-6-24
![¶Q»«¾±³¹ ¶Q»«¾±³¹](images/common/medal1.gif) ![¼ö¯P°Ñ»P¾±³¹ ¼ö¯P°Ñ»P¾±³¹](images/common/medal7.gif) ![¦n¾Ç¨Dª¾¾±³¹ ¦n¾Ç¨Dª¾¾±³¹](images/common/medal2.gif)
|
¥»©«³Ì«á¥Ñ Hsieh ©ó 2010-7-14 22:33 ½s¿è
§A¤£¯à¤U¸ü
¥Î³oµ{¦¡§a ©ñ¦bthisworkbook¤º
¨Ï¥Î¤èªk:¦b¤Wz¹Ï¤ù¨Ï¥Î¦WºÙ¤º¿é¤J
user1©Îuser2«á¶}±Ò´N¥i¥H¤F
Private Sub Workbook_Open()
Sheet1.Protect Password:=1
If Application.UserName = "USER1" Then
Sheet1.ScrollArea = "A:D"
Sheet1.Unprotect Password:=1
Else
If Application.UserName = "USER2" Then
Sheet1.ScrollArea = "E:H"
Sheet1.Unprotect Password:=1
Else
Sheet1.ScrollArea = "A1"
Sheet1.Protect Password:=1
End If
End If
End Sub
AA.rar (6.85 KB)
|
|