一個保護問題,

317

大大們:好
小妹有一問題想請教各大大, 現把檔案上傳, 內有明細說明, 請大大教導,
AA.rar (162.69 KB)

下載次數: 30

2010-12-7 20:49

luhpro

Worksheets("sheet1").Visible = 0 等同
Worksheets("sheet1").Visible=xlSheetHidden
較低階的隱藏，可 ...
infoverdad 發表於 2011-7-19 22:51

其實只要可以開啟巨集編輯畫面,
工作表沒有設保護,
當 Excel VBA 沒有設保護密碼,
可以解除工作表的隱藏狀態.

下載 (21.04 KB)

2014-11-1 21:37

不過若 Excel VBA 有設密碼,
若設 Visible=0
Excel 會擋 Visible 屬性的設定.

下載 (16.28 KB)

2014-11-1 21:37

但若設  Visible=-1
則不管你有沒有設 Excel VBA 保護密碼, (可看到圖中程式碼編輯區是灰色的,該程式執行時並沒有解開 Excel VBA 密碼)
照樣通通都能看到,
所以這種保護方式層級其實並不高喔.

下載 (18.58 KB)

2014-11-1 21:43

GBKEE

回復 42# peter460191
41# 附檔 VBA  ThisWorkbook   已告訴你密碼

1. Private Sub Workbook_Open()
   
2.     Worksheets("Secret").Visible = 2
   
3.     If InputBox("請輸入密碼或取消") = "123" Then
   
4.         MsgBox "USER，你好!!"
   
5.         'Worksheets("Secret").Visible = -1
   
6.         Worksheets("Secret").Visible = xlSheetVisible
   
7.         Sheets("Secret").Cells.Font.ColorIndex = 56
   
8.     Else
   
9.         'MsgBox "你好!!"
   
10.         Sheets("Secret").Cells.Font.ColorIndex = 2
    
11.         Worksheets("Secret").Visible = 2
    
12.     End If
    
13. End Sub

複製代碼

peter460191

回復 41# infoverdad


infoverdad 您好:
有下載附件試用，但好像密碼錯誤也可以打解除保護,是我使用不正確嗎?

infoverdad

Worksheets("sheet1").Visible = 0 等同
Worksheets("sheet1").Visible=xlSheetHidden
較低階的隱藏，可以用「格式」=>「工作表」=> 取消隱藏

Worksheets("sheet2").Visible = 2 等同
Worksheets("sheet1").Visible=xlSheetVeryHidden
較高階的隱藏，無法用「格式」=>「工作表」=> 取消隱藏
要用Worksheets("sheet2").Visible = -1 改變其隱藏之狀態

須讀取密碼才能看到隱藏的工作表.rar (16.09 KB)

下載次數: 24

2011-7-19 22:51

infoverdad

分享我已用在工作上的方法:
關閉檔案時將機密工作表隱藏

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2. Sheets("首頁").Select
   
3. Worksheets("Secret").Visible = 2
   
4. Me.Save
   
5. End Sub
   
6. 
   
7. Private Sub Workbook_Open()
   
8. Worksheets("Secret").Visible = 2
   
9. If InputBox("請輸入密碼或取消") = "123" Then
   
10.     MsgBox "USER，你好!!"
    
11.     Worksheets("Secret").Visible = -1
    
12.     Sheets("Secret").Cells.Font.ColorIndex = 56
    
13. Else
    
14.     'MsgBox "你好!!"
    
15.     Sheets("Secret").Cells.Font.ColorIndex = 2
    
16.     Worksheets("Secret").Visible = 2
    
17. End If
    
18. End Sub

複製代碼

打開檔案提示KEY入密碼"123",則"SECRET"工作表會出現
若不輸入密碼,則"SECRET"工作表會繼續被隱藏,且無法用取消隱藏的方式打開!

lin

若以廣義解釋，EXCEL保護方式很多：
檔案可以各種方式設定密碼，另外也可以設為唯讀，或於存檔時另存備份、隱藏檔案等
儲存格可設密碼保護，另外也可以隱藏、群組等
工作表可設密碼保護，另外也可以scrollarea、隱藏等
其實應視個別需要而決定使用方法

dodocho

好像跟我問的有關,可是看不懂,又不能下載檔案,我要加油了

luckwind

敢問可以只針對單一活頁開啟時做密碼保護嗎？其他活頁則可以正常使用....

basarasy

回復 35# HUNGCHILIN

謝謝HUNGCHILIN大大的說明.
我以看過大大的保護保密帖.
有些下載後不知用法.
簡易版的仿 VBA專案加解鎖器增益集  只有 .xls, .xla, .xlt
我現在用的都是 .xlsx  .xlsm
期望HUNGCHILIN大大的VBA專案加解鎖器.