値の受け渡し
VBAで開くときにマクロを有効にしないとシートがみれないように
【はじめに】【松】【竹】【梅】の4つのシートがあるうち、
保存時に 【はじめに】=表示、 【松】【竹】【梅】=非表示
保存後に 【はじめに】=非表示、 【松】【竹】【梅】=表示
の処理にしましたが、
閉じるで保存ではなくctrl+Sで保存した場合、まだ処理中でも
【竹】【梅】シートで保存した場合【梅】シートが表示されてしまいます。
どのようにしたら使っていたシートに戻れるでしょうか?
よろしくお願いします。
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("はじめに").Visible = True
Sheets("はじめに").Select
Sheets("松").Visible = False
Sheets("竹").Visible = False
Sheets("梅").Visible = False
End Sub
Private Sub Workbook_afterSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("松").Visible = True
Sheets("竹").Visible = True
Sheets("梅").Visible = True
Sheets("はじめに").Visible = False
★保存をしたシートに戻りたい
End Sub
Private Sub Workbook_Open()
Sheets("松").Visible = True
Sheets("竹").Visible = True
Sheets("梅").Visible = True
Sheets("はじめに").Visible = False
End Sub
お礼
木の葉っぱには掛からないように筆で塗布してみます。 助言有難うございます。