Excel2016(64bit)で使用しています。
EasyLout.xlaとヘルプは
C:\Users\○○○\AppData\Roaming\Microsoft\AddIns
に入れてあります。
Excelを起動し，開発→Excelアドインと進むと，かんたんレイアウトが表示されるので，チェックマークを入れます。
すると，アドインタブが表示され，かんたんレイアウトが使えます。
しかし，一端，Excelを終了し，起動させると，アドインタブが消えてしまいます。開発→Excelアドインでは，かんたんレイアウトにチェックマークが入ったままです。
とりあえずの回避方法としては，かんたんレイアウトのチェックをはずしてからExcelの再起動をし，再度かんたんレイアウトのチェックを入れると正常にアドインタブに表示されます。
解決方法がありましたら教えてください。

返信する

ご質問の件ですが、excel2013以降の仕様と思われます。
以下のサイトに同事象が報告されています。
https://answers.microsoft.com/ja-jp/msoffice/forum/msoffice_excel-mso_windows8/excel/c90a9b9b-6fe9-4406-bbb6-1fa7f7618617

対処方法については現在検討中です。

返信する

ご返答いただき，ありがとうございます。
できれば「かんたんレイアウト」の方で対策していただけると助かります。
よろしくお願いいたします。

返信する

かんたんレイアウトのソースを開き(パスワードは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

返信する

無事，正常にアドインタブに表示されるようになりました。
ありがとうございました。

返信する