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"次。

请尝试下面的修改后的代码（测试并在我的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

删除并保护工作簿

1 个答案: