Mã VBA cho biểu mẫu người dùng Excel và cấp độ người dùng người dùng!

CHÀO,

Có một bảng tính có các sheet, tên sheet là:

1 cuối cùng_Báo cáo

2 Dữ liệu_entry

Bây giờ tôi muốn có biểu mẫu người dùng với cấp độ người dùng, Quản trị viên và người dùng, như dưới đây:

ID Tên người dùng Mật khẩu Cấp độ người dùng

1 Ahmed 1234 Quản trị viên

2 Người dùng Shah 5555

3 Bản ghi nhớ 2323 Người dùng

Bây giờ tôi chỉ muốn "Ahmed" là quản trị viên, có thể có quyền truy cập vào cả Trang tính, Shah và Mem là Người dùng, chỉ có thể có quyền truy cập vào trang Data_entry.

Bất kỳ ai có thể cung cấp mã vba này?

Cảm ơn trước.

Trả lời:
Xin chào Wahedi

Tôi sẽ cố gắng nói chuyện với bạn về vị trí của mã. Tôi giả sử bạn có thể mở Visual Basic Editor. Sau khi mở Trình chỉnh sửa, bạn sẽ thấy thông tin sau.

Tên và trang tính có thể khác nhau. Tuy nhiên, đoạn mã tiếp theo được đặt bên trong ThisWorkbook.

'Khai báo các biến Global để sử dụng trong chương trình.

Người dùng Dim(3) Là tWBUsers

Dim MyUsrLevel dưới dạng chuỗi

Người dùng ban đầu phụ()

Dim i là số nguyên

Với người dùng(0)

.sUserName = "Ahmed"

.sPassWord = "1234"

.sUserLevel = "Quản trị viên"

Kết thúc bằng

Với người dùng(1)

.sUserName = "Shah"

.sPassWord = "5555"

.sUserLevel = "Người dùng"

Kết thúc bằng

Với người dùng(2)

.sUserName = "Bản ghi nhớ"

.sPassWord = "2323"

.sUserLevel = "Người dùng"

Kết thúc bằng

Với i = 0 Đến 3

Nếu User(i).sUserName = ufrLogIn.txtUsrName thì

Nếu User(i).sPassWord = ufrLogIn.txtPassword thì

MyUsrLevel = Người dùng(i).sUserLevel

Kết thúc nếu

Kết thúc nếu

Tiếp theo tôi

Nếu MyUsrLevel = "Quản trị viên" thì

ThisWorkbook.Worksheets("Sheet2").Visible = xlSheetVisible

Khác

ThisWorkbook.Worksheets("Sheet2").Visible = xlHidden

ThisWorkbook.Worksheets("Sheet1").Visible = xlSheetVisible

Kết thúc nếu

ufrLogIn.Hide

Kết thúc phụ

Sổ làm việc phụ riêng tư_Open()

ThisWorkbook.Worksheets("Sheet1").Visible = xlSheetVisible

ThisWorkbook.Worksheets("Sheet2").Visible = xlHidden

Kết thúc phụ

Phần tiếp theo của mã nằm trong Sheet1 hoặc Data_Entry

Riêng tư cmdLogIn_Click()

Với ufrĐăng nhập

.txtMật khẩu = ""

.txtUsrName = ""

Kết thúc bằng

ufrLogIn.Show

Kết thúc phụ

Phần mã tiếp theo dành cho Mô-đun sẽ phải được tạo. Nhấp chuột phải vào dự án của bạn. Di chuột qua Chèn và chọn Mô-đun.

Điều này sẽ tạo ra Mô-đun 1

Nhập tWBUser

sTên người dùng dưới dạng chuỗi

sPassWord dưới dạng chuỗi

sUserLevel dưới dạng chuỗi

Loại kết thúc

Phần cuối cùng là mã cho biểu mẫu người dùng

Nếu bạn nhấp đúp chuột vào nút Đăng nhập hoặc Nút Hủy, nó sẽ mở cửa sổ phát triển mã để bạn có thể dán vào. Nếu dán mã bên dưới, bạn chỉ phải thực hiện một lần vì mã cho cả hai nút đều ở bên dưới.

cmd phụ riêng tư Hủy_Click()

Với ufrĐăng nhập

.txtMật khẩu = ""

.txtUsrName = ""

.Trốn

Kết thúc bằng

Kết thúc phụ

Riêng tư cmdLogIn_Click()

ThisWorkbook.InitUsers

Kết thúc phụ

Nếu bạn không biết cách tạo Biểu mẫu người dùng, sẽ dễ dàng hơn nếu bạn đăng một liên kết được chia sẻ ở đây để tôi có thể gửi cho bạn tệp của tôi. Với tất cả mã và biểu mẫu người dùng. Sau đó, bạn sẽ có thể có một sổ làm việc có thể được sửa đổi một cách thuận tiện.

Tôi sẽ tiến hành chuyển người dùng và mật khẩu sang trang chỉ dành cho Quản trị viên hoặc chúng ta có thể thêm nó vào trang thứ ba.

Tôi hy vọng điều này sẽ giúp ích.

CDN-Carl