VBA Excel schützt Blätter

Question

Ich erstellte eine Tabelle, wo auf Arbeitsbuch Open Event ich ein Blatt mit dem Namen "Hallo" erstellen. Das funktioniert ganz gut. Das Problem tritt auf, wenn ich die Struktur des WORKBOOK mit Passwort schützen. Jetzt, wenn ich meine Arbeitsmappe öffne und versuche, das Blatt hinzuzufügen, gibt mir die Anwendung einen Fehler in dieser Codezeile, wo ich das Blatt hinzufüge. All mein Code unter

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 

Jetzt funktioniert dieser Code einwandfrei, solange STRUCTURE der Arbeitsmappe nicht mit Passwort geschützt ist. Was soll ich hier tun, um dies zum Laufen zu bringen?

Fehlerzustände:

ADD Verfahren zur Objekt SHEETS Fehler fehlgeschlagen es 1004

Answer 1

Figured aus .... Ich muss zuerst die Arbeitsmappe aufzuheben, fügen Sie das Blatt und schützen Sie es wieder wie dies ...

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