Excel VBA質問箱 IV

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

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


31162 / 76738 ←次へ | 前へ→

【50831】やっぱりバグがあった。
発言  Jaka  - 07/8/17(金) 11:34 -

引用なし
パスワード
   今試してみたら、Thisworkbookは、こんな感じにしないとダメでした。
シートの位置関係の問題だと思うけど...。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Ws As Worksheet, FM As Object 'UserForm XX
Application.ScreenUpdating = False
For Each Ws In ThisWorkbook.Sheets
  If Ws.Name = "ダミー" Then
    Ws.Range("IV1").Value = ActiveSheet.Name
    Ws.Visible = True
  End If
Next
For Each Ws In ThisWorkbook.Sheets
  If Ws.Name <> "ダミー" Then
    Ws.Visible = xlVeryHidden
  End If
Next
If Flg = False Then
  '一応ここら辺が保存時の時間差が出るところ。
  Application.OnTime Now + TimeValue("00:0:01"), "表示"
End If
Flg = False
Application.ScreenUpdating = True
End Sub
0 hits

【50819】有効期限を設けたい ichi 07/8/17(金) 9:33 質問
【50821】Re:有効期限を設けたい neptune 07/8/17(金) 9:51 発言
【50822】Re:有効期限を設けたい ichi 07/8/17(金) 10:03 お礼
【50825】Re:有効期限を設けたい Jaka 07/8/17(金) 10:27 発言
【50827】Re:有効期限を設けたい ichi 07/8/17(金) 10:41 発言
【50829】Re:有効期限を設けたい ponpon 07/8/17(金) 11:02 発言
【50830】Re:有効期限を設けたい ichi 07/8/17(金) 11:27 発言
【50831】やっぱりバグがあった。 Jaka 07/8/17(金) 11:34 発言
【50826】Re:有効期限を設けたい neptune 07/8/17(金) 10:35 回答
【50828】Re:有効期限を設けたい ichi 07/8/17(金) 10:56 お礼

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