Làm ẩn Button trên Sheet

[hanhpptc]

Nhờ các bác trên diễn đàn hướng dẫn giúp Code làm ẩn hoặc hiện lại các Button trên sheet theo File đính kèm.
Chẵng hạn, khi Click Button1 thì ẩn Button2 (Buton2 chữ chìm xuống và không click được)

 

[ndu96081631]

Nhờ các bác trên diễn đàn hướng dẫn giúp Code làm ẩn hoặc hiện lại các Button trên sheet theo File đính kèm.
Chẵng hạn, khi Click Button1 thì ẩn Button2 (Buton2 chữ chìm xuống và không click được)

Thử xem code này thế nào nhé (khá đơn giản)

Private Sub CommandButton1_Click()
  Dim LB As Boolean
  LB = (CommandButton1.Caption = "Disable Button 2")
  MsgBox "Button 2 is " & Choose(1 - LB, "Enable", "Disable")
  CommandButton2.Enabled = Not (LB)
  CommandButton1.Caption = Choose(1 - LB, "Disable Button 2", "Enable Button 2")
  CommandButton2.Caption = Choose(1 - LB, "Enable", "Disable")
End Sub

 

[hanhpptc]

Cám ơn bạn ndu96081631 nhiều lắm. Mình loay hoay mãi mà không biết cách. Nay đã được rùi.