Löschen und schützen Arbeitsmappe

Question

Brauchen Sie Ihre Hilfe schlecht

Ich habe Code, der "Schaltfläche" zugewiesen ist, um das aktuelle Blatt zu löschen. Blatt und Arbeitsmappe sind passwortgeschützt. Ich bin in der Lage, die Schaltfläche zu verwenden, um das Blatt zu löschen, aber das Problem, das die Arbeitsmappe nicht zurück schützt. Bitte vorschlagen.

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 

Bitte helfen Sie.

Answer 1

Sie haben ThisWorkbook.Protect Password:="xyz" zweimal in Ihrem Code.

Bitte versuchen Sie den geänderten Code unter (getestet und lief ok auf meinem Excel):

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