Không cập nhật được dữ liệu trên sheet ẩn (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

dungnvps

Thành viên chính thức
Tham gia
8/7/16
Bài viết
77
Được thích
6
Chào mọi người, mình có một form đăng nhập khi nhập đúng thông tin user và pass thì button change pass xuất hiện
mình có vấn đề là do sheet chứa thông tin user và pass bị ẩn nên ko cập nhật đc pass mới, mong mọi người xem qua giúp đỡ mình
Pass của user là 123
Pass protect là admin
 

File đính kèm

Chào mọi người, mình có một form đăng nhập khi nhập đúng thông tin user và pass thì button change pass xuất hiện
mình có vấn đề là do sheet chứa thông tin user và pass bị ẩn nên ko cập nhật đc pass mới, mong mọi người xem qua giúp đỡ mình
Pass của user là 123
Pass protect là admin
Vấn đề không phải là sheet ẩn mà sheet chứa pass. Nguyên lý để thực hiện trên sheet có pass là sử dụng code TehSheet.Unprotect "matkhaucu" đặt ở đầu thủ tục, sau đó bạn gì thì tùy.
 
Upvote 0
Tks bạn, để mình thử mới tập tành vba nên còn nhiều cái ko biết
 
Upvote 0
Vấn đề không phải là sheet ẩn mà sheet chứa pass. Nguyên lý để thực hiện trên sheet có pass là sử dụng code TehSheet.Unprotect "matkhaucu" đặt ở đầu thủ tục, sau đó bạn gì thì tùy.
Mình thêm đoạn code như bạn nói nhưng ko đc, bạn có thể xem qua đc ko!

Private Sub Workbook_Open()
Application.Visible = True
ThisWorkbook.Unprotect (20213)
Sheets("Sheet1").Unprotect (20213)
Sheets("Sheet1").Visible = -1
Application.Visible = False
FrmLogin.Show
End Sub
 
Upvote 0
Mình thêm đoạn code như bạn nói nhưng ko đc, bạn có thể xem qua đc ko!

Private Sub Workbook_Open()
Application.Visible = True
ThisWorkbook.Unprotect (20213)
Sheets("Sheet1").Unprotect (20213)
Sheets("Sheet1").Visible = -1
Application.Visible = False
FrmLogin.Show
End Sub
Bạn thay ThisWorkbook.Unprotect (20213) thành ThisWorkbook.Unprotect "20213"
và Sheets("Sheet1").Unprotect (20213) thành Sheets("Sheet1").Unprotect "20213"
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom