Cách tạo biểu mẫu đăng nhập trong Excel ?

Trước tiên, bạn tạo một workbook mới trên Excel, đặt lại tên Sheet1 là Du Lieu (rồi gõ vào Sheet1 dữ liệu tùy ý để sau này kiểm tra), Sheet3 là Login. Vì sheet đầu tiên bao giờ cũng có dữ liệu, bạn không nên cho nó active (mặc định mỗi lần mở workbook), nếu không như thế sẽ mất đi tính bảo mật. Còn sheet Login nên là một sheet chẳng có dữ liệu gì cả, form kiểm tra mật khẩu sẽ được hiển thị trên sheet này. Nhấn phím Alt+F11 hoặc chọn Tools > Macro > Visual Basic Editor để mở cửa sổ VBA của Excel. Cách soạn thảo VBA trong Excel tương tự như trong Access. Trong cửa sổ VBA, chọn Insert > UserForm để tạo một form mới. Bạn sử dụng các công cụ trên Toolbox để thiết kế form như hình 1. Đặt tên form là frmLogin, tên nút lệnh OK là cmdOK, tên nút lệnh Cancel là cmdCancel, rồi gõ đoạn mã 1 vào (bấm kép lên form để mở cửa sổ soạn thảo, hoặc bấm-phải chuột vào tên form trong cửa sổ Project – VBAProject). Quay về Excel, chọn Tools > Macro > Macros. Trên hộp thoại Macro, gõ tên Auto_Open vào ô Macro name, bấm Create để mở cửa sổ VBA và gõ đoạn mã sau đây: Sub Auto_Open() frmLogin.Show End Sub Auto_Open là một macro tự động chạy mỗi lần workbook được mở. Đoạn mã trên hiển thị form frmLogin mỗi lần workbook được mở. Để các macro có thể tự động chạy, bạn phải hạ mức security xuống Medium hoặc Low: quay về Excel, chọn Tools > Macro > Security để mở hộp thoại Security, trong thẻ Security Level chọn Medium (người sử dụng sẽ quyết định macro được chạy hay không) hoặc Low, bấm OK. Bạn đóng workbook rồi mở lại để kiểm tra. Đoạn mã 1 Const sMatKhau = "echip" Private Sub cmdCancel_Click() MsgBox "Rat tiec vi ban khong chung minh duoc minh co quyen mo workbook nay!" ActiveWorkbook.Close End Sub Private Sub cmdOK_Click() With TextBox1 If .Text = sMatKhau Then ActiveWorkbook.Sheets("Du Lieu").Activate Unload Me Exit Sub End If MsgBox "Mat khau khong dung!" .SetFocus End With End Sub Private Sub UserForm_Initialize() ActiveWorkbook.Sheets("Login").Activate With TextBox1 .Text = "" .PasswordChar = "*" End With End Sub Save lại file Exel, thoát khỏi môi trường làm việc Exel và mở lại file vừa tạo để xem kết quả