Cần phân quyền sử dụng sheet (1 người xem)

[hunglao]

Bạn chỉ cần bỏ đoạn Application.Visible = False đi khi mở form là xong.
Code như sau:

Private Sub UserForm_Initialize()
'Application.Visible = False
Call dong
txtUser.Text = GetUserName()
txtComputerName.Text = ComputerName()
If txtUser.Text = "dinh.hung" Then        
[I][COLOR="Lime"]' May cua em là dinh.hung[/COLOR][/I]
Call mo
End If
Sheet7.Activate
[B][U][COLOR="Red"]Unload Me[/COLOR][/U][/B]

End Sub

1.Code này khi em add vào thì cửa sổ đã hiện ra
nhưng khi không để chữ UNload me thì nó vẫn phải đăng nhập mặc dù em đã add "dinh.hung" vào. Còn nếu em để Unload Me thì nó báo lỗi

em có gửi file đính kèm em đã hiêuh chỉnh
a xem lại giùm e với a
2. Nếu muốn tắt mở chức năng đăng nhập này này có cách gì không a, hay là phải xóa code
thank a

 

[hunglao]

sao ko ai giúp mình nữa vậy

 

[hunglao]

helpme please............

 

[Hai Lúa Miền Tây]

Bạn tham khảo file nhé, nếu như username là "dinh.hung" thì khi đăng nhập, nút OK hiện ra trên form đăng nhập, bạn click vào đó hoặc nhấn enter để đăng nhập, quyền đăng nhập là admin, không cần phải chọn username và pass.
Ngược lại username không phải là "dinh.hung" thì nút OK không hiện, do đó người ta phải chọn username và gõ pass vào mới đăng nhập.
Nếu bạn muốn khi khởi động form không hiện thì bạn vào cửa sổ VBA tìm và double click vào "ThisWorkbook" ở Workbook_Open() bạn xóa bỏ dòng "Call moform" đi là xong.

P/S: Lần sau bạn nhớ đừng hối như thế nhé, không phải là không ai giúp bạn mà có thể là do người ta chưa có thời gian, hoặc chưa nghĩ ra hướng giải quyết và còn nhiều nguyên nhân khác nữa ....

 

[hunglao]

thank a, e làm dc rồi

 

[tangk]

Chàodomfootwear
Mình đang loay hoay với việc này thì may quá đọc được bài và file của bạn.
Cho mình hỏi nếu mình muốn thêm số sheet và số người dùng thì làm thế nào? Mình cần khoảng 20 người dùng,
Cám ơn bạn nhiều.
Tang

 

[MrTeCong]

Câu 1 : Giải quyết theo ý bạn là bạn gọi macro "dong" vào thủ tục khi mở workbook và trước khi đóng workbook và thêm đoạn code tự động lưu lại khi thoát.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call dong
 If Me.Saved = False Then Me.Save
End Sub
Private Sub Workbook_Open()
Call dong
Call moform
End Sub

Câu 2 : Bạn vào sheet8("Username") để chỉnh thông tin người đăng nhập, Bạn lưu ý là đăng nhập với quyền "Admin" thì mới thấy sheet này.

Câu 3 : Bạn vào cửa sổ VBA chọn Userform1 thì thấy textbox này, mình đã dđặt thuộc tính cho nó khi mở form không hiển thị nân bạn không thấy textbox này khi mở form.
Cho mình hỏi thêm là bạn muốn so sánh UserName của máy hay là tên máy ? Nếu là tên máy là nó phải khác đó nhé.
Tôi gợi ý cho bạn nhé:
- Lấy txtUser làm điều kiện, nếu như khi mở form lên nó chứa text là "HUngkt,vukt" hay là gì gì đó... thì bạn gọi macro "mo" và thoát form.

Lưu Ý : Pass cho "Nguyễn Văn 1" quyền Admin là số 1

Cho mình xin phép làm phiên chút !
Như cái này mà mình muốn phân quyền theo tên máy tính của người sử dụng + acc đăng nhập (tức là file này nếu copy qua máy khác sẽ không sử dụng được) thì có được không ?

 

[Hong.Van]

Cho mình xin phép làm phiên chút !
Như cái này mà mình muốn phân quyền theo tên máy tính của người sử dụng + acc đăng nhập (tức là file này nếu copy qua máy khác sẽ không sử dụng được) thì có được không ?

Bạn tham khảo
http://www.giaiphapexcel.com/forum/...-hoặc-B-nhưng-không-cho-chạy-ở-Máy-tính-khác!

 

[noel08]

Thanks bạn về bài hướng dẫn này, tuy nhiên muốn hiện lại cửa sổ form đăng nhập thì làm thế nào?

 

[saobekhonglac]

Dear all.

ACE giúp mình file này với, mình tải file về và muốn thêm người sử dụng nhưng file bị lỗi, ACE nào giúp mình với.

Thanks all

Bạn tham khảo thử file đính kèm nhé.

 

[phuyen89]

Dear all.

ACE giúp mình file này với, mình tải file về và muốn thêm người sử dụng nhưng file bị lỗi, ACE nào giúp mình với.

Thanks all

Bạn nhấn Ctrl+F3, sẽ thấy 1 cái Name, bây giờ bạn chỉnh lại vùng tham chiếu cho nó bao hết dữ liệu của bạn.
Dữ liệu trong cái Name này sẽ được đưa vào Combobox.
Sau đó bạn vào module Add thêm thuộc tính Visible thành xlSheetVisible và xlSheetVeryHidden, lần lượt tại 2 Sub Mo, và Đóng là File có thêm thêm bao nhiêu người tùy bạn,

 

[saobekhonglac]

Dear bạn.

Mình đã làm như bạn hướng đãn nhưng vào user thì bị lỗi, vào addmin thì mới ok, bạn xem lại giúp mình.

Thanks.

Bạn nhấn Ctrl+F3, sẽ thấy 1 cái Name, bây giờ bạn chỉnh lại vùng tham chiếu cho nó bao hết dữ liệu của bạn.
Dữ liệu trong cái Name này sẽ được đưa vào Combobox.
Sau đó bạn vào module Add thêm thuộc tính Visible thành xlSheetVisible và xlSheetVeryHidden, lần lượt tại 2 Sub Mo, và Đóng là File có thêm thêm bao nhiêu người tùy bạn,

 

[MrTeCong]

Làm ơn cho hỏi cách làm đăng nhập có điều kiện cho CommandButton.
Mình có làm 1 bảng đăng nhập chia quyền theo sheet !
Sau khi đăng nhập sẽ có UserForm hiện ra - Trên đó mình làm các nút CommandButton dẫn liên kết đến các sheet !

Private Sub NhapDuLieu_Click() 'Range("Index!item").Value =
Sheets("NhapDuLieu").Select
Range("B1").Select
Unload Me
End Sub

Qua đó mình thấy:
Nếu sheet đã được mở (như quyền admin hoặc nhóm được chia quyền coi) thì được dẫn đến sheet đó luôn
Nhưng nếu không có quyền coi sheet đó thì lại bị báo lỗi !
Vậy giờ mình muốn:
- không báo lỗi
- hiện thị thông báo cho người dùng biết không có quyền truy cập và trở về menu bình thường

* Xin phép hỏi thêm điều này :
Có thể làm CommandButton thỏa điều kiện lúc đăng nhập được chia quyền mới thấy CommandButton đó được không ?
Mình chia làm 4 nhóm : Admin, Nhóm 1; Nhóm 2; Nhóm 3

Xin các bác chỉ bảo và giúp đỡ

 

[phuyen89]

Làm ơn cho hỏi cách làm đăng nhập có điều kiện cho CommandButton.
Mình có làm 1 bảng đăng nhập chia quyền theo sheet !
Sau khi đăng nhập sẽ có UserForm hiện ra - Trên đó mình làm các nút CommandButton dẫn liên kết đến các sheet !

Qua đó mình thấy:
Nếu sheet đã được mở (như quyền admin hoặc nhóm được chia quyền coi) thì được dẫn đến sheet đó luôn
Nhưng nếu không có quyền coi sheet đó thì lại bị báo lỗi !
Vậy giờ mình muốn:
- không báo lỗi
- hiện thị thông báo cho người dùng biết không có quyền truy cập và trở về menu bình thường

* Xin phép hỏi thêm điều này :
Có thể làm CommandButton thỏa điều kiện lúc đăng nhập được chia quyền mới thấy CommandButton đó được không ?
Mình chia làm 4 nhóm : Admin, Nhóm 1; Nhóm 2; Nhóm 3

Xin các bác chỉ bảo và giúp đỡ

Command Button nó có thuộc tính là Enable cho 2 giá trị là True or False.
Bạn có thể thiết lập Quền Hiện hoặc làm mờ nút lệnh này,

 

[MrTeCong]

Command Button nó có thuộc tính là Enable cho 2 giá trị là True or False.
Bạn có thể thiết lập Quền Hiện hoặc làm mờ nút lệnh này,

Thanks bạn ! Nhưng như thế nút nó ẩn luôn rồi ! ngay cả quyền admin cũng ko dùng được !
Ý mình là như thế này :
Với quyền đăng nhập Nhóm 1 được thấy 2 sheet - thì sẽ dùng (hoặc thấy 2 Command Button trên Form dẫn đến 2 sheet đó)
Với quyền đăng nhập Nhóm 3 được thấy 1 sheet - thì sẽ dùng (hoặc thấy 1 Command Button trên Form dẫn đến sheet được dùng đó)
cũng có thể bạn nói đúng ý nhưng mình chưa rõ đã thử như bạn nói nhưng nó ẩn hết với mọi đối tượng ... mong chỉ bảo

 

[MrTeCong]

......................................................................................................

 

[Đình Phán]

Bạn tham khảo thử file đính kèm nhé.

Anh Hai Lúa có file nào cho phiên bản 32 bit không? Em tải file về máy mà không mở được do yêu cầu update lên bản 64 bit.

Em cảm ơn!

 

[saobekhonglac]

Có ACE nào giúp mình vơi, mình đang cần để gửi file cho mọi người, nếu gửi từng file thì rất mất thời gian vì có trên 50 ngươif

Dear bạn.

Mình đã làm như bạn hướng đãn nhưng vào user thì bị lỗi, vào addmin thì mới ok, bạn xem lại giúp mình.

Thanks.

 

[saobekhonglac]

Có ai giúp mình với, Mình làm mãi nhưng vẫn không được, quyền admin thì ok, còn quyền của user thì không được.

 

[duclủongx]

Xin giúp đỡ: Do điều kiện làm việc nhóm nên có nhiều người sử dụng cùng 1 file excel, tuy nhiên trừ Admin ra thì 1 người chỉ được phép nhập số liệu trên 1 vùng hoặc 1 số vùng nhất định trên 1 sheet hoặc 1 số sheet nhất định. Như vậy Admin sẽ phân quyền trên 1 sheet, sau đó người dùng đăng nhập đúng usename và pass sẽ được quyền nhập liệu tại vùng đã được phân quyền còn không sẽ thoát khỏi Excel. Cảm ơn cả nhà!