我們可以利用隱藏主視窗的方式要求使用者輸入帳號密碼，如下圖
由上圖得知Excel已經在執行了，但是主要的應用程式視窗被藏起來了。
1.隱藏的方式其實很簡單只要設定Application.Visible = True 屬性即可
2.或是利用下列屬性，將主視窗移出螢幕
Application.WindowState = xlNormal
Application.Left = 10000
如何隱藏 Excel 主視窗
1.利用Workbook_Open事件，使Excel一執行後便隱藏主程式畫面
Private Sub Workbook_Open()
'活頁簿開啟時即隱藏Excel
Application.Visible = False
'秀出登入畫面
UserForm1.Show
End Sub
2.加入判斷是否登入成功程式碼
Private Sub Login_Click()
If UserName = "余小章" And UserPassword = "ggyy" Then
Unload Me
'登入成功後顯示EXCEL
Application.Visible = True
Else
MsgBox "使用者名稱或密碼錯誤!", vbCritical, "錯誤"
End If
End Sub
Private Sub Cancel_Click()
Unload Me
'關閉應用程式
Application.Quit
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'判斷是否按X關閉
If CloseMode <> 1 Then
Cancel = True
'關閉應用程式
Application.Quit
End If
End Sub
3.範例下載：如何隱藏主視窗.rar
PS.別忘了設定Execl的安全性才能執行本範例！
新手發帖請多包涵
2009/7/1 02:05|
閱讀數 : 1717
|
我要推薦
|
|
文章分類:
Office VBA
訂閱