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
Em đang dùng file này của anh, tại các User con em chèn thêm sheet cho nó, nhưng khi save và thoát rồi vào lại không còn sheet vừa chèn nữa. em có cài link dẫn tới nhưng nháp vào cũng không có tác dụng. nhưng em tiếp tục inset sheet thi no ra sheet mang số thứ tự tiếp theo, nghĩa là sheet luc nãy vần tồn tại. giờ làm sao để giải quyết việc này anh chỉ em với.
Và đây nữa, nó là sheet để tạo tất cả các nút lệnh hồng và cam của user đây:
chào các bạn, khi làm form đăng nhập, nếu macro ỡ trạng thái disable thì không cần pass vẫn vào file được. vậy có vba code khi chạy form của mình tự động enable macro lên để bắt nhập mật khẩu hoặc có cách làm form đăng nhập không cần enable macro không, xin hướng dẫn. cảm ơn các bạn.
chào các bạn, khi làm form đăng nhập, nếu macro ỡ trạng thái disable thì không cần pass vẫn vào file được. vậy có vba code khi chạy form của mình tự động enable macro lên để bắt nhập mật khẩu hoặc có cách làm form đăng nhập không cần enable macro không, xin hướng dẫn. cảm ơn các bạn.
Các anh cho em hỏi. Em tạo cái Form đăng nhập Excel bằng MS EXCEL 2010 thì OK. Nhưng khi mở bằng phiên bản MS Excel 2007 thì nó không hiện lên màn hình đăng nhập là sao vậy ạ?
rất cảm ơn bạn nhưng ban ơi sao trên một số máy tính khi mở tệp tin lên lại không hiển thị form đăng nhập nữa, nó vào trực tiếp luôn, tức là không cần đăng nhập, phải làm sao đây bạn? Giải đáp giúp mình với! cảm ơn bạn nhiều!
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:
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:
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é!
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:
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:
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é!
anh ơi có cách nào giúp em với. Em dùng file của anh để sửa thành file của em rồi (Có nghĩa là em tận dụng Form đăng nhập của anh); em đã thay đổi mật khẩu nhưng bây giờ quên nên không sao mở được ra nữa. Anh giúp em với. Em cảm ơn rất nhiều.
Bài đã được tự động gộp:
anh ơi có cách nào giúp em với. Em dùng file của anh để sửa thành file của em rồi (Có nghĩa là em tận dụng Form đăng nhập của anh); em đã thay đổi mật khẩu nhưng bây giờ quên nên không sao mở được ra nữa. Anh giúp em với. Em cảm ơn rất nhiều.
Bạn cho mình hỏi tý
Code trong vba để khi đăng nhập không cho hiển thị workbook mà chỉ cho hiển thị form đăng nhập là gì vậy HoangTrongNghia?
Thanks nhé!
Bạn cho mình hỏi tý
Code trong vba để khi đăng nhập không cho hiển thị workbook mà chỉ cho hiển thị form đăng nhập là gì vậy HoangTrongNghia?
Cảm ơn nhé!
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à ...
té ra em củng thông minh tạo không hiểu Pwd = Nguon.[H3].Value là gì đoán đoán chắc là = nguon.range("H3").value nên viết cái sub Debug.print nguon.range("H3").value là ra pass. thank anh nghĩa nhé, cái uf này em đang cần
Các anh cho em hỏi. tạo được một file có phân quyền đăng nhập rồi. mỗi người một Use, nhưng làm thế nào để nhiều người có thể truy cập trên cùng file đó. Sửa lưu giữ liệu.
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:
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:
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é!
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:
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:
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é!
bạn giúp mình với được k ạ ?
