Tạo form đăng nhập trong Excel

Chia sẻ bởi:hands

★★★★★

‹ Tạo dòng “Tổng cộng cuối trang” Tặng các bạn File đăng nhập, Admin... ›

Quảng cáo

Chào các bạn! Mình có làm một bài Excel tạo form đăng nhập nhưng mình chưa tạo được form thay đổi thông tin đăng nhập khi đăng nhập đúng. Do đó, khi muốn thay đổi phải mở Vba lên để mà thay đổi trong đó. Rất là phiền phức. Bạn nào biết thì chỉ dùm nhe. Tải file đính kèm xem thử nhe!
Xin cám ơn.
Liên lạc với mình qua [EMAIL="truongminhthi999@gmail.com"]truongminhthi999@gmail.com

Bạn xem có đúng ý mình không nhé!

Cám ơn bạn rất nhiều. Nhưng chắc bạn nhằm ý của mình rùi. Ý của mình là khi đăng nhập thành công trên sheet có một nút lệnh khi click vào thì hiện form với các nội dung như tên đăng nhập mới, mật khẩu mới. Sau khi điền đầy đủ thông tin và click lên nút lệnh "thay đổi" thì tên đăng nhập và mật khẩu để mở bài Excel lúc này là thông tin vừa nhập vào. Ở bài của bạn hay hơn bài của mình là khi đăng nhập đúng mới mở bài lên, còn bài của mình khi mở lên là đã hiện cả dung của sheet đầu rùi chỉ là không thao tác được trên nó thôi. Rất mong được sự giúp đỡ tiếp tục của bạn và mọi người.
Xin cám ơn!
Chào thân ái.%#^#$

Thử cái này xem sao nha, có gì không hài lòng xin thông cảm, mới vọc VB thôi, không biết gì nhiều đâu -\/.
Tên đăng nhập và mật khẩu đều là admin.–=0.

Tuyệt! Đúng ý mình rùi đấy bạn. Cảm ơn bạn ducky2301.–=0

file của ducky khi mở bằng excel 2007 thì user và pass lòi ra hết trơn rôì, sau đó mới "enable this content" thì còn gì là đăng nhập nữa. có cách nào mà nó hiện form đăng nhập lên luôn ko nhỉ?

Tặng các bạn các FORM ĐĂNG NHẬP & FORM THAY ĐỔI USER, PASS

Chỉ là trò chơi màu mè thôi, chứ nếu người ta cài đặt Macro Setting ở chế độ High thì chương trình xem như ai vào nhà mình cũng OK.

Khi mở file, các bạn sẽ thấy một form hiện lên:

2376

Tôi mặc định sẳn User và Pass rồi, chỉ bấm Nhập. Nhưng lưu ý, bạn chỉ được quyền sai User hoặc Pass trong vòng 4 lần, sau 4 lần sẽ tự động thoát file. Thú vị chứ nhỉ?

Và tại sheet có một nút lệnh để thay đổi User & Pass, ở đó bạn chỉ cần làm đúng các yêu cầu trong form này:

2375

thì các bạn sẽ được thay đổi quyền đăng nhập.

Để làm khó tí xíu cho các bạn tôi đã đặt VBA pass là: HoangTrongNghia

Riêng Password đã đăng nhập thì các bạn tự tìm trong file xem nó ở đâu nhé!
Cái quan trọng là mở được VBA để xem, mà mở được VBA rồi thì không lý do gì mà không thể tìm ra Password mà tôi đã để ở đâu đó trong sheet để thay đổi pass mới phải nhập vô pass này trước.

Vậy sao không thử tìm trong code của UserForm?

Cả 2 Form đều có thủ tục này:

Private Sub UserForm_Initialize()
      Workbooks(ThisWorkbook.Name).Activate
      Application.EnableCancelKey = xlErrorHandler
      Application.Visible = False
      Dim hWnd As Long
      On Error Resume Next
      hWnd = FindWindow("ThunderDFrame", Me.Caption)
      SetWindowLong hWnd, -16, &H84080080
      Me.Height = 130

[COLOR=#0000cd][B]Usr [/B][/COLOR][COLOR=#ff0000][B]= Nguon.[H2].Value
      [/B][/COLOR][COLOR=#0000cd][B]Pwd [/B][/COLOR][COLOR=#ff0000][B]= Nguon.[H3].Value[/B][/COLOR]

txtUser = Usr
      With txtPassword
            .SetFocus: .SelStart = 0: .SelLength = Len(.Text)
      End With
End Sub

Private Sub UserForm_Initialize()
      Dim hWnd As Long
      On Error Resume Next
      hWnd = FindWindow("ThunderDFrame", Me.Caption)
      SetWindowLong hWnd, -16, &H84080080
      Me.Height = 120

[COLOR=#0000cd][B]Usr [/B][/COLOR][COLOR=#ff0000][B]= Nguon.[H2].Value
      [/B][/COLOR][COLOR=#0000cd][B]Pwd [/B][/COLOR][COLOR=#ff0000][B]= Nguon.[H3].Value[/B][/COLOR]

txtUser.Text = Usr
      txtPassword.SetFocus
End Sub

Thế thì giá trị của User & Password nó nằm trong sheet NGUON cell H2 & H3 chứ còn gì nữa!

Cái sheet mà các bạn nhìn thấy không có Sheet Tab để chọn sheet, thì các bạn vào Tool > Options > View và check vào Sheet Tabs thôi!

Khi đã mở sheet ra và không thấy cái sheet NGUON nào cả thì phải hiểu là nó bị ẩn rồi chứ gì! Vậy phải cho nó hiện lên chứ còn gì nữa!

Vào VBA chọn vào tên sheet Nguon và chọn thuộc tính (Properties) của sheet Visible là -1 – xlSheetVisible để cho nó hiện lên!

Bây giờ các bạn chỉ còn việc tìm cột H của nó nằm ở đâu mà lấy cái gì đó mà các bạn cần tìm thôi. Chẳng lẽ tới đây mà các bạn cũng không làm được thì thôi, các bạn đừng chơi cái này nữa!

Tôi làm khó các bạn (chỉ tí xíu thôi) để các bạn tự mày mò, nghiên cứu thêm, vận dụng kiến thức của các bạn sẳn có để thao tác trên file này, thế mà …

anh Nghĩa ơi. em đã xem Form đăng nhập của anh và thấy rất thích nên định mượn File của anh để thiết kế lại thành file của mình mà có Form login cho hoành tráng.
Nhưng khổ nổi File thiết kê của em lại dùng cho nhiều người nên mỗi người cần 1 user và pass riêng của mình để vào file.
Xin anh hướng dẫn em đoạn code cho form login nhiều user và pass với ạ
anh cảm ơn anh rất nhiều

Nếu mà 1 file mà ai cũng có thể thao tác toàn bộ, thì cho luôn người ta 1 user, 1 pass luôn cho rồi. Còn nếu phân vùng thì mới có thể cho theo từng cấp độ.

Nhưng chỉ là giải trí và trình bày cho hoành tráng thôi chứ nó bảo mật chẳng hiệu quả đâu bạn ơi!

Mỗi người một sheet anh ạ. em cũng đã biết đặt pass cho từng sheet rồi nhưng muốn khi đăng nhập thì vào thẳng sheet của người dùng tên đăng nhập đó luôn anh ạ. anh làm cái demo cho em và các thành viên có cùng mối quan tâm như em tham khảo với
Cảm ơn anh vì đã hồi âm

Đây là file "Demo" cho bạn dùng thử chơi cho vui nè! Mọi password đều là HoangTrongNghia.

Trong file tôi có 4 người được dùng, với Admin là cao nhất, sử dụng được mọi thứ, kể cả reset lại tất cả user & pass (thủ công, nếu muốn tự động, tự các bạn mày mò đi nhé, không khó); và 3 User, chỉ được quyền mở sheet của mình.

Các Username / Password:

1) ADMIN / Admin

2) USER1 / User1

3) USER2 / User2

4) USER3 / User3

Các bạn cứ lần lượt mở file rồi chọn thử từng Username xem sao (mở và đóng 4 lần), nên chọn lần cuối là Admin cho thú vị!

Click vào Box Username để xổ ra danh sách Users nha các bạn

2377

File đã được cập nhật mới, sửa lỗi đăng nhập, các bạn nên tải file AdminAndUsers2.rar nhé!