返回列表 上一主題 發帖

一個保護問題,

infoverdad

帖子
175 
主題
8 
精華
0 
積分
207 
點名
215  
作業系統
WIN 10 
軟體版本
Office 2010 
閱讀權限
20 
性別
女 
註冊時間
2011-6-30 
最後登錄
2026-10-11 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章
1# 跳轉到 »
發表於 2011-7-19 21:19 | 顯示全部帖子
本帖最後由 infoverdad 於 2011-7-19 21:23 編輯

分享我已用在工作上的方法:
關閉檔案時將機密工作表隱藏
  1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  2. Sheets("首頁").Select
  3. Worksheets("Secret").Visible = 2
  4. Me.Save
  5. End Sub

  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"工作表會繼續被隱藏,且無法用取消隱藏的方式打開!

TOP

infoverdad

帖子
175 
主題
8 
精華
0 
積分
207 
點名
215  
作業系統
WIN 10 
軟體版本
Office 2010 
閱讀權限
20 
性別
女 
註冊時間
2011-6-30 
最後登錄
2026-10-11 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章
2#
發表於 2011-7-19 22:51 | 顯示全部帖子
Worksheets("sheet1").Visible = 0 等同
Worksheets("sheet1").Visible=xlSheetHidden
較低階的隱藏，可以用「格式」=>「工作表」=> 取消隱藏

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

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

TOP

        靜思自在 : 成功是優點的發揮，失敗是缺點的累積。
返回列表 上一主題