Phân quyền user truy cập (1 người xem)

[sangvanng92]

Chào mọi người..

Mình có viết 1 file phân quyền user truy cập từng sheet.Khi chạy file này 1 mình thì không có lỗi gì hết, Nhưng nếu trước đó có mở 1 file excel khác thì khi ở file lên thì nó báo lỗi như bên dưới:

Không biết có phải do đoạn code bên dưới sai k ? pro nào biết sai chỗ nào sửa giúp mình với ạ!


Private Sub Workbook_Open()

Application.Visible = False
Bang_login.Show

End Sub

 

[thuytrangbp28]

File của bạn chứa mật khẩu, có mở được đâu

 

[ongke0711]

Bạn gõ admin - pass: 1 là vô nhé
Còn nguyên nhân lỗi thì chưa biết.

 

[sangvanng92]

Nếu chỉ mở duy nhất 1 file này thì ok không có lỗi... ý mình là nếu có đang mở 1 file excel nào đó --> rồi mở file này thì báo lỗi á... mật khẩu nhập thì vẫn đúng

 

[yaaasoo01]

Nếu chỉ mở duy nhất 1 file này thì ok không có lỗi... ý mình là nếu có đang mở 1 file excel nào đó --> rồi mở file này thì báo lỗi á... mật khẩu nhập thì vẫn đúng

Tại Sub cap_quyen(), bạn ref đến ThisWorkbook trước VD: ThisWorkbook.Sheets(TS) xem có được không.
Vì bạn đang trỏ đến Sheet bằng tên nên mình nghĩ nó đang lấy ở Active WB

 

[giaiphap]

Chào mọi người..

Mình có viết 1 file phân quyền user truy cập từng sheet.Khi chạy file này 1 mình thì không có lỗi gì hết, Nhưng nếu trước đó có mở 1 file excel khác thì khi ở file lên thì nó báo lỗi như bên dưới:

Không biết có phải do đoạn code bên dưới sai k ? pro nào biết sai chỗ nào sửa giúp mình với ạ!


Private Sub Workbook_Open()

Application.Visible = False
Bang_login.Show

End Sub
View attachment 307185

Trong Sub cap_quyen() bạn sửa tất cả lệnh

Sheets(TS)

thành

ThisWorkbook.Sheets(TS)

 

[sangvanng92]

Mình đã sửa code theo cách bạn chỉ, code chạy không báo lỗi nửa nhưng phát sinh vấn đề khác là nó không tự trỏ tới file mình cần mở mà trỏ tới file mình mở trước đó , nhìn file nó không chuyên nghiệp .
Giúp thêm chén nửa nha pro !

 

[VetMini]

... nhìn file nó không chuyên nghiệp .
Giúp thêm chén nửa nha pro !

Muốn chiên nghịp mà có chút xíu cũng không tự làm được.
Cái này là phết pơ rô nhé.

 

[sangvanng92]

Muốn chiên nghịp mà có chút xíu cũng không tự làm được.
Cái này là phết pơ rô nhé.

Nếu bạn biết cách thì chỉ giúp với ! Thanks nhiều

 

[Hoàng Tuấn 868]

Đừng chêm tiếng Tây bồi thì may ra có người hỗ trợ.