| |
XP office2003
お願いします。
Ｂｏｏｋ(３シート有)をマクロ実行で２シートを削除し、１シートにしたファイルを任意の場所に新しく名前を付けて保存します（ファイルは新しい名前で開かれている）。
ところがその新しいファイルを閉じる時
１．「保存しますか／はい」で保存し、その後開くとマクロの実行通り１シートになっている。
２．「保存しますか／いいえorキャンセル」し、その後開くとマクロ実行前の３シートのままである。
という状態です。２度保存しなければマクロ実行後の内容にならないのは、下記のどの部分を修正すればよいでしょうか？
よろしくお願い致します。
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 '２シート削除
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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
