Board logo

標題: 讓密碼隨日期變化 [打印本頁]

作者: vinejason    時間: 2014-5-28 12:27     標題: 讓密碼隨日期變化

平安
以下代碼中
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    時間: 2014-5-28 13:35

回復 1# vinejason

If InputBox("請輸入檔案管理者〔權限密碼〕!") <> "2015050" & (Weekday(Now, vbMonday) * 2-1) Then
作者: vinejason    時間: 2014-5-28 15:47

回復  vinejason

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

stillfish00  平安
感謝您的回覆
也羡慕您的能力
作者: vinejason    時間: 2014-5-28 16:14

回復 2# stillfish00

stillfish00  平安

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

If InputBox("請輸入檔案管理者〔權限密碼〕!") <> "2015050" & (day(Now, vbday) * 2-1) Then
作者: stillfish00    時間: 2014-5-28 19:09

回復 4# vinejason

按日子?
要看你要對應到的密碼是怎樣
作者: wl02353427    時間: 2014-5-28 21:13

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

如有錯誤請更正
作者: vinejason    時間: 2014-5-29 08:33

回復  vinejason

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


如果不管月份  密碼 20150501
1  20150501
2  20150503
3  20150505
........
31 201505061
作者: stillfish00    時間: 2014-5-29 09:53

回復 7# vinejason
"2015050" & (day(Now) * 2-1)
作者: vinejason    時間: 2014-5-29 10:53

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


想不到真的可以
您真厲害




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)