excel登錄代碼怎麼寫,EXCEL用戶登錄窗體代碼修改,詳細如下
Private Sub CommandButton1_Click()
Application.Visible = True
For i = 1 To Sheets.Count
Sheets(i).Visible = -1
Next
If TextBox1 = "123" And TextBox2 = "123" Then
ElseIf TextBox1 = "456" And TextBox2 = "456" Then
Sheets(1).Visible = 0
Sheets(3).Visible = 0
ElseIf TextBox1 = "789" And TextBox2 = "789" Then
Sheets(1).Visible = 0
Sheets(2).Visible = 0
Else
Application.Visible = False
For i = 1 To Sheets.Count
Sheets(i).Visible = 0
Next
MsgBox "用戶名或密碼不正確,請重新輸入!", 64
Exit Sub
End If
Unload Me
End Sub
2.ASP+EXCEL查詢系統如何增加密碼登錄,代碼怎麼寫給你個大概思路,你自己做吧。
from action="?action=login"input name="user"input name="password"dim t:t=request("action")dim n:n=request("name")dim p:p=request("password")if t="login" thenif n="用戶名" and p="密碼" then'這裏的密碼,你可以設置固定,或者從數據庫取出,數據庫取出,同理,只是做一個取得的值跟數據庫值比對一下而已。session("user")=nend ifend if在需要登錄纔可以看到的頁面上加上這句:if session("user")="" then response.write"你沒有登錄請登錄else顯示正常內容end if。
3.怎麼做在Excel中製作用戶登錄窗口爲了保護Excel工作表,有時需要對工作表的打開設置權限,這就需要創建用戶登錄界面。
在Excel中,製作用戶登錄窗口的方式很多,使用控件是其中的一種重要方法。本文介紹使用VBA窗體控件、文本框控件和按鈕控件等來製作用戶登錄窗口的方法。
1、啓動Excel並打開工作表,打開Visual Basic編輯器,在工程資源管理器中鼠標右擊,選擇關聯菜單中的“插入”|“用戶窗體”命令插入一個用戶窗體。按F4鍵打開“屬性”對話框,在"Caption"文本框中輸入文字“用戶登錄”更改窗體標題,如圖1所示。
創建用戶窗體並設置其屬性2、從“工具箱”對話框中分別選擇“文本框”控件、“標籤”控件和“命令按鈕”控件,在窗體中繪製這些控件,如圖2所示。在“屬性”對話框中將兩個“標籤”控件的"Caption"屬性分別設置爲“登錄名”和“登錄密碼”,將“命令按鈕”控件的"Caption"屬性分別設置爲“確定”和“取消”,向窗體中添加控件 修改控件的3、在窗體中選擇第二個“文本框”控件,在“屬性”對話框中將"PasswordChar"屬性設置爲字符“*”,如圖4所示。
這樣,在該文本框中輸入的字符將被“*”替代。更改“文本框”控件的4、鼠標右擊窗體中的“確定”按鈕,選擇關聯菜單中的“查看代碼”命令打開“代碼”窗口,此時Visual Basic編輯器將自動在“代碼”窗口中爲控件添加Click事件。
爲該按鈕添加的Click事件程序如下:Private Sub CommandButton1_Click() If TextBox1.Text<>"郭軼凡"Then '判斷用戶名是否正確 MsgBox"用戶登錄名錯誤,您無權登錄!" '不正確給出提示 With TextBox1.SelStart=0 '設置選擇文字的開始字符.SelLength=Len(TextBox1.Text) '設置選擇文本的長度.SetFocus '文本框獲得焦點 End With ElseIf TextBox2.Text<>"abcdef "Then '如果密碼錯誤 MsgBox"密碼輸入錯誤,請重新輸入!" '給出提示 With TextBox2.SelStart=0 '設置選擇文本的開始字符.SelLength=Len(TextBox2.Text) '設置選擇文本的長度.SetFocus '獲得焦點 End With Else MsgBox"登錄成功,歡迎你的到來!" '登錄成功提示 Unload Me '卸載窗體 End If End Sub 提示 在這裏,程序首先判斷第一個文本框的Text屬性值是否爲設定的用戶名,如果不是則給出提示,同時使用With結構設置非常關鍵的SelStart屬性和SelLength屬性,使文本框中的文字能夠高亮顯示。同時,使用SetFocus方法使文本框獲得焦點以方便用戶更改用戶名。
如果輸入的是設定的用戶名,程序接着判斷第二個文本框中的Text屬性值是否是設定的密碼,如果不是則執行與用戶名錯誤相同的操作。如果用戶名和密碼均正確,程序給出提示並卸載窗體。
5、接着在“代碼”窗口中輸入程序代碼,爲“取消”按鈕添加Click事件代碼,具體程序如下所示:Private Sub CommandButton2_Click() Unload Me '卸載窗體 ThisWorkbook.Close '關閉工作簿 End Sub6、按F5鍵運行程序出現“用戶登錄”窗口,在“登錄名”文本框中輸入人名,如果非授權用戶,程序給出提示,如圖4所示。單擊“確定”按鈕關閉提示對話框後,“登錄名”文本框獲得焦點,在其中輸入正確登錄名。
在“登錄密碼”文本框中輸入密碼,如果密碼錯誤,程序給出提示,如圖5所示。如果輸入正確的用戶名和登錄密碼,程序提示登錄成功,如圖6所示。
單擊“確定”按鈕關閉對話框,“用戶登錄”窗體將關閉。登錄名輸入錯誤提示 密碼輸入錯誤提示 登錄成功提示7、在工程資源管理器中雙擊"ThisWorkbook"選項打開“代碼”窗口,在其中輸入如下程序代碼使工作簿打開時用戶窗體可見。
切換到Excel,保存文檔,完成本實例的製作。Private Sub Workbook_Open() UserForm1.Show End Sub。
4.有關登錄窗口的vba代碼Private Sub Workbook_Open()
Application.Visible = False
login.Show
End Sub
在窗體代碼中做了
Private Sub CommandButton1_Click()
If UserName.Text = "123" And Pwd.Text = "123" Then
Me.Hide
Application.Visible = True
Else
ThisWorkbook.Application.Quit
End If
End Sub
Private Sub CommandButton2_Click()
End
End Sub
再拿去運行下,肯定沒有問題。
5.EXCEL如何編輯登錄窗口首先建立一個用戶窗體UserForm1做爲登錄窗,設置兩個文本框TextBox1和TextBox2,一個確定按鈕,CommandButton1。代碼如下
Private Sub CommandButton1_Click()
If TextBox1.Value = "管理員" And TextBox2.Value = "123" Then
Me.Hide
Sheets("sheet1").Select
Else
ThisWorkbook.Application.Quit
End If
End Sub
在thisworkbook項輸入如下代碼,就在打開文檔時彈出登錄窗。
Private Sub Workbook_Open()
UserForm1.Show 0
End Sub
-
房地產企業土地使用稅終止時間
(一)有的地方以預售許可爲準,比如江蘇的蘇州工業園區、廣州。廣州市地方稅務局《關於房產稅、城鎮土地使用稅若干業務問題的徵稅指引》(穗地稅稅一函[2010]9號)規定:房地產開發企業從事商品房開發,其開發用地城鎮土地使用稅納稅義務截至時間爲預售(銷售)許可證的核發時間...
-
丟失國有土地使用證的補辦方法
提交土地登記申請所需的材料包括:土地登記申請書、企業營業執照、組織機構代碼證、法定代表人證明書、委託書、單位正式申請、地上附着物權屬證明、土地證遺失證明材料以及其他登記機關認爲必要的材料。法律分析1、土地登記申請書(法人簽字、公章);2、企業營業執照...
-
2023年現在多少歲可以結婚
法律分析:結婚年齡,男不得早於二十二週歲,女不得早於二十週歲。法律依據:《中華人民共和國民法典》第一千零四十六條結婚應當男女雙方完全自願,禁止任何一方對另一方加以強迫,禁止任何組織或者個人加以干涉。第一千零四十七條結婚年齡,男不得早於二十二週歲,女不得早於...
-
怎樣包三角糉子方法和步驟教給您
1、將桂竹的竹葉來包糉子或麻竹的竹葉洗乾淨晾乾備用2、所以材料都準備好後,下面開始包3、糉葉對摺呈三角狀,放好糯米之類的餡(根據個人喜歡放好拌好的餡),然後蓋上兩邊壓緊,然後蓋上兩邊壓緊(可以稍微包的緊些),把剩餘的葉子塞好(不講究好看了,因爲是自己吃的),把準備好的...