Уважаемые Гуру! Прошу помощи! Задача: необходим макрос который по истечении времени заблокирует книгу и выведет окошко примерно такого содержания "Для доступа к данным введите пароль". Код нашел на просторах интернета, только вот пишет синтаксическая ошибка. Прошу помочь! Спасибо!
Код |
---|
Private Sub Workbook_Open() Dim i&, n&, P As Variant Application.ScreenUpdating = False n = 2 If Date = "05.05.2014" Then For i = 1 To Sheets.Count Sheets(i).Activate Sheets(i).Protect "1234" Next End If 1: P = InputBox("Время использования книги истекло, для продолжения введите пароль", "ВВОД ПАРОЛЯ") If P = 1234 Then For i = 1 To Sheets.Count Sheets(i).Activate Sheets(i).Unprotect "1234" Next Else If n = 0 Then Application.DisplayAlerts = False ThisWorkbook.Close Application.DisplayAlerts = True Else MsgBox "Пароль не верный, у вас еще " & n & " попытки" n = n - 1 End If GoTo 1 End If Application.ScreenUpdating = True End Sub |