讓密碼隨日期變化

平安
以下代碼中
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

樓主熱帖

無止盡的努力上進

vinejason

中學生 Rank: 2

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

9^#

發表於 2014-5-29 10:53 | 只看該作者

回復 vinejason
"2015050" & (day(Now) * 2-1)
stillfish00 發表於 2014-5-29 09:53

想不到真的可以
您真厲害

無止盡的努力上進

TOP

stillfish00

大學生 Rank: 4

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

8^#

發表於 2014-5-29 09:53 | 只看該作者

回復 7# vinejason
"2015050" & (day(Now) * 2-1)

TOP

vinejason

中學生 Rank: 2

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

7^#

發表於 2014-5-29 08:33 | 只看該作者

回復 vinejason

按日子?
要看你要對應到的密碼是怎樣
stillfish00 發表於 2014-5-28 19:09

如果不管月份  密碼 20150501
1  20150501
2  20150503
3  20150505
........
31 201505061

無止盡的努力上進

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...如果要精確一點應該要先抓到該月份是大月還是小月??

如有錯誤請更正