暱稱: 阿吉 頭銜: 不恥下問,不斷學習,才會進步
版主
- 帖子
- 647
- 主題
- 190
- 精華
- 24
- 積分
- 1037
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- Office 2010 ; OOO3.0 ; Google
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 竹南
- 註冊時間
- 2010-5-2
- 最後登錄
- 2022-6-24
|
9#
發表於 2010-7-14 22:23
| 只看該作者
本帖最後由 Hsieh 於 2010-7-14 22:33 編輯
你不能下載
用這程式吧 放在thisworkbook內
使用方法:在上述圖片使用名稱內輸入
user1或user2後開啟就可以了
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)
|
|