Board logo

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

作者: 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/)