在工作簿受保护时，在macros内取消隐藏工作表不起作用

当我运行一个macros时，我有一个解除/保护工作表的问题。 我读了几个post，说我应该插入ActiveSheet.Unprotect Password:="my password"位之前，然后将ActiveSheet.Unprotect Password:="my password" ，到macros，但是这不起作用。 任何build议将不胜感激。

 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"