web-dev-qa-db-ja.com

エラー：マクロがこのワークブックで使用できないか、すべてのマクロが無効になっている可能性があります

この投稿 のソリューションを採用しようとしています。マクロを少し変更しました（ボタンのクリックを追加するだけです）。

Sub AdjustValue()
    Dim btnName As String
    Dim targetCell As String
    Dim addAmount As Integer

    btnName = Application.Caller
    targetCell = Mid(btnName, 5, Len(btnName))
    addAmount = 1

    ActiveSheet.Range(targetCell).Value = ActiveSheet.Range(targetCell).Value + addAmount
End Sub

「Add_B3」という名前のボタンをクリックすると、エラーが発生します

マクロがこのワークブックで使用できないか、すべてのマクロが無効になっている可能性があります

作業中のシートとThisWorkbookの両方にマクロを保存しました。

macro locations

トラストセンターのマクロ設定を「通知付きですべてのマクロを無効にする」に設定しましたが、「すべてのマクロを有効にする」を選択してもエラーが発生し、理由がわかりません。

microsoft-excelmicrosoft-excel-2010vbamacros
1
Alex S

ボタンがマクロから割り当て解除されたようです。ボタンをマクロに再割り当てしてみてください。

最初にボタンを右クリックして[マクロの割り当て]を選択したときに、[マクロ名]テキストボックスを見ると、ボタンに現在割り当てられているマクロが表示されます。

4
bdr9