Пароль через форму

[hamlook]

Вроде все просто, но не работает, выдает ошибку
"Expected Function or variable"
что не так? подскажите пожалуйста

Sub Password()
Password = InputBox("Введите пароль")
If Password <> "1" Then
MsgBox "Неверно!"
Else
Main 'пуск макроса
End If
End Sub

[DiemonStar]

Main 'пуск макроса

готов поспорить, что ругается на эту строку. а у вас есть процедура Main?

[hamlook]

Да, есть.
Работает без замечаний.

[Hugo121]

Property Password As String
Member of Excel.Workbook

[DiemonStar]

Сообщение от Hugo121

Property Password As String
Member of Excel.Workbook

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

[hamlook]

Спасибо Hugo121
я думаю правильно вас понял:

Sub Password()
Dim Password As String
Password = InputBox("ххх")
If Password <> "1" Then
MsgBox "хх" 'Close
Else
Main
End If
End Sub

Теперь работает.
Еще заметил, что если убрать "Option Explicit", то при первом варианте тоже работает.
Спасибо.

DiemonStar
макрос в модуле

[Hugo121]

В общем у меня заработало с другим именем макроса и с другой переменной. В форме. Без объявления типа (но правильнее конечно объявить).
Зачем непременно использовать "Password"? Замените хотя бы на Password_ и Password__ - так точно не будет конфликта.

[DiemonStar]

Зачем непременно использовать "Password"? Замените на Password_ и Password__

Резонный вопрос) тем более, если можно сделать так:

Sub Password()
  If InputBox("ххх") <> "1" Then
    MsgBox "хх" 'Close
  Else
    Main 
  End If
End Sub

з.ы. да, недосмотрел - ошибку выдавало из-за совпадения имени процедуры и локальной переменной.

[hamlook]

Спасибо большое. Я все понял.