麻辣家族討論版版 » Excel程式區 » 請問如何密碼保護資料表

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

[發問] 請問如何密碼保護資料表

中學生 Rank: 2

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2017-1-4 16:40 | 只看該作者

[發問] 請問如何密碼保護資料表

請問如何將Excel 密碼保護資料表
目前寫入這段程式碼 , 但使用者一樣可以按右鍵『取消保護工作表』
即使我在資料表按右鍵啟用『保護工作表』並輸入密碼, 但關閉後再開啟
使用者一樣可以按右鍵『取消保護工作表』.....根本沒有達到保護的效果

Option Explicit
Sub Ex()
With ActiveSheet '§@¥Î¤¤ªº¤u§@ªí
.Unprotect
.Range("A2:L55").Locked = False
.Protect 'DrawingObjects:=True, Contents:=True, Scenarios:=True
' .EnableSelection = xlUnlockedCells '¤u§@ªí¤W,¨S¤WÂêÀx¦s®æ¥i¿ï
.EnableSelection = xlNoSelection '¤u§@ªí¤WªºÀx¦s®æ¤£¥i¿ïªº
'.EnableSelection = xlNoRestrictions '¤£¨î
End With
End Sub

複製代碼

樓主熱帖

收藏

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-19

2^#

發表於 2017-1-4 21:50 | 只看該作者

With ActiveSheet
      .Unprotect "0000"
   ~~~
      .Protect "0000"
End With

"0000" 密碼

靜思自在 : 一個人的快樂．不是因為他擁有得多，而是因為他計較得少。

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