Excel VBA質問箱 IV

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

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


20911 / 76738 ←次へ | 前へ→

【61235】Re:VBAでVBSのMSGBOX表示みたいな
発言  n  - 09/4/18(土) 2:32 -

引用なし
パスワード
   >・離席後、戻ってみるとエクセルが閉じていたり
> 別ブックがになっていると??みたいになることがあるので
> 当該ブックは閉じました メッセージを表示しておく
視点を変えてこんなのもアリかもしれません。
Sub closeTest()
  With ThisWorkbook
    If Not .ReadOnly Then
      Dim r As Range
      .Activate
      .Save
      .ChangeFileAccess xlReadOnly
      With .Windows(1)
        .Zoom = 100
        Set r = .VisibleRange
      End With
    End If
    With .ActiveSheet.TextBoxes.Add(r.Left + r.Width / 4, _
                    r.Top + r.Height / 4, _
                    r.Width / 2, _
                    r.Height / 2)
      .Interior.Color = vbYellow
      .Text = "保存終了し読取専用に変更しました。"
      .HorizontalAlignment = xlCenter
      .VerticalAlignment = xlCenter
      .OnAction = "DelShape"
    End With
    .Saved = True
  End With
End Sub

Sub DelShape()
  ActiveSheet.TextBoxes(Application.Caller).Delete
  ThisWorkbook.Saved = True
End Sub

#ただ、元スレでも書いたように、あらゆるケースでも上書き保存というのは怖くないですか?
#そのbookの用途にもよるのでしょうけど。
#保護やバックアップなどの対策をしっかりとっておく事も必要でしょうね。

0 hits

【61222】VBAでVBSのMSGBOX表示みたいな ON 09/4/16(木) 18:43 質問
【61223】Re:VBAでVBSのMSGBOX表示みたいな n 09/4/16(木) 20:05 発言
【61224】Re:VBAでVBSのMSGBOX表示みたいな ON 09/4/17(金) 11:01 お礼
【61233】Re:VBAでVBSのMSGBOX表示みたいな neptune 09/4/17(金) 23:08 発言
【61234】Re:VBAでVBSのMSGBOX表示みたいな Abyss 09/4/18(土) 1:14 発言
【61235】Re:VBAでVBSのMSGBOX表示みたいな n 09/4/18(土) 2:32 発言
【61260】Re:VBAでVBSのMSGBOX表示みたいな ON 09/4/20(月) 17:33 質問
【61261】Re:VBAでVBSのMSGBOX表示みたいな n 09/4/20(月) 18:42 発言
【61262】Re:VBAでVBSのMSGBOX表示みたいな ON 09/4/20(月) 19:03 発言

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