返回列表 上一主題 發帖

讓密碼隨日期變化

讓密碼隨日期變化

平安
以下代碼中
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
無止盡的努力上進

回復 1# vinejason

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

TOP

回復  vinejason

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

stillfish00  平安
感謝您的回覆
也羡慕您的能力
無止盡的努力上進

TOP

回復 2# stillfish00

stillfish00  平安

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

If InputBox("請輸入檔案管理者〔權限密碼〕!") <> "2015050" & (day(Now, vbday) * 2-1) Then
無止盡的努力上進

TOP

回復 4# vinejason

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

TOP

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

如有錯誤請更正
初新者~指教囉~

TOP

回復  vinejason

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


如果不管月份  密碼 20150501
1  20150501
2  20150503
3  20150505
........
31 201505061
無止盡的努力上進

TOP

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

TOP

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


想不到真的可以
您真厲害
無止盡的努力上進

TOP

        靜思自在 : 人的心地是一畦田,土地沒有播下好種子,也長不出好的果實。 -
返回列表 上一主題