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 truongminhthi999@gmail.com
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ỉ?
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:
Mã:
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
Mã:
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à ...
Hình như là thế hệ các thành viên từ năm 2012 trở về sau thường có tính ỷ lại, không bao giờ chịu động não để giải quyết vấn đề thì phải!
Tôi đã ghi quá rõ như sau:
Tại sao không đọc kỹ những gì người ta viết rồi mới hỏi nhỉ?
Có vài dòng thôi đâu có tràn lan đại hải đâu mà làm biếng đọc?
1)
Có nghĩa là không cần gõ vào bất cứ thứ gì hết, chỉ bấm nút Nhập khi mở file
2)
Khóa VBA tức là khóa Macro đó, mở VBA (Alt+F11) chọn vào tên file và gõ password ở trên vào để mở khóa.
3)
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:
Mã:
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
Mã:
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
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!
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
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.
[NOTE1]Các Username / Password:
1) ADMIN / Admin
2) USER1 / User1
3) USER2 / User2
4) USER3 / User3[/NOTE1]
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ị!
[TIP]Click vào Box Username để xổ ra danh sách Users nha các bạn
[/TIP]
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é!
Các bạn ơi giúp mình cái này với minh tạo form đăng nhập được rồi mình change pass lun rồi mà giờ đăng nhập không vô phải làm cách nào ạh xin các bạn chỉ dần giúp với cám ơn các bạn nhiều lắm
@:Thầy Nghiã!
Làm thế nào để Thầy có thể đổi tên Sheet và đổi thứ tự sheets trong cửa sổ vba được vậy? View attachment 99070
Chỉ Em với Thầy ơi..Cảm ơn Thầy!
Các bạn ơi giúp mình cái này với minh tạo form đăng nhập được rồi mình change pass lun rồi mà giờ đăng nhập không vô phải làm cách nào ạh xin các bạn chỉ dần giúp với cám ơn các bạn nhiều lắm
Bạn phải tạo 1 chữ ký bằng cách ký tên và đánh họ tên vào dưới sau đó Scan và sau đó mở Excel lên và vào Format => sheet=> Background chọn file ảnh mà bạn vừa scan và đưa vào (lưu ý, để xóa hình nền bạn cũng lặp lại thao tác tương tự và delete background. Thân chào !
Mọi người giúp tôi tạo form đăng nhập gồm HWID, name và Key bằng VBA excel không ạ? Tôi muốn bảo vệ những dữ liệu của tôi tại cơ quan, vì cơ quan tôi có nhiều người biết vào file của tôi trong khi tôi đã unprotect và đặt pass file.
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!
