Chạy macro bằng username máy tính

[thanhkham]

Kính nhờ các Tiền bối giúp em với. Em có một macro muốn phân quyền cho 1 username máy tính. Nghĩa là khi đăng nhập bằng username máy tính đó thì có thể chạy macro, còn user khác thì không. Hiện Username thì em có thể lấy được nhưng không biết tạo mật khẩu thế nào để tự chạy.
Kính nhờ các tiền bối giúp đỡ cho em 1 file có chứa câu lệnh đó hoặc câu lệnh hoàn chỉnh ạ.
Em mới tập làm nên không rành lắm. Cảm ơn anh chị rất nhiều!

 

[VetMini]

Hỏng chịu đâu. Đang ngồi ở ghế tôn sư, bị giáng xuống làm tiền bối, cuối bài còn lại vỏn vẹn anh chị.

 

[thanhkham]

Hỏng chịu đâu. Đang ngồi ở ghế tôn sư, bị giáng xuống làm tiền bối, cuối bài còn lại vỏn vẹn anh chị.

Hjhj.... tôn sư giúp em đi mà.

 

[anhdepjai]

Sub GetUserName_Environ()
Dim ObjWshNw As Object
Set ObjWshNw = CreateObject("WScript.Network")

MsgBox ObjWshNw.UserName
MsgBox ObjWshNw.ComputerName
MsgBox ObjWshNw.UserDomain
End Sub

 

[befaint]

Sub GetUserName_Environ()

Người ta bí cái chỗ khác cơ mà. Thông tin đó người ta lấy được rồi.

 

[anhdepjai]

Thì
if mydict.exists(ucase(ObjWshNw.UserName))) then "tự chạy"

Còn dict thì mình add từ danh sách đặt trước.

 

[befaint]

Người ta hỏi rõ ràng là 'tạo mật khẩu' cơ mà. Nhưng vấn đề là hổng biết cách thức hoạt động của mật khẩu ra sao.

 

[Maika8008]

... Em có một macro muốn phân quyền cho 1 username máy tính. Nghĩa là khi đăng nhập bằng username máy tính đó thì có thể chạy macro, còn user khác thì không. Hiện Username thì em có thể lấy được nhưng không biết tạo mật khẩu thế nào để tự chạy.

Bạn thớt yêu cầu nghe tối om. Cái cum đậm đậm đó là nghe ổn rồi, tự nhiên thêm cái đoạn sau chẳng ăn nhập gì. Khi đăng nhập Windows bằng cái username đúng nhưi phân quyền thì chạy được macro, còn không đúng thì thôi chứ mật khẩu tự chạy gì ở đây nhỉ?

 

[nhnn1986]

Bạn thử file đính kèm, mình thêm sheet("User") để bạn điền Username được quyền mở file vào đó