Excel VBA質問箱 IV

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

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


9175 / 76732 ←次へ | 前へ→

【73122】Re:行挿入行削除禁止の方法
発言  kanabun  - 12/11/17(土) 11:32 -

引用なし
パスワード
   ▼kamike さん:

>行挿入;行削除禁止の方法がありましたら

その昔教わったもので、最近ではとんと使ってないのですが、
よろしければ。

'Step1.WorkBookモジュールに以下のコードを記述
'Step2.Workbook_Open を実行します。

'--------------------------------------------------------------
Option Explicit

Private WithEvents menuInsRow As CommandBarButton 'ID 296
Private WithEvents menuDelRow As CommandBarButton 'ID 293

Private Sub Workbook_Open()
  With Application.CommandBars("Worksheet Menu Bar")
   Set menuInsRow = .FindControl(ID:=296)
   Set menuDelRow = .FindControl(ID:=293)
  End With
End Sub

Private Sub menuInsRow_Click(ByVal Ctrl As Office.CommandBarButton, _
               Cancel As Boolean)
  MsgBox "行挿入は禁止されています "
  Cancel = True
End Sub

Private Sub menuDelRow_Click(ByVal Ctrl As Office.CommandBarButton, _
               Cancel As Boolean)
  MsgBox "行削除は禁止されています "
  Cancel = True
End Sub
4 hits

【73121】行挿入行削除禁止の方法 kamike 12/11/17(土) 9:51 質問
【73122】Re:行挿入行削除禁止の方法 kanabun 12/11/17(土) 11:32 発言
【73123】Re:行挿入行削除禁止の方法 UO3 12/11/17(土) 11:43 発言
【73124】Re:行挿入行削除禁止の方法 kamike 12/11/17(土) 13:13 お礼

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