讓密碼隨日期變化

vinejason

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

回復 1# vinejason

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

vinejason

回復  vinejason

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

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

vinejason

回復 2# stillfish00

stillfish00  平安

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

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

stillfish00

回復 4# vinejason

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

wl02353427

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

如有錯誤請更正

vinejason

回復  vinejason

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

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

stillfish00

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

vinejason

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

想不到真的可以
您真厲害