かんたんレイアウトのソースを開き(パスワードは3)
ThisWorkbookの中のWorkbook_Openモジュールを以下の内容に
書き換えれば、対処可能のはずです。

以下Workbook_Openモジュール

Private Sub Workbook_Open()
Dim strMsg As String
Dim i As Long

Application.CommandBars("かんたんレイアウトアイコン").Enabled = False

If blnIsAddin = True Then
Call Application.OnKey("+{F2}", "OpenEdit")
Call Application.OnKey("+^{c}", "CopyText")
Call Application.OnKey("+^{v}", "PasteText")
Exit Sub
End If

'ＰＣによってはアイコンが表示されないことがあるため
Call Sleep(1000)

'かんたんレイアウトのインストール
Call InstToolBar
'かんたんレイアウト2のインストール
Call InstTool2Bar

Application.CommandBars("かんたんレイアウト").Enabled = True
Application.CommandBars("かんたんレイアウト2").Enabled = True
Application.CommandBars("かんたんレイアウトアイコン").Enabled = False

For i = 1 To AddIns.Count
If UCase(AddIns(i).Name) = UCase("EasyLout.xla") Then
If AddIns(i).Installed = True Then
Call Application.OnKey("+{F2}", "OpenEdit")
Call Application.OnKey("+^{c}", "CopyText")
Call Application.OnKey("+^{v}", "PasteText")
Exit Sub
End If
End If
Next i

strMsg = "このファイルを開くことは出来ません。" & vbCrLf
strMsg = strMsg & "アドインに登録して使用して下さい。" & vbCrLf & vbCrLf
strMsg = strMsg & "登録方法はヘルプファイルをご覧下さい。"
Call MsgBox(strMsg, vbExclamation, ThisWorkbook.Name)
Call ThisWorkbook.Close
End Sub

返信する