необходимо создать форму, которая открывается автоматически и просит ввести пароль и имя пользователя.

[мария2507]

В форме должен содержатся пароль, имя и день недели. Если субота или воскресенье то выход.
саму програму написала, но там необходимо что если первый раз нажимаешь на кнопку ОК то идет проверка данных и пишет "здравствуйте, сегодня...." а 2 раз если нажмешь, то форма закрывается!!
Я начала делать через обозначение f-сколько раз нажали на кнопку, но не выходит((( подскажите....


Private Sub CommandButton1_Click()
f = 0
If UserForm1.TextBox2.Text = "машуля" And Weekday(Date, vbMonday) = 1 Or Weekday(Date, vbMonday) = 2 Or Weekday(Date, vbMonday) = 3 Or Weekday(Date, vbMonday) = 4 Or Weekday(Date, vbMonday) = 5 Then
If f = 1 Then
UserForm1.Label3 = "Здравствуйте, " & UserForm1.TextBox1.Text & "!!!! Сегодня: " & Date & ", " & WeekdayName(Weekday(Date, vbMonday)) & " ..."
Else
UserForm1.Hide
End If
Else
Label3 = UserForm1.TextBox1.Text & ", Вы не знаете пароль!!!! или сегодня выходной!!!! Сегодня: " & Date & ", " & WeekdayName(Weekday(Date, vbMonday)) & " ..."
Application.Quit
End If
End Sub

Sub auto_open()
f = 0
UserForm1.Show
End Sub

[EducatedFool]

Попробуйте так:

Dim f As Integer

Private Sub CommandButton1_Click()
    f = f + 1
    If UserForm1.TextBox2.Text = "машуля" And Weekday(Date, vbMonday) <= 5 Then
        If f = 1 Then
            UserForm1.Label3 = "Здравствуйте, " & UserForm1.TextBox1.Text & "!!!! Сегодня: " & _
                               Date & ", " & WeekdayName(Weekday(Date, vbMonday)) & " ..."
        Else
            UserForm1.Hide
        End If
    Else
        Label3 = UserForm1.TextBox1.Text & _
                 ", Вы не знаете пароль!!!! или сегодня выходной!!!! Сегодня: " & _
                 Date & ", " & WeekdayName(Weekday(Date, vbMonday)) & " ..."
        Application.Quit
    End If
End Sub

Sub auto_open()
    f = 0
    UserForm1.Show
End Sub

[мария2507]

спасибо)))