標題: [發問] 請問如何密碼保護資料表 [打印本頁]

---

作者: v03586    時間: 2017-1-4 16:40     標題: 請問如何密碼保護資料表

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

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

複製代碼

---

作者: 准提部林    時間: 2017-1-4 21:50

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

"0000" 密碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)