VBA - 保护但允许复制到其他工作表

Question

我有下面的代码，我想保护几乎所有东西，它工作正常，但我想修改它，允许用户运行复制到另一张纸的makro。如果我将宏运行到受保护的工作表，则会出现错误。

我希望，在交到之前，你们可以帮助并感谢你们。）

Sub Workbook_Open()

    Application.ScreenUpdating = False

    For Each ws In Sheets

        With ws
            .Unprotect Password:="MKM"
            .Protect Password:="MKM", UserInterfaceOnly:=True
            .EnableOutlining = True
        End With

    Next ws

    Application.ScreenUpdating = True

End Sub

Answer 1

我再试一次，它完美无缺，就像它一样 - 我不知道是什么造成的，但它完美无缺：）