讓密碼隨日期變化

平安
以下代碼中
InputBox 需要輸入一組密碼現暫定為 20150501
想讓密碼隨星期一 ~ 日密碼尾碼產生變化增加密碼的保密性
請教版上達人
星期一密碼為 20150501
星期二密碼為 20150503
星期三密碼為 20150505
星期四密碼為 20150507
星期五密碼為 20150509
星期六密碼為 201505011
星期日密碼為 201505013

Private Sub Workbook_Open()
If Date - DateSerial(2013, 1, 10) >= 60 Then
Application.EnableCancelKey = xlDisabled
MsgBox "※已超過 VBA 使用期限，除檔案管理者外無法使用本檔案！"
If InputBox("請輸入檔案管理者〔權限密碼〕！") <> "20140501" Then
ThisWorkbook.Close SaveChanges:=False
End If
End If
End Sub

樓主熱帖

無止盡的努力上進

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2014-5-28 13:35 | 只看該作者

回復 1# vinejason

If InputBox("請輸入檔案管理者〔權限密碼〕！") <> "2015050" & (Weekday(Now, vbMonday) * 2-1) Then

TOP

vinejason

中學生 Rank: 2

帖子: 124
主題: 43
精華: 0
積分: 167
點名: 0
作業系統: Windows7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: 台灣台北
註冊時間: 2011-3-16
最後登錄: 2021-10-7

3^#

發表於 2014-5-28 15:47 | 只看該作者

回復 vinejason

If InputBox("請輸入檔案管理者〔權限密碼〕！") "2015050" & (Weekday(Now, vbMonda ...
stillfish00 發表於 2014-5-28 13:35

stillfish00 平安
感謝您的回覆
也羡慕您的能力

無止盡的努力上進

TOP

vinejason

中學生 Rank: 2

帖子: 124
主題: 43
精華: 0
積分: 167
點名: 0
作業系統: Windows7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: 台灣台北
註冊時間: 2011-3-16
最後登錄: 2021-10-7

4^#

發表於 2014-5-28 16:14 | 只看該作者

回復 2# stillfish00

stillfish00 平安

如果按日子(1~31)
改密碼可以改成這樣嗎 ?

If InputBox("請輸入檔案管理者〔權限密碼〕！") <> "2015050" & (day(Now, vbday) * 2-1) Then

無止盡的努力上進

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

5^#

發表於 2014-5-28 19:09 | 只看該作者

回復 4# vinejason

按日子?
要看你要對應到的密碼是怎樣

TOP

wl02353427

小學生 Rank: 1

帖子: 30
主題: 4
精華: 0
積分: 34
點名: 0
作業系統: Win10
軟體版本: Office 2010
閱讀權限: 10
性別: 男
來自: 新北市
註冊時間: 2013-11-30
最後登錄: 2023-1-12

6^#

發表於 2014-5-28 21:13 | 只看該作者

感謝2F的 stillfish00 前輩提供方法，讓小弟學到新的陳述式。
另外測試了4F版大的方法，是不是要改成這樣啊?
InputBox("請輸入檔案管理者〔權限密碼〕！") <> "2015050" & (Day(Now))
因為day內建函數是1~31在循環，所以上述的紅色字0要扣掉，而且...這內建函數是不是從1月開始算阿...因為第2組循環只跑到29...如果要精確一點應該要先抓到該月份是大月還是小月??

如有錯誤請更正