Cách tạo một From nhập Pass khi mở tệp (2 người xem)

[titanic20072007]

Xin chào các bác. Em là thành viên mới có vấn đề mông các bác giúp đỡ.
Em có một tệp Excel muốn khi mở tệp này thì hiện lên một Form để nhập mật khẩu nếu đúng thì hiện lên các Sheet nếu sai thì thông báo và cho nhập lại. Có bác nào biết chỉ em với, em không dành về VB lắm mong các bác chỉ tỉ mỉ. Cảm ơn các bác.

 

[tedaynui]

Xin chào các bác. Em là thành viên mới có vấn đề mông các bác giúp đỡ.
Em có một tệp Excel muốn khi mở tệp này thì hiện lên một Form để nhập mật khẩu nếu đúng thì hiện lên các Sheet nếu sai thì thông báo và cho nhập lại. Có bác nào biết chỉ em với, em không dành về VB lắm mong các bác chỉ tỉ mỉ. Cảm ơn các bác.

Không cần dùng VB, dùng chức năng sẵn có của Excel vẫn bảo đảm hơn. Bạn vào Menu file / chọn Save As... tại hộp thoại Save As, bạn chọn Tools / General Options và nhập PW vào.

TDN

 

[tacdangnguoirung]

Nếu Bạn không muốn làm như Bác tedaynui thì có thể tạo form đơn giản là textbox mà bạn dự định cho người ta nhập pass bạn viết đoạn code như sau:
if textbox = "cái gì đó do bạn chọn" then
me.hide
application.visible = true
else
msgbox = "Bạn nhập sai mật khẩu, mời nhập lại"
chú ý là bạn phải khóa mã code vb và cho form bạn tạo ra xuất hiện cùng workbook nhé (bằng cách gán thuộc tính tênform.show cho sự kiện mở workbook của bạn. Chúc bạn thành công.

 

[thaygiaochogao]

toi chua hieu ro ve "gan thuoc tinh tenform.show cho su kien mo wookbook " xin ban giai thich ky gium .trinh do cua toi con yeu lam

 

[cadafi]

toi chua hieu ro ve "gan thuoc tinh tenform.show cho su kien mo wookbook " xin ban giai thich ky gium

Có nghĩa là bạn vào màn hình VBA (Alt+F11) double click vào ThisWorkBook trong cửa sổ VBA Project.

Bạn gõ vào đoạn code sau:

Sub Worksheet_Open()
frm_Menu.Show   'frm_Menu là tên của một form do người dùng tạo ra.
End Sub

 

[boong]

Bạn nhấn (Alt + F11) vào VBA để xem code của Form và ThisWorkbook. Còn thêm vài cách đặt pass khác đây. Bạn từ từ tham khảo nha! http://www.google.com.vn/search?hl=vi&q=textbox+pass+site:http://www.giaiphapexcel.com&meta= Nói chung bảo mật này chỉ mang tính tạm thời thôi chứ không an toàn lắm đâu! Bạn cũng nên cẩn thận cất File này đi là tốt nhất! Thân.

 

[sealand]

Tôi cũng rất quan tâm vấn đề này. Nhưng Form Login phải mở trước Excel như form flash cơ hoặc ẩn workbook đi chứ chưa nhập login mà workbook đã chình ình ra đấy thì buồn lắm. Tôi có ý tưởng khi thoát Excel thì hide toàn bộ các sheets. Khi mở nhập xong login thì sẽ cho hiện lại các sheets để làm việc. Có được không các bạn.

 

[cadafi]

Tôi có ý tưởng khi thoát Excel thì hide toàn bộ các sheets. Khi mở nhập xong login thì sẽ cho hiện lại các sheets để làm việc. Có được không các bạn.

Được chứ bạn. Nhưng phải chừa lại 1 sheet, gọi là sheet menu chỉ toàn màu trắng thôi (hoặc đen hoặc màu gì , hình gì cũng được).

 

[Po_Pikachu]

Có thể đặt thêm code này vào trong Thisworkbook và code trái vào trong cặp If true là được rồi!. Thisworkbook: Application.Visible = False If true: Application.Visible = True

 

[nguyentrungtien112]

Chào cả nhà mình. Tớ đang làm cái đồ án tốt nghiệp bằng VBA For CAB bạn nào biết chỉ mình với nhé!

 

[tigertiger]

Có nghĩa là bạn vào màn hình VBA (Alt+F11) double click vào ThisWorkBook trong cửa sổ VBA Project.

Bạn gõ vào đoạn code sau:

Sub Worksheet_Open()
frm_Menu.Show   'frm_Menu là tên của một form do người dùng tạo ra.
End Sub

sự kiện Workbook_Open() chứ nhỉ

Private Sub Workbook_Open()

End Sub

Chào cả nhà mình. Tớ đang làm cái đồ án tốt nghiệp bằng VBA For CAB bạn nào biết chỉ mình với nhé!

VBA for CAD chứ,

bạn vào menu THƯ VIỆN

hoặc

là menu TÌM KIẾM để search theo từ khóa - có nhỉu bài đề cập rùi bạn ah,

 

[anhphuong]

sự kiện Workbook_Open() chứ nhỉ

Private Sub Workbook_Open()
 
End Sub

Chính xác là như vậy và muốn Workbook ẩn đi khi mở thì thêm câu lệnh sau vào trước câu lệnh mở form :

Private Sub Workbook_Open()
       Application.Visible = False
       Login.Show     'Login là tên fỏm cần mở
End Sub