VBA excel保護板

Question

我創建了一個電子表格，在工作簿打開事件中我創建一個名爲「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 

現在，只要工作簿的結構不受密碼保護，此代碼就可以很好地工作。我應該在這裏做些什麼來使這個工作？

錯誤狀態：OBJECT SHEETS的

方法添加失敗的錯誤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