{quote}{login=Guest_E}{date=12.06.2008 03:38}{thema=Защитить лист с тем же паролем. Макросы. (VBA)}{post}Но просто защищает без пароля. Как можно сделать так, чтоб он поставил защиту на лист обратно?{/post}{/quote}  
 
Не вижу в чём проблема. Надо указать пароль и всё:  
 
Worksheets(1).Protect "МойПароль"

{quote}{login=guest  VBA}{date=13.06.2008 12:37}{thema=Защитить КНИГУ с тем же паролем. Макросы. (VBA)}{post}Короче все поймете!{/post}{/quote}  
 
Короче, я всё понял :)  
…  
newname:  
 With ActiveSheet  
   .Name = "SSS"  
   .Unprotect CStr(WB)  
Set YOKN = .Buttons.Add(0, 0, 100, 50)  
   YOKN.OnAction = "УдалитьЛист"  
   YOKN.Characters.Text = "[Х] закрыть"
   ActiveWorkbook.Protect Password:=CStr(WB), Structure:=True  
   .Protect CStr(WB)  
  End With  
End Sub  
 
Sub УдалитьЛист()  
On Error Resume Next  
Application.DisplayAlerts = 0  
WB = CStr(Worksheets("PassWords").Cells(2, 2))  
 
DaNet = InputBox("Знаешь пароль?")  
 If DaNet <> WB Then MsgBox "Неа:)": Exit Sub  
ActiveWorkbook.Unprotect WB  
 Application.DisplayAlerts = 0  
 Sheets("SSS").Delete  
   
   ActiveWorkbook.Protect Password:=WB, Structure:=True  
End Sub