Tạo form đăng nhập trong Excel

[truongminhthi999]

Chào các bạn! Mình có làm một bài Excel tạo form đăng nhập nhưng mình chưa tạo được form thay đổi thông tin đăng nhập khi đăng nhập đúng. Do đó, khi muốn thay đổi phải mở Vba lên để mà thay đổi trong đó. Rất là phiền phức. Bạn nào biết thì chỉ dùm nhe. Tải file đính kèm xem thử nhe!
Xin cám ơn.
Liên lạc với mình qua truongminhthi999@gmail.com

 

[phucbugis]

Đã xử lý được trường hợp size của form login để có thể bao phủ toàn màn hình (trên nhiều Desktop)
Nếu dựa vào activewindow -> ko chính xác.
Có thể dùng sub sau:

Declare Function GetSystemMetrics32 Lib "user32" _
Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long


Sub DisplayMonitorInfo()
'size of Screen Resolution
Dim w As Long, h As Long
w = GetSystemMetrics32(0) ' width in points
h = GetSystemMetrics32(1) ' height in points

Range("monitorsize_w") = w
Range("monitorsize_h") = h
End Sub

Sau khi kích hoạt Macro thì Call DisplayMonitorInfor trước khi login.show


Private Sub UserForm_Initialize() se~ co' dạng
login.height =Range("monitorsize_h")
login.width =Range("monitorsize_w")

Enjoy !

 

[Hoàng Trọng Nghĩa]

Đã xử lý được trường hợp size của form login để có thể bao phủ toàn màn hình (trên nhiều Desktop)
Nếu dựa vào activewindow -> ko chính xác.
Có thể dùng sub sau:

Declare Function GetSystemMetrics32 Lib "user32" _
Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long


Sub DisplayMonitorInfo()
'size of Screen Resolution
Dim w As Long, h As Long
w = GetSystemMetrics32(0) ' width in points
h = GetSystemMetrics32(1) ' height in points

Range("monitorsize_w") = w
Range("monitorsize_h") = h
End Sub

Sau khi kích hoạt Macro thì Call DisplayMonitorInfor trước khi login.show


Private Sub UserForm_Initialize() se~ co' dạng
login.height =Range("monitorsize_h")
login.width =Range("monitorsize_w")

Enjoy !

Nếu mà để Form Zoom toàn màn hình mà làm như thế thì ẹ quá đi! Dưới đây là code trong Form để zoom toàn màn hình:

[GPECODE=vb]Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private hwnd As Long


Private Sub UserForm_Activate()
SetWindowLong hwnd, -16, &H84080080
ShowWindow hwnd, 3
End Sub


Private Sub UserForm_Initialize()
hwnd = FindWindow("ThunderDFrame", Me.Caption)
End Sub


[/GPECODE]

 

[phucbugis]

có code nào cài đặt Size của Shape phủ toàn màn hình (trong workbook) dùng cho nhiều máy tính ko?

Thanks !

 

[Hoàng Trọng Nghĩa]

có code nào cài đặt Size của Shape phủ toàn màn hình (trong workbook) dùng cho nhiều máy tính ko?

Thanks !

Xin thưa là KHÔNG! Bởi SHAPE là "tập con" của SHEET nên "con" không thể lớn hơn "mẹ" được! Shape chỉ được chứa trong Sheet mà thôi.

 

[ndu96081631]

có code nào cài đặt Size của Shape phủ toàn màn hình (trong workbook) dùng cho nhiều máy tính ko?

Thanks !

Công nhận là bạn "quá" quan tâm đến vụ màu mè thiệt đó
Giao diện đẹp khiến người ta thích ứng dụng, cũng đúng! Nhưng liệu có nên cân nhắc xem có phải ta đã quá chăm chút giao diện đến mức code cho phần màu mè chiếm phần lớn toàn bộ file còn code làm nhiệm vụ chính thì chẳng có bao nhiêu (xem các file của bạn tôi thấy rõ điều bất hợp lý này)
Quan điểm của tôi: 20% code dành cho giao diện là quá đủ. Đàng nào thì cái "tâm hồn" mới là thứ quan trọng. Một ứng đẹp, bóng bẩy nhưng lại chả làm nên được tích sự gì thì cũng là ứng dụng "vô dụng" thôi
----------------------
Cũng chỉ là quan điểm cá nhân, mong bạn đừng để bụng

 

[nescafe]

username: admin
password: admin

Sau khi đăng nhập dùng ESC để show Ribbon.

Có thể thay đổi background của form:
View attachment 110275

phucbugis đã có phiên bản mới chưa bạn? File này cũng hay đó.

 

[ndu96081631]

Xin thưa là KHÔNG! Bởi SHAPE là "tập con" của SHEET nên "con" không thể lớn hơn "mẹ" được! Shape chỉ được chứa trong Sheet mà thôi.

Tự vẽ Shape bằng API chắc không có vấn đề: Muốn TO bao nhiêu thì TO bấy nhiêu
Ẹc...Ẹc...

 

[Hoàng Trọng Nghĩa]

Tự vẽ Shape bằng API chắc không có vấn đề: Muốn TO bao nhiêu thì TO bấy nhiêu
Ẹc...Ẹc...

Mà để làm gì với nó nhỉ? Còn cách vẽ thì em tịt ngòi thưa Thầy! Thầy làm luôn một file đi!

 

[ndu96081631]

Mà để làm gì với nó nhỉ? Còn cách vẽ thì em tịt ngòi thưa Thầy! Thầy làm luôn một file đi!

Lúc trước tôi có làm 1 bài về vẽ shape trên Form (xem file)
trong file là vẽ Ellipse, giờ vẽ hình vuông thì dùng hàm Rectangle (cũng tương tự thôi)
-----------
Các bạn cứ tự nghiên cứu rồi áp dụng (tôi cũng không mấy hứng thứ về vấn đề này cho dù có biết)

 

[Hoàng Trọng Nghĩa]

Lúc trước tôi có làm 1 bài về vẽ shape trên Form (xem file)
trong file là vẽ Ellipse, giờ vẽ hình vuông thì dùng hàm Rectangle (cũng tương tự thôi)
-----------
Các bạn cứ tự nghiên cứu rồi áp dụng (tôi cũng không mấy hứng thứ về vấn đề này cho dù có biết)

Wow, cái file này Thầy đã làm lâu lắm rồi thì phải! Em nhớ hồi đó em còn "chọt chọt" vô cái topic đó nữa! Giờ nó vẫn còn tính thời sự hen!

 

[phucbugis]

Thanks a !
nhưng ý e ko phải vậy. Chắc anh còn lưu file của e ở bài
Có hàm nào để rút gọn công thức file Lương tháng của e ko?


File đó có 1 image phía sau. Khi dùng trên nhiều máy thì phải cài đặt lại size của nó.
Vậy có cách nào chỉ cần setup 1 lần ko?

 

[namkpac]

Công nhận là bạn "quá" quan tâm đến vụ màu mè thiệt đó
Giao diện đẹp khiến người ta thích ứng dụng, cũng đúng! Nhưng liệu có nên cân nhắc xem có phải ta đã quá chăm chút giao diện đến mức code cho phần màu mè chiếm phần lớn toàn bộ file còn code làm nhiệm vụ chính thì chẳng có bao nhiêu (xem các file của bạn tôi thấy rõ điều bất hợp lý này)
Quan điểm của tôi: 20% code dành cho giao diện là quá đủ. Đàng nào thì cái "tâm hồn" mới là thứ quan trọng. Một ứng đẹp, bóng bẩy nhưng lại chả làm nên được tích sự gì thì cũng là ứng dụng "vô dụng" thôi
----------------------
Cũng chỉ là quan điểm cá nhân, mong bạn đừng để bụng

Nhờ các anh chị giúp em cái pass worksheet với, em làm nhưng không giấu được pass bằng ký tự sao tức là đặt thuộc tính PasswordChar = *

 

[Quang_Hải]

Nhờ các anh chị giúp em cái pass worksheet với, em làm nhưng không giấu được pass bằng ký tự sao tức là đặt thuộc tính PasswordChar = *

1. Code viết sai >> bị lỗi khi code chạy. Cấu trúc With phải đi với Object hoặc range, sao đi với biến được
2. Inputbox không thể chuyển pass thành dấu***

 

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

2. Inputbox không thể chuyển pass thành dấu***

Có thể đó anh Chuyển ký tự sang dạng "*"

 

[Quang_Hải]

Có thể đó anh Chuyển ký tự sang dạng "*"

Với trình độ VBA căn bản thì làm sao có thể chuyển sang *** được, có làm được code cũng sẽ phức tạp lắm.

 

[phucbugis]

Nhờ các anh chị giúp em cái pass worksheet với, em làm nhưng không giấu được pass bằng ký tự sao tức là đặt thuộc tính PasswordChar = *

Sao bạn ko lập 1 userform để xử lý dễ hơn.
Thich dấu * hay . cũng có.

 

[Cá ngừ F1]

Nhu cầu của e chưa cần 1 form đăng nhập mà e cần khi mở file ra thì 1 form gồm các nút như:
- nhập thông tin khách hàng mới: kích vào thì đến bản ghi cuối cùng của sheet khách hàng
- sửa thông tin: chọn số chứng minh thư khi click vào thì đến bản ghi có số cmt đó
- xem báo cáo: dẫn đến sheet báo cáo
...
Mong các thành viên hỗ trợ,có ví dụ bằng hình ảnh thì quá tốt ạh

 

[phucbugis]

Nhu cầu của e chưa cần 1 form đăng nhập mà e cần khi mở file ra thì 1 form gồm các nút như:
- nhập thông tin khách hàng mới: kích vào thì đến bản ghi cuối cùng của sheet khách hàng
- sửa thông tin: chọn số chứng minh thư khi click vào thì đến bản ghi có số cmt đó
- xem báo cáo: dẫn đến sheet báo cáo
...
Mong các thành viên hỗ trợ,có ví dụ bằng hình ảnh thì quá tốt ạh

Nếu thiết kế trên userform để liên kết các sheet thi` ko mạnh bằng thiết kế trực tiếp trên sheet.
Khi update số liệu vào sheet (khách hàng ...) nên đưa nó lên trên cùng thay vì cho nằm bên dưới.

 

[Cá ngừ F1]

Nếu thiết kế trên userform để liên kết các sheet thi` ko mạnh bằng thiết kế trực tiếp trên sheet.
Khi update số liệu vào sheet (khách hàng ...) nên đưa nó lên trên cùng thay vì cho nằm bên dưới.

Bạn có thể chia sẻ chút kinh nghiệm thiết kế trực tiếp trên sheet ?

 

[phucbugis]

Bạn có thể chia sẻ chút kinh nghiệm thiết kế trực tiếp trên sheet ?

OK de minh share file, bao gom` tat ca cac form. Bao dam ko che vao dau.
Toan bo menu se~ duoc dep di het.
Cho` minh xoa bot so lieu da~.