VBA excel защитные листы

Question

Я создал таблицу, где на рабочем открытии Open Book я создаю лист под названием «Hello». Это прекрасно работает. Проблема возникает, когда я защищаю структуру WORKBOOK с паролем. Теперь, когда я открываю свою книгу и пытаюсь добавить лист к ней, приложение дает мне ошибку в этой строке кода, где я добавляю лист. Весь мой код ниже

Private Sub Workbook_Open() 
Dim ws As Worksheet 
Dim i As Integer 
Dim isHELLOexist As Boolean 
isHELLOexist = False 
For i = 1 To Worksheets.Count 
    If Worksheets(i).Name = "HELLO" Then 
     isHELLOexist = True 
    End If 
Next i 

If isHELLOexist = False Then 
    Set ws = Sheets.Add '''here's where i get an error with ADDING sheet 
    ws.Name = "HELLO" 
End If 
End Sub 

Теперь этот код работает отлично, пока СТРУКТУРА книги не защищена паролем. Что я должен сделать здесь, чтобы заставить это работать?

ОШИБОК состояния:

МЕТОД ADD OBJECT OF ЛИСТОВ СБОЙ ОШИБКА 1004

Answer 1

Фигурные это .... я сначала нужно снять защиту книги, добавить лист и защитить его снова, как это ...

thisworkbook.unprotect("password") 
If isHELLOexist = False Then 
    Set ws = Sheets.Add '''here's where i get an error with ADDING sheet 
    ws.Name = "HELLO" 
End If 
thisworkbook.protect("password"),true,true