Hướng dẫn cách làm ẩn và hiện Sheet

[yome]

Chào các bạn! Mình muốn ẩn Sheet cần thiết và chỉ khi nào đăng nhập thành công mới cho phép hiện ra các Sheet đó (file gửi kèm). Nhờ các bạn hướng dẫn mình với! Mình đang cần thiết kế mẫu như vậy đó! Thanks

 

[Po_Pikachu]

Sao bác không tạo 1 UserForm ấy!. Mà lại tạo form Text box này. Nó đâu có dùng được đâu... Đây là code dùng cho việc ẩn và hiện 1 sheet nào đó. Bác có thể viết vô trong form luôn và gáng cho nút lệnh nào đó là được.

Sub an() Sheet1.Visible = 2 End Sub

 Sub hien() Sheet1.Visible = -1 End Sub

Hoặc bác tạo 1 UserForm đi. Rồi tạo 1 nút lệnh nhấp đúp vào nút lệnh đó. rồi chép đoạn code dưới vào.

 Private Sub CommandButton1_Click() If Texbox1 = "Yome" and Textbox2 = "password123" Then Sheet2.Visible = -1 Sheet3.Visible = -1 Else Application.DisplayAlerts = False Application.Quit End If End Sub

À còn quên code này đặt trong ThisWorkbook. Sorry nha!

Private Sub Workbook_BeforeClose(Cancel As Boolean) Sheet2.Visible = 2 Sheet3.Visible = 2 End Sub

 

[dieptrucgiang]

Bạn Yome thân,
Mình không hiểu câu hỏi của bạn lắm, không biết có phải bạn cần ẩn sheet như thế này không (File đinh kèm). Nếu là vậy thị bạn chỉ cần kéo thanh trược che đi phần sheet muốn ẩn là ok

 

[cadafi]

Chào các bạn! Mình muốn ẩn Sheet cần thiết và chỉ khi nào đăng nhập thành công mới cho phép hiện ra các Sheet đó (file gửi kèm). Nhờ các bạn hướng dẫn mình với! Mình đang cần thiết kế mẫu như vậy đó! Thanks

Bạn xem file đính kèm nhé!

 

[yome]

Minh tạo Form rồi các bác chỉ dùm nhé!

Pro_Pikachu ơi! Mình đã làm đến đây rồi.

Const a = "yome"                                 'Const la lay gia tri tuyet doi
Const b = "1018"
Private Sub CommandButton1_Click()
If TextBox1 = a And TextBox2 = b Then
Unload Me
Else
CommandButton2_Click
End If
End Sub
Private Sub CommandButton2_Click()
Application.DisplayAlerts = False                'Khong hien thong bao save
'ThisWorkbook.Close (False)                      'Lenh thoat ra khoi Workbook
'ThisWorkbook.Close SaveChanges:=False           'Lenh thoat ra khoi Workbook
Application.Quit                                 'Lenn thoat ra khoi Excel
Application.DisplayAlerts = True
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = True            'Khoa nut Exit cua From
End Sub
Private Sub CommandButton1_Enter()             'Xu ly phim Enter
CommandButton1_Click
End Sub

Tiếp theo điền code của bạn vào chỗ nào? Xin hoàn thiện giúp mình hoàn chỉnh? Thanks


Mình gửi kèm file đây nhé! Giúp mình nhé!

 

[Po_Pikachu]

Đây là file mình tạo đây. Thân. Nếu nhiều sheet quá thì sửa đoạn code này lại:

sheet2.visible = -1 sheet3.visible = -1

Thành:

 For i = 1 To Worksheets.Count If Sheets(i).Name  "DEMO" Then Sheet(i).Visible = -1 End If Next

Và:

sheet2.visible = 2 sheet3.visible = 2

Thành:

 For i = 1 To Worksheets.Count If Sheets(i).Name  "DEMO" Then Sheet(i).Visible = 2 End If Next

Thân.

 

[yome]

Pro_pikachu ơi! Bạn có thể gán đoạn code của bạn vào đoạn code của mình cho hoàn chỉnh? Thanks

 

[Po_Pikachu]

Đây thưa ngài. Thân.

 

[Po_Pikachu]

Code có trong file rồi đó. Bác cứ mở ra xem đánh dấu (') vào đầu dòng code đó để vô hiệu hóa nó xem nó sẽ mất đi tiến trình gì? Hoặc click chuột vào kế bên dòng đó sẽ hiện ra 1 dấu chấm màu nâu rất to. Khi đó code sẽ dừng lại tại vị trí đó nếu nó có chạy qua và mình sẽ biết dòng trên đó nó đang thao tác đến đâu,..v..v.. Hoặc đọc các hướng dẫn trên diễn đàn về code đó nó dùng làm gì. Hoặc gửi đoạn code mà mình chưa hiểu lên diễn đàn để hỏi ...v.v. Có nhiều cách để bác tìm hiểu đoạn code đó nói gì lắm. Bác tự tìm hiểu đi sẽ có ít cho quá trình viết code và xử lý thông tin sao này lắm. Phần mềm mình viết thì phải biết nó dùng thế nào, làm sao chạy như vậy, và biết nó sai ở đâu để sửa phải không bác? Chúc bác thành công. Thân.