Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


73368 / 76732 ←次へ | 前へ→

【7840】Re:マクロを自動で有効とする方法。
お礼  yama  - 03/9/19(金) 19:52 -

引用なし
パスワード
   ▼INA さん:
>もう要らないかもしれませんが、
>マクロ無効にするとSheet1以外を非表示にするサンプルです。
>(一度ブックを閉じて開いて下さい。)
>
>Private Sub Workbook_BeforeClose(Cancel As Boolean)
>  Dim i As Worksheet
>  For Each i In Sheets
>    If Not i.Name = "Sheet1" Then
>      i.Visible = xlSheetVeryHidden
>    End If
>  Next i  
>  Me.Save
>End Sub
>
>Private Sub Workbook_Open()
>  Dim i As Worksheet
>  For Each i In Me.Worksheets
>    i.Visible = xlSheetVisible
>  Next i
>End Sub

INAさん
こんにちは。

INAさんの方法でもいけそうですね。
サンプルありがとうございました。
0 hits

【7832】マクロを自動で有効とする方法。 yama 03/9/19(金) 13:54 質問
【7834】Re:マクロを自動で有効とする方法。 Jaka 03/9/19(金) 14:35 回答
【7835】Re:マクロを自動で有効とする方法。 Jaka 03/9/19(金) 14:41 回答
【7836】Re:マクロを自動で有効とする方法。 yama 03/9/19(金) 15:03 お礼
【7838】Re:マクロを自動で有効とする方法。 INA 03/9/19(金) 16:41 回答
【7840】Re:マクロを自動で有効とする方法。 yama 03/9/19(金) 19:52 お礼

73368 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free