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

給你個大概思路，你自己做吧。

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。

為了保護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。

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

再拿去運行下，肯定沒有問題。

首先建立一個用户窗體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