|
XP office2003
お願いします。
Book(3シート有)をマクロ実行で2シートを削除し、1シートにしたファイルを任意の場所に新しく名前を付けて保存します(ファイルは新しい名前で開かれている)。
ところがその新しいファイルを閉じる時
1.「保存しますか/はい」で保存し、その後開くとマクロの実行通り1シートになっている。
2.「保存しますか/いいえorキャンセル」し、その後開くとマクロ実行前の3シートのままである。
という状態です。2度保存しなければマクロ実行後の内容にならないのは、下記のどの部分を修正すればよいでしょうか?
よろしくお願い致します。
Sub ファイル保存()
Dim myFileName As String
fn = ThisWorkbook.ActiveSheet.Range("C3") '拠点名
fn2 = "結果" & "(" & fn & ")" '新しいBook名。
'名前を付けて保存ダイアログボックスを開く
myFileName = Application.GetSaveAsFilename(fn2, "Excelファイル(*.xls),*.xls")
If myFileName = "False" Then
Exit Sub
Else
With Application
ActiveWorkbook.SaveAs myFileName, FileFormat:=xlNormal, _
Password:="6920", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End With
End If
ActiveWorkbook.Password = "" 'WriteRes解除
Application.ScreenUpdating = False '画面表示を更新しない(画面を止める)
Application.DisplayAlerts = False '警告メッセージを表示させない
Sheets("入力シート").Select
ActiveSheet.Unprotect Password:="69206920"
Dim sh1 As String, sh2 As String, sh3 As String
sh1 = "入力シート"
sh2 = "店名リスト"
sh3 = "直近検査結果表"
Sheets(Array(sh2, sh3)).Select '2シート削除
ActiveWindow.SelectedSheets.Delete
Sheets(sh1).Select
Range("C7").Select
ActiveSheet.Protect Password:="69206920", DrawingObjects:=False, _
Contents:=True, Scenarios:= True, _
AllowFormattingCells:=True, AllowDeletingRows:=True
ActiveSheet.EnableSelection = xlNoRestrictions
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
|
|