EXCEL VB 問題 - 密碼??

Question

我要在excel的巨集中寫一個VB程式.就是一開啟file就會要你輸入user name 然後又要你再輸入密碼. 然後這個VB程式會告訴你.你的user name 和密碼錯誤.然後file會自動關閉.我不知道VB程式能否寫出這樣的程式來.又密碼的input box要不顯示密碼而以*****來替代.so,別人看不到你的密碼.應為這個file會有多於2人使用.我已經寫了如下.可是我不會寫user name對密碼. 例.甲的密碼為1234.乙的密碼為2222類推.Private Sub Worksheet_Activate()    Dim UserName As String    UserName = "A"    UserName = "B"    Dim Password As String    A = "1234"    B = "2222"    If InputBox("Please enter User Name") = UserName Then    If InputBox("Please Enter the password for edit this page! otherwise this workfile will be closed", "Enter Password") = TruePassword ThenElse    If Value = False Then    Run ActiveWindow.Close    End IfEndEnd IfEnd Sub幫幫我. 謝謝.

我是要在換表單時用的. 所以我的輸入姓名和密碼的程式是放在Worksheet_Activate()沒錯.
又
如在一個工作表中 存放使用者姓名和密碼，在把該工作表隱藏起來。
但我要如何用VB來查核使用者姓名和密碼呢?
再又
設計一個表單，放兩個文字方塊和一個按鈕.
可以就這個再解釋清楚些嗎?

ok. 首先在打開worksheet時.要輸入使用者姓名和密碼.然後,假設這個人是在名單內,而密碼又沒錯.他就可以使用這個特定的表單. 若密碼錯誤或沒輸入密碼又或這個人沒在名單內.則workbook自動存檔並關閉.
這是我工作上要用的.麻煩你了.

Answer 1

Private Sub Worksheet_Activate()
Dim UserName&Password As String
A = "1234"
B = "2222"
If InputBox("Please enter User Name") = UserName Then
If InputBox("Please Enter the password for edit this page! otherwise this workfile will be closed", "Enter Password") = TruePassword Then
Else
If Value = False Then
Run ActiveWindow.Close
End If
End
End If
End Sub

Answer 2

您期待已久的 8891娛樂網 熱烈開幕囉!

8891下注網以優質的服務領先業界

多位美女客服24小時即時線上為您服務!

8891運動城有優於市面所有運彩遊戲的 賠 ~ 率

以及免下載真人 百家樂、21點、骰寶、各國賓果、餐廳賓果、彩球遊戲

另有數百位真人視訊聊天辣妹與您進行互動聊天還有"精彩"電影喔!

心動了嗎!! 快來體驗市面上最完質最高品質的服務

現在有開放免費試玩喔! 網址 : 8891.NET

Answer 3

【亞洲36588合法彩券公司直營 官網: A36588.NET 】

【 最新活動→迎接新會員，首存狂送20% 】

【運動→電子→對戰→現場→彩球 】

【免費服務 →電影區、討論區、KTV歡唱、運動轉播、即時比分、24H客服 】

【亞洲36588合法彩券公司直營 官網: A36588.NET 】

Answer 4

對於你的程式，有幾個建議。
1.你的輸入姓名和密碼的程式應該放在Workbook_Open()比較合理，因為這個只
是開啟時會需要吧。
2.inputbox沒有辦法在輸入時出現****的功能喔
3.如果你的使用者會不斷的增加，而又不想用資料庫的話，可以在一個工作表
中 存放使用者姓名和密碼，在把該工作表隱藏起來。
4.可以設計一個表單，放兩個文字方塊和一個按鈕，比較方便。
有需要可以在問。