[[20140421173254]]　『特定の名前で保存するマクロを作りたいのですが。』（hiyori）　ページの最後に飛ぶ

『特定の名前で保存するマクロを作りたいのですが。。』（hiyori）

MACのエクセル２０１２なのですがマクロを使おうとすると「このオブジェクトのマクロが無効です。オンラインヘルプを参照にしてください」と出てくるので環境設定からセキュリティ→「マクロを含むファイルを開くときにに警告を表示する」のチェックボックをはずしても有効にならない場合ってどうすればよろしいのでしょうか？

よろしくお願いいたします。

 １０年前のMac版しか触ったことがないけど。

 ビチクソWin版2007ですと、保存時のファイルの種類が以下のようになっています。

 １、Excel ブック(*.xlsx)
 ２、Excel マクロ有効ブック(*.xlsm)
 ３、Excel バイナリブック(*.xlsb)
 ４、Excel 97-2003ブック(*.xls)
 以下略

 で、ビチクソ見たい使いづらい2007で、１のブック(*.xlsx)を
 選ぶと、マクロが有効になりません。
 また、マクロ付きで保存もできなくなる？？？。
 （マクロ付きのブックだった場合、上書き保存ができない。）

 ２と４を選ぶといったんマクロ無効で開かれてから、

 「セキュリティの警告　マクロが無効にされました。オプションボタン」
 ってなツールバーが出て、オプションボタンを押して、
 「このコンテンツを有効にする」にチェックを入れないとマクロが有効になってくれません。

 このあたりじゃないですか？
 この使いづらさに加えて、意味のわからないでかいアイコンばっかりが画面を占領しするので、目的の捜査を探すのにえらい時間がかかります。
 その内にこのいちいち探すというのが面倒になって、エクセルも触らなくなってきました。

 外れていると思うので、サロンの方にマックづかいの方がいるので、
 そちらに移動した方が明確な回答がつきやすいかと思います。
http://excelfactory.net/excelboard/excelvba/excel.cgi
 BJ

BJさん！！！
できました！！！！
ありがとうございました。

それと本題を書き忘れてしまっていたのですが。。。
CGの３に登録番号を導きだすように関数を入れています。
その登録番号で保存をしたいのですがMacだとなぜかできません。
できませんというのは
myPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\登録フォルダ\"
が黄色く反転し直し方がわかりません。
教えていただけませんか？

Sub 登録番号でで記録()

    Dim myPath As String

    myPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\登録フォルダ\"
    ActiveWorkbook.SaveAs Filename:= _
        myPath & Format(Range("CG3").Value) & ".xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

 End Sub

（hiyori） 2014/04/24(木) 21:06

 たぶんＷＨＳが使える環境になってないからではないでしょうか？
 機能拡張かOfficeフィルダ内あるかもしれないライブラリの中に
 必要なファイルがないとか、参照設定でチェックが入ってないとか？
 よく解らないので、サロンの方で新たに質問された方がいいと思います。
 BJ

 質問とは関係ないですけれど、

 BJ さん、
 コメント欄から書きたくない理由が何かありますか？
（Mook） 2014/04/25(金) 16:58

コメント返信：

[ 一覧(最新更新順) ]

[[20140421173254]] 『特定の名前で保存するマクロを作りたいのですが。』（hiyori） ページの最後に飛ぶ

[[20140421173254]]　『特定の名前で保存するマクロを作りたいのですが。』（hiyori）　ページの最後に飛ぶ