Nếu gõ đúng pass thì thực hiện việc 1, nếu sai làm việc khác (bằng VBA) (1 người xem)

[ExcelQN]

Xin các ACE trợ giúp câu lệnh trong tình huống sau, sh đã được protec "1234", cho hiện hộp thoại-->gõ pass theo yêu cầu-->

ActiveSheet.Protect ("1234")
Application.Dialogs(28).Show
(sau khi gõ pass)
IF đúng pass 1234 thì
ActiveSheet.Shapes("Picture 1").Visible = msoTrue
ActiveSheet.Shapes("Picture 2").Visible = msoFalse
ActiveSheet.Protect ("5678")
Else
ActiveSheet.Protect ("1234")
End If
End Sub
Đoạn màu đỏ đang bí. Nhờ ACE trợ giúp. Cảm ơn trước

 

[SA_DQ]

Bạn xài cái này linh hoạt hơn:

Option Explicit
Sub OpenOne()
 Dim GPE As Variant
 GPE = InputBox("HAY NHAP 3 TÙ CÀN THIÉT:", "GPE.COM", "ABC")
 If GPE = ChuyenNgay Then
    MsgBox "Yes"
 Else
    MsgBox "No", , Right(ChuyenNgay(), 1)
 End If
End Sub

[B]Function ChuyenNgay()
[/B] Dim J As Long
 
 ChuyenNgay = Choose(Year(Date) - 2010, "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K")
 ChuyenNgay = ChuyenNgay & Mid("123456789ABCD", Month(Date), 1)
 ChuyenNgay = ChuyenNgay & Mid("123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ", Day(Date), 1)
 
[B]End Function

[/B]