Здравствуйте!
Помогите с формулировкой макроса:
При первом открытии книги этих:
если разрешить выполнение макросов, выходит ошибка
После повторного запуска открывает книгу нормально и если имя пользователя не указано, то книга нормально отрабатывает макрос и без ошибки открывает ее.
Помогите с формулировкой макроса:
Код |
---|
Private Sub Workbook_BeforeClose(Cancel As Boolean) 'скрываем все листы, кроме листа ПРЕДУПРЕЖДЕНИЕ Worksheets("Предупреждение").Visible = True For Each sh In ActiveWorkbook.Worksheets If sh.Name = "Предупреждение" Then sh.Visible = True Else sh.Visible = xlSheetVeryHidden End If Next sh 'сохраняемся перед выходом ActiveWorkbook.Save End Sub Private Sub Workbook_Open() Dim wsSh As Object For Each wsSh In Me.Sheets Protect_for_User_Non_for_VBA wsSh Next wsSh For Each sh In ActiveWorkbook.Worksheets sh.Visible = True If Environ("USERNAME") <> "A.Gubanov" And Environ("USERNAME") <> "e.shevskaya" Then Worksheets("Настройки").Visible = False Worksheets("Сотрудники").Visible = xlVeryHidden Else For i = 1 To Worksheets.Count Worksheets(i).Visible = True Next i End If Next sh 'скрываем листы ПРЕДУПРЕЖДЕНИЕ Worksheets("Предупреждение").Visible = xlSheetVeryHidden End Sub Sub Protect_for_User_Non_for_VBA(wsSh As Worksheet) wsSh.Protect Password:="96318645", UserInterfaceOnly:=True End Sub |
При первом открытии книги этих:
Цитата |
---|
If Environ("USERNAME") <> "A.Gubanov" And Environ("USERNAME") <> "e.shevskaya" Then |
После повторного запуска открывает книгу нормально и если имя пользователя не указано, то книга нормально отрабатывает макрос и без ошибки открывает ее.