Possibly:
Private Sub UserForm_Initialize()
    If Weekday(Date) = 6 Then Me.CommandButton1.Visible = 0'or 1
End Sub