Board logo

標題: 一個隠藏工作表的問題 [打印本頁]
作者: 周大偉    時間: 2010-9-20 20:10     標題: 一個隠藏工作表的問題

大大們,好
小弟現有一問題請教, 小弟有一excel檔, 內有15張工作表,現小弟新增一張工作表, 工作表16並設定為首頁, 當用家開啟此檔後, 1至15工作表全隠藏, 介面已剩下工作表16, 我想於此工作表中加一按鈕, 當按下按鈕後,
彈出窗框, 請輸入密碼, 當用輸入密碼後, 1至15工作表全部顯示,而16工作則隠藏, 現請教各大大, 這難度高程式該如何著手,
[attach]2830[/attach]
作者: Hsieh    時間: 2010-9-20 21:24

回復 1# 周大偉
thisworkbook模組
  1. Private Sub Workbook_Open()
  2. Sheets("首頁").Visible = True
  3. For Each sh In Sheets
  4.    If sh.Name <> "首頁" Then sh.Visible = False
  5. Next
  6. End Sub
複製代碼
Sheet1模組
  1. Private Sub CommandButton1_Click()
  2. Do Until pw = "12345"
  3.    pw = InputBox("請輸入密碼")
  4. Loop
  5. For Each sh In Sheets
  6.    If sh.Name <> "首頁" Then
  7.    sh.Visible = True
  8.    End If
  9. Next
  10. Sheets("首頁").Visible = False
  11. End Sub
複製代碼
作者: et5323    時間: 2010-9-20 21:33

本帖最後由 et5323 於 2010-9-20 21:37 編輯

Const myCode = "abcd"
Const sPrompt = "請輸入密碼："
Const sTitle = "密碼"
Const sMsg = "密碼輸入錯誤!"

[attach]2832[/attach]

其實這類代碼都是防君子，不防小人的，沒啥實際意義。
作者: 317    時間: 2010-9-20 23:09

本帖最後由 317 於 2010-9-20 23:15 編輯

謝謝樓上两位大大前輩
其實並沒有防君子, 或防小人想法, 真的, 不過是小弟有一檔案, 內有15張工作表, 這檔案中也有一些簡單程式,
感覺上, 這檔案缺了一個介面, 心想到上述表達的意境, 假若用家必須由此介面進入, 當然這介面是經過畫面設計美化等, 當用家打開檔案便是這介面, 這效果會把整個檔案像全新包裝般, 而這些複雜程式小弟實沒法完成, 故請教大大們,
在此謝謝两位大大, 程式雖未試用, 但衷心感謝謝!!
作者: Hsieh    時間: 2010-9-20 23:22

把首頁換成userform作介面
inputbox換成TextBox來輸入
開啟檔案userform就show
密碼正確userform就Unload
作者: et5323    時間: 2010-9-21 11:59

我以爲妳要做保護.能不能把妳完成的經過畫面設計美化的介面傳上來,欣賞學習一下,這需要美工基礎,一直比較羨慕那些美工高手.
作者: 周大偉    時間: 2010-9-22 22:32

本帖最後由 周大偉 於 2010-9-22 22:33 編輯

hsieh大大 et5323大大
謝謝2位回應, 因早幾天家中個人電腦出了問題,只能於友好317家中回應,而今天電腦修理好,
可用回自己的個人腦, et5323大大, 我把設有美化介面檔案上傳, 但其實並不涉及美工基礎,
只是一般工能及圖片, 介面很普通, 可能令大大見笑,
[attach]2848[/attach]
作者: sandra_wang    時間: 2010-11-17 10:43

To 周大偉作者~
我最近也需要類似的功能...
我點數不夠，還不能下載檔案，不知道你可不可以把檔案寄給我分享([email protected])
麻煩妳~~
作者: kan109    時間: 2010-11-18 00:25

我還在學習了解當中!!!感謝~



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