帖子: 250
主題: 59
精華: 0
積分: 313
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 澳門
註冊時間: 2010-9-11
最後登錄: 2020-1-6

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2010-9-20 20:10 | 只看該作者

一個隠藏工作表的問題

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

Book1.rar (7.32 KB)

樓主熱帖

kan109

中學生 Rank: 2

帖子: 64
主題: 18
精華: 0
積分: 98
點名: 0
作業系統: Mac
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2010-6-12
最後登錄: 2023-12-17

9^#

發表於 2010-11-18 00:25 | 只看該作者

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

excel~ 學好他吧

TOP

sandra_wang

小學生 Rank: 1

帖子: 31
主題: 10
精華: 0
積分: 49
點名: 0
作業系統: xp
軟體版本: office2003
閱讀權限: 10
性別: 女
註冊時間: 2010-10-27
最後登錄: 2011-10-14

8^#

發表於 2010-11-17 10:43 | 只看該作者

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

TOP

周大偉

中學生 Rank: 2

帖子: 250
主題: 59
精華: 0
積分: 313
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 澳門
註冊時間: 2010-9-11
最後登錄: 2020-1-6

7^#

發表於 2010-9-22 22:32 | 只看該作者

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

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

Book1.rar (8.35 KB)

TOP

et5323

尊貴會員 Rank: 5 Rank: 5

帖子: 128
主題: 13
精華: 1
積分: 118
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 50
性別: 男
來自: 四川成都邛崃
註冊時間: 2010-9-13
最後登錄: 2017-5-12

6^#

發表於 2010-9-21 11:59 | 只看該作者

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2010-9-20 23:22 | 只看該作者

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

學海無涯_不恥下問

TOP

317

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 334
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
註冊時間: 2010-7-24
最後登錄: 2023-2-2

4^#

發表於 2010-9-20 23:09 | 只看該作者

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

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

TOP

et5323

尊貴會員 Rank: 5 Rank: 5

帖子: 128
主題: 13
精華: 1
積分: 118
點名: 0
作業系統: WinXP
軟體版本: Office2003
閱讀權限: 50
性別: 男
來自: 四川成都邛崃
註冊時間: 2010-9-13
最後登錄: 2017-5-12

3^#

發表於 2010-9-20 21:33 | 只看該作者

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

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

jBook1.rar (12.59 KB)

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2010-9-20 21:24 | 只看該作者

回復 1# 周大偉
thisworkbook模組

Private Sub Workbook_Open()
Sheets("首頁").Visible = True
For Each sh In Sheets
If sh.Name <> "首頁" Then sh.Visible = False
Next
End Sub

複製代碼

Sheet1模組

Private Sub CommandButton1_Click()
Do Until pw = "12345"
pw = InputBox("請輸入密碼")
Loop
For Each sh In Sheets
If sh.Name <> "首頁" Then
sh.Visible = True
End If
Next
Sheets("首頁").Visible = False
End Sub

複製代碼

學海無涯_不恥下問

TOP