Xin giúp đỡ vấn đề phân quyền trong file excel (1 người xem)

[vietngoc1985]

Xin chào các anh chị trên diễn dàn.

Mình đang tự mày mò VBA trên excel, thú thật là mình không có 1 căn bản nào về VBA cả.
Mình đang viết 1 file VBA để quản lý lượng nhập xuất hàng trong kho.
Mình xin gửi file để mọi người giúp đỡ vấn đề mình cần tìm hiểu.

File của mình đòi hỏi máy phải cài đặt Mscal .
HIện có 2 user:
1. User: admin
Pass: agitex01
2. User: user1
Pass: user1

Pass VBA: SEV123

Hiện tại 2 user quyền là như nhau.
File của mình có 5 sheet, trong đó có 2 sheet nhập liệu là DATA, IVENTORY.
Các sheets còn lại đều là chạy báo cáo, không quan trọng.
Quan trọng là 2 sheet nhập liệu. Hiện có thể nhập bằng tay hoặc bằng user form (DATA IN, DATA OUT, IVENTORY..)

Cuối cùng vấn đề mình muốn là phân quyền cho 2 User.
- User Admin thì có thể nhập và sửa dữ liệu trên 2 sheet Data và Iventory.
- User1: thì chỉ có thể nhập liệu bằng User form trên 2 sheet này và không được sửa xoá những gì đã nhập.

Mình có 2 hướng nhưng ko đủ năng lực:
- Hướng 1 là user1 : không hiện sheet Data và Iventory. Tuy nhiên khi mình làm vậy thì bị lỗi ở các lệnh Sheets. select.
- Hướng 2 là khoá các ô có chứa dữ liệu, nhập đến đâu khoá đến đó. Tuy nhiên mình vướng lỗi Activecells.offset.
Mong các anh chị ra tay giúp đỡ về hướng thiết lập và cách thiết lập.
Nếu có thiếu sót gì , xin các anh chị cứ reply , mình sẽ bổ sung.
Vngoc

Em còn 1 vấn đề khác

Trong user form Data In,

Private Sub COLOUR_Change()

IMAGEVALUE.Value = STYLEIN.Value & COLOUR.Value
anh = IMAGEVALUE.Value & ".jpg"
picpath = ThisWorkbook.Path & "\AGITEX\" & anh

IMAGE.Picture = LoadPicture(picpath)

End Sub

Cái mình cần là load ảnh vào userform. Đoạn code trên làm việc tốt đối với những file tìm thấy.
Những file không tìm thấy thì báo lỗi. Mình muốn trường hợp không tìm thấy file ảnh thì ẩn cái Image box đi.

Mong các bạn cứu giúp.

 

[leonguyenz]

Excel phân quyền không ổn đâu, bạn vào Box này tham khảo về A-Tools: http://www.giaiphapexcel.com/forum/forumdisplay.php?145-BLUESOFTS-A-Excel-A-Tools

 

[be_09]

Excel phân quyền không ổn đâu, bạn vào Box này tham khảo về A-Tools: http://www.giaiphapexcel.com/forum/forumdisplay.php?145-BLUESOFTS-A-Excel-A-Tools

Trên Excel vẫn làm được bình thường, nếu gõ đúng tên người dùng và Password của người ấy thì mới hiện sheet đó ra và nhập liệu, sửa, xóa của riêng mình, còn không thì ẩn sheet.

Do làm mất cũng khá nhiều thời gian nên anh chưa rảnh giúp được.

 

[vietngoc1985]

Vấn đề 2 em dùng code thế này liệu có vấn đề gì không ?

Private Sub COLOUR_Change()

IMAGEVALUE.Value = STYLEIN.Value & COLOUR.Value
anh = IMAGEVALUE.Value & ".jpg"
PICPATH = ThisWorkbook.Path & "\AGITEX\" & anh
IMAGE.Visible = False
IMAGEVALUE.Visible = False
If Dir(PICPATH) <> "" Then
IMAGE.Visible = True
IMAGEVALUE.Visible = True
IMAGE.Picture = LoadPicture(PICPATH)

End If
End Sub