解除選取儲存格的保護 (己解決 ) - Excelㄧ般區 - 麻辣家族討論版版

麻辣家族討論版版 » Excelㄧ般區 » 解除選取儲存格的保護 (己解決 )

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

解除選取儲存格的保護 (己解決 )

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2012-3-27 10:40 | 顯示全部帖子

回復 1# trainee

題目:A1~A10可編輯,其餘儲存格不可編輯

1.選取A1~A10,格式/儲存格保護不勾選鎖定
2.工具/保護/保護工作表

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2012-3-27 12:09 | 顯示全部帖子

回復 3# trainee

Private Sub UserForm_Initialize()
ToggleButton1.Caption = "鎖定"
End Sub
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "解除"
ActiveSheet.Unprotect
[A1:A10].Locked = False
ActiveSheet.Protect
Else
ToggleButton1.Caption = "鎖定"
ActiveSheet.Unprotect
Cells.Locked = True
ActiveSheet.Protect
End If
End Sub

複製代碼

Book1.rar (8.34 KB)

靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。

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