質問: マクロでシート2のみをデスクトップに保存というマクロは組めたのですがここに、保護を解除して保存を追記したいです。
回答: 保護ってシートの保護ですか? パスワード、ファイル名が解りません。 パスワード xxxx ファイル名 yyyy にしました。直して下さい。 ' Sub Macro1() ' Sheets("Sheet2").Copy On Error Resume Next ActiveSheet.Unprotect "xxxx" On Error GoTo 0 ChDrive "C:" ChDir CreateObject("WScript.Shell").SpecialFolders("Desktop") ActiveWorkbook.SaveAs "yyyy" End Sub