¡@¼ÊºÙ: ªü¦N ¡@ÀY»Î: ¤£®¢¤U°Ý,¤£Â_¾Ç²ß,¤~·|¶i¨B
ª©¥D
- ©«¤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
|
¥»©«³Ì«á¥Ñ 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)
|
|