返回列表 上一主題 發帖

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

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

請問如何將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
複製代碼

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

"0000" 密碼

TOP

        靜思自在 : 人的心地是一畦田,土地沒有播下好種子,也長不出好的果實。 -
返回列表 上一主題