当工作簿受到保护时，宏中的取消隐藏工作表不起作用

Question

运行宏时，我遇到了解除保护/保护工作表的问题。我读了一些帖子，说明我应该先将ActiveSheet.Unprotect Password:="my password"位插入到ActiveSheet.Unprotect Password:="my password"之后再插入宏中，但这不起作用。任何建议都将不胜感激。

ActiveSheet.Unprotect Password:="my password"
Sheets("sheet1").Select
Sheets("sheet2").Visible = True
Sheets("sheet2").Select
Cells.Select
Selection.Copy
Workbooks.Add
Cells.Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, skipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\file.csv" _
    , FileFormat:=xlCSV, CreateBackup:=False
Application.DisplayAlerts = True
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.DisplayAlerts = True
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
Sheets("Sheet2").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("sheet1").Select
ActiveSheet.Protect Password:="my password"