一個隠藏工作表的問題

周大偉

大大們,好
小弟現有一問題請教, 小弟有一excel檔, 內有15張工作表,現小弟新增一張工作表, 工作表16並設定為首頁, 當用家開啟此檔後, 1至15工作表全隠藏, 介面已剩下工作表16, 我想於此工作表中加一按鈕, 當按下按鈕後,
彈出窗框, 請輸入密碼, 當用輸入密碼後, 1至15工作表全部顯示,而16工作則隠藏, 現請教各大大, 這難度高程式該如何著手,
Book1.rar (7.32 KB)

下載次數: 11

2010-9-20 20:08

Hsieh

回復 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

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

jBook1.rar (12.59 KB)

下載次數: 15

2010-9-20 21:32

其實這類代碼都是防君子，不防小人的，沒啥實際意義。

317

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

Hsieh

把首頁換成userform作介面
inputbox換成TextBox來輸入
開啟檔案userform就show
密碼正確userform就Unload

et5323

我以爲妳要做保護.能不能把妳完成的經過畫面設計美化的介面傳上來,欣賞學習一下,這需要美工基礎,一直比較羨慕那些美工高手.

周大偉

hsieh大大 et5323大大
謝謝2位回應, 因早幾天家中個人電腦出了問題,只能於友好317家中回應,而今天電腦修理好,
可用回自己的個人腦, et5323大大, 我把設有美化介面檔案上傳, 但其實並不涉及美工基礎,
只是一般工能及圖片, 介面很普通, 可能令大大見笑,
Book1.rar (8.35 KB)

下載次數: 16

2010-9-22 22:33

sandra_wang

To 周大偉作者~
我最近也需要類似的功能...
我點數不夠，還不能下載檔案，不知道你可不可以把檔案寄給我分享(sandra_wang@kimo.com)
麻煩妳~~

kan109

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