ブックを削除して保護する

Question

助けを借りてください

私は現在のシートを削除するための "ボタン"に割り当てられたコードを持っています。シートとワークブックはパスワードで保護されています。私はシートを削除するためにボタンを使用することができますが、問題は、そのブックを保護していないことです。提案してください。

Sub Deletetab() 
    Application.DisplayAlerts = False 
    If MsgBox("Deleting Current Sheet, Data entered on this sheet will be lost", vbOKCancel) = vbOK Then 
      ThisWorkbook.Unprotect Password:="xyz" 
      Application.DisplayAlerts = False 
      ActiveWindow.SelectedSheets.Delete 
      ThisWorkbook.Protect Password:="xyz" 
      Application.DisplayAlerts = True 
      Else: Exit Sub 
    End If 
    Application.DisplayAlerts = True 
    ThisWorkbook.Protect Password:="xyz" 
    End Sub 

助けてください。

Answer 1

あなたのコードにThisWorkbook.Protect Password:="xyz"が2回あります。

（テストされ、私のエクセルで[OK]を実行しました）以下の修正コードを試してください：

Sub Deletetab() 

Application.DisplayAlerts = False 
If MsgBox("Deleting Current Sheet, Data entered on this sheet will be lost", vbOKCancel) = vbOK Then 
    ThisWorkbook.Unprotect Password:="xyz" 
    ActiveWindow.SelectedSheets.Delete 
    ThisWorkbook.Protect Password:="xyz" 
    Application.DisplayAlerts = True 
End If  
Application.DisplayAlerts = True 

End Sub