麻辣家族討論版版 » Excel程式區 » VBA設定工作表保護與解除

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

帖子: 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錯誤代碼

程式碼如下:

'保護工作列表

Sub LockLong()
On Error Resume Next
ActiveSheet("sample").Unprotect "1234"
ActiveSheet("sample").Protect Password:="1234", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet("sample").EnableSelection = xlNoRestrictions
End Sub

複製代碼

樓主熱帖

收藏

中學生 Rank: 2

帖子: 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:=確保執行上可行

Sub LockLong()
On Error Resume Next
ActiveSheet("sample").Unprotect [color=Red]Password:[/color]="1234"
ActiveSheet("sample").Protect Password:="1234", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet("sample").EnableSelection = xlNoRestrictions
End Sub

複製代碼

中學生 Rank: 2

帖子: 8
主題: 3
精華: 0
積分: 50
點名: 0
作業系統: WIN XP
軟體版本: 32BIT
閱讀權限: 20
註冊時間: 2014-11-7
最後登錄: 2018-9-2

3^#

發表於 2014-11-11 09:04 | 只看該作者

還有一個問題

語法中以下此語法在我excel無法使用

ActiveSheet("xxx").Protect Password:="1234"

複製代碼

我得用以下這斷才能執行很納悶

Workbooks("xxx").Worksheets("xx").Protect Password:="1234"

複製代碼

超級版主 Rank: 8 Rank: 8

帖子: 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

Sub Ex()
Sheets("xxx").Protect "1234"
'或是
ActiveSheet.Protect "1234"
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

中學生 Rank: 2

帖子: 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

我會在試試看

靜思自在 : 並非有錢魷是快樂，問心無愧心最安。

返回列表下一主題上一主題