返回列表 上一主題 發帖

[發問] 如何不使用保护工作表，又能对表进行编辑保护

HUNGCHILIN
　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主Rank: 7Rank: 7Rank: 7

帖子
647 
主題
190 
精華
24 
積分
1041 
點名
0  
作業系統
windows7 
軟體版本
Office 2010 ; OOO3.0 ; Google 
閱讀權限
100 
性別
男 
來自
竹南 
註冊時間
2010-5-2 
最後登錄
2022-6-24 

貴賓勳章熱烈參與勳章好學求知勳章
1# 跳轉到 »
發表於 2010-7-12 19:19 | 顯示全部帖子
為何不能使用保护工作表功能，有特別原因嗎?
Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

HUNGCHILIN
　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主Rank: 7Rank: 7Rank: 7

帖子
647 
主題
190 
精華
24 
積分
1041 
點名
0  
作業系統
windows7 
軟體版本
Office 2010 ; OOO3.0 ; Google 
閱讀權限
100 
性別
男 
來自
竹南 
註冊時間
2010-5-2 
最後登錄
2022-6-24 

貴賓勳章熱烈參與勳章好學求知勳章
2#
發表於 2010-7-13 21:43 | 顯示全部帖子
回復 6# kiva29
你這樣的說明還是太籠統
因為方法太多太多不知道要用那一個幫你 而且不一定符合你的需求
沒附檔案...

先用這個吧 VBA要開
原理是利用 USERNAME 如圖
來判斷使用者。。。類似使用者就是密碼的觀念
目前是VBA設定 "HUNGCHILIN" 才能編輯使用SHEET1
你如果要這兩人都可以用
就在他們的電腦將這名字設定為"HUNGCHILIN"

當然不要設為這名字 請改VBA



    AA.rar (6.25 KB)
Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

HUNGCHILIN
　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主Rank: 7Rank: 7Rank: 7

帖子
647 
主題
190 
精華
24 
積分
1041 
點名
0  
作業系統
windows7 
軟體版本
Office 2010 ; OOO3.0 ; Google 
閱讀權限
100 
性別
男 
來自
竹南 
註冊時間
2010-5-2 
最後登錄
2022-6-24 

貴賓勳章熱烈參與勳章好學求知勳章
3#
發表於 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)
Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

        靜思自在 : 不要小看自己，因為人有無限的可能。
返回列表 上一主題