返回列表 上一主題 發帖

[發問] VBA設定工作表保護與解除

taiwan

帖子
8 
主題
3 
精華
0 
積分
50 
點名
0  
作業系統
WIN XP 
軟體版本
32BIT 
閱讀權限
20 
註冊時間
2014-11-7 
最後登錄
2018-9-2 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-11-10 13:26 | 只看該作者

[發問] VBA設定工作表保護與解除

本帖最後由 taiwan 於 2014-11-10 13:27 編輯

我有一個資料Sheet 稱為sample

我在此資料表內設一個按鈕,這按扭功能會對 sample資料內容進行更新
為了避免使用者把資料按到空白鍵之類,或誤觸


所以要設置密碼

那在功能邏輯上要先設解除工作表密碼在設保護工作表密碼

那這樣子在更新資料內容時比較不會有誤

在執行程式後發現有一個問題是 先解除密碼的sub功能失效

導致資料無法寫入更新  會出現1004錯誤代碼


程式碼如下:

'保護工作列表
  1. Sub LockLong()
  2.     On Error Resume Next
  3.    
  4.     ActiveSheet("sample").Unprotect "1234"

  6.    ActiveSheet("sample").Protect Password:="1234", DrawingObjects:=True, Contents:=True, Scenarios:=True
  7.    ActiveSheet("sample").EnableSelection = xlNoRestrictions


  10. End Sub
複製代碼
收藏 分享

taiwan

帖子
8 
主題
3 
精華
0 
積分
50 
點名
0  
作業系統
WIN XP 
軟體版本
32BIT 
閱讀權限
20 
註冊時間
2014-11-7 
最後登錄
2018-9-2 
2#
發表於 2014-11-10 13:33 | 只看該作者
自己來回答也分享各位

1.不要設保護及解除保護各一個sub
2.密碼為大小寫請都改為小寫
3.Unprotect 及Protect都要在後面多寫一段  Password:=確保執行上可行
  1.     Sub LockLong()
  2.         On Error Resume Next
  3.       
  4.         ActiveSheet("sample").Unprotect  [color=Red]Password:[/color]="1234"

  6.        ActiveSheet("sample").Protect Password:="1234", DrawingObjects:=True, Contents:=True, Scenarios:=True
  7.        ActiveSheet("sample").EnableSelection = xlNoRestrictions


  10.     End Sub
複製代碼

TOP

taiwan

帖子
8 
主題
3 
精華
0 
積分
50 
點名
0  
作業系統
WIN XP 
軟體版本
32BIT 
閱讀權限
20 
註冊時間
2014-11-7 
最後登錄
2018-9-2 
3#
發表於 2014-11-11 09:04 | 只看該作者
還有一個問題

語法中以下此語法在我excel無法使用
  1. ActiveSheet("xxx").Protect Password:="1234"
複製代碼
我得用以下這斷才能執行 很納悶
  1. Workbooks("xxx").Worksheets("xx").Protect Password:="1234"
複製代碼

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2014-11-11 15:59 | 只看該作者
回復 3# taiwan
  1. Sub Ex()
  2. Sheets("xxx").Protect "1234"
  3. '或是
  4. ActiveSheet.Protect "1234"
  5. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

taiwan

帖子
8 
主題
3 
精華
0 
積分
50 
點名
0  
作業系統
WIN XP 
軟體版本
32BIT 
閱讀權限
20 
註冊時間
2014-11-7 
最後登錄
2018-9-2 
5#
發表於 2014-11-12 08:47 | 只看該作者
回復  taiwan
GBKEE 發表於 2014-11-11 15:59



  我會在試試看

TOP

        靜思自在 : 世上有兩件事不能等：一、孝順 二、行善。
返回列表 上一主題