[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『特定の名前で保存するマクロを作りたいのですが。。』(hiyori)
MACのエクセル2012なのですがマクロを使おうとすると「このオブジェクトのマクロが無効です。オンラインヘルプを参照にしてください」と出てくるので環境設定からセキュリティ→「マクロを含むファイルを開くときにに警告を表示する」のチェックボックをはずしても有効にならない場合ってどうすればよろしいのでしょうか?
よろしくお願いいたします。
10年前のMac版しか触ったことがないけど。
ビチクソWin版2007ですと、保存時のファイルの種類が以下のようになっています。
1、Excel ブック(*.xlsx) 2、Excel マクロ有効ブック(*.xlsm) 3、Excel バイナリブック(*.xlsb) 4、Excel 97-2003ブック(*.xls) 以下略
で、ビチクソ見たい使いづらい2007で、1のブック(*.xlsx)を 選ぶと、マクロが有効になりません。 また、マクロ付きで保存もできなくなる???。 (マクロ付きのブックだった場合、上書き保存ができない。)
2と4を選ぶといったんマクロ無効で開かれてから、
「セキュリティの警告 マクロが無効にされました。オプションボタン」 ってなツールバーが出て、オプションボタンを押して、 「このコンテンツを有効にする」にチェックを入れないとマクロが有効になってくれません。
このあたりじゃないですか? この使いづらさに加えて、意味のわからないでかいアイコンばっかりが画面を占領しするので、目的の捜査を探すのにえらい時間がかかります。 その内にこのいちいち探すというのが面倒になって、エクセルも触らなくなってきました。
外れていると思うので、サロンの方にマックづかいの方がいるので、 そちらに移動した方が明確な回答がつきやすいかと思います。 http://excelfactory.net/excelboard/excelvba/excel.cgi BJ
それと本題を書き忘れてしまっていたのですが。。。
CGの3に登録番号を導きだすように関数を入れています。
その登録番号で保存をしたいのですが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
たぶんWHSが使える環境になってないからではないでしょうか? 機能拡張かOfficeフィルダ内あるかもしれないライブラリの中に 必要なファイルがないとか、参照設定でチェックが入ってないとか? よく解らないので、サロンの方で新たに質問された方がいいと思います。 BJ
質問とは関係ないですけれど、
BJ さん、 コメント欄から書きたくない理由が何かありますか? (Mook) 2014/04/25(金) 16:58
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.