Tự động hiện mầu cho Button khi thực thi lệnh

[khamha]

Mình có sử dụng button để thực thi lệnh khóa và mở Sheet1 từ Sheet2,nên mình muốn cái button đó sẽ hiệnnên mầu khác nếu lệnh đó ̣đang có tác dụng,ví dụ:
Sheet1 đang bị khóa,thì cái button"ProtectSheet1" ở Sheet2 sẽ là màu đỏ và nếu Sheet1 không khóa
thì cái button"UnprotectSheet1" ở Sheet2 sẽ là màu xanh.
Cảm ơn các bạn.

 

[ndu96081631]

Mình có sử dụng button để thực thi lệnh khóa và mở Sheet1 từ Sheet2,nên mình muốn cái button đó sẽ hiệnnên mầu khác nếu lệnh đó ̣đang có tác dụng,ví dụ:
Sheet1 đang bị khóa,thì cái button"ProtectSheet1" ở Sheet2 sẽ là màu đỏ và nếu Sheet1 không khóa
thì cái button"UnprotectSheet1" ở Sheet2 sẽ là màu xanh.
Cảm ơn các bạn.

Một nút thôi đủ rồi ---> Code cho CommandButton1

Private Sub CommandButton1_Click()
  With CommandButton1
    If .Caption = "Protect" Then
      Sheet2.Protect Sheet1.Range("F1").Value
    Else
      Sheet2.Unprotect Sheet1.Range("F1").Value
    End If
    .Caption = IIf(.Caption = "Unprotect", "Protect", "Unprotect")
    .BackColor = IIf(.Caption = "Protect", vbGreen, vbRed)
  End With
End Sub

 

[khoavu87]

Mình có sử dụng button để thực thi lệnh khóa và mở Sheet1 từ Sheet2,nên mình muốn cái button đó sẽ hiệnnên mầu khác nếu lệnh đó ̣đang có tác dụng,ví dụ:
Sheet1 đang bị khóa,thì cái button"ProtectSheet1" ở Sheet2 sẽ là màu đỏ và nếu Sheet1 không khóa
thì cái button"UnprotectSheet1" ở Sheet2 sẽ là màu xanh.
Cảm ơn các bạn.

Thử cái này xem sao?

Private Sub CommandButton1_Click()
Sheet2.Unprotect (Sheet1.Range("F1"))
Me.CommandButton1.BackColor = 254
Me.CommandButton2.BackColor = &HC0C0C0
End Sub

Private Sub CommandButton2_Click()
Sheet2.Protect (Sheet1.Range("F1"))
Me.CommandButton2.BackColor = 250
Me.CommandButton1.BackColor = 12633219
End Sub