- ベストアンサー
ブックの共有解除を自動化する方法とは？
- ブックの共有を解除する際の確認画面を自動で処理する方法について解説します。
- 質問者はエクセルファイルの共有解除作業をマクロで行っており、確認画面での手動作業を自動化したいとのことです。
- WindowsXPとExcel2003の環境での共有解除自動化方法についてアドバイスを求めています。
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
関連するQ&A
- EXCEL「ブックの共有」をマクロ判定したい
EXECLワークブックファイルが「ジョブの共有」になっている時、これを解除する際、次のVBAマクロを発行しています。 ActiveWorkbook.ExcluciveAccess しかし、「ジョブの共有」解除済みのファイルに対し、上記のマクロを発行するとエラーとなります。 上記マクロの発行前に、「ジョブの共有」解除済みのファイルかどうかを判定する方法をご教示願います。
- ベストアンサー
- オフィス系ソフト
- 共有ブックのリンクについて
以下のようなマクロを作成しました １．Sheet2をコピーする（新規ブック） ２．Sheet1のＡ１のファイル名で保存する（入力済） ３．Ａ１にハイパーリンクを設定する 「ブックを共有」にしたら（３）のハイパーリンクの 設定でエラーが出るようになってしまいました。 で質問ですが （１）共有ブックはハイパーリンクが設定できないのでしょうか？ マクロが間違っている？ 何かパラメータが足りない？ そんなことできない？ （２）設定できないとしたら、誰も使用しないような深夜に ブックの共有を解除し、リンクを貼り付けるマクロを実行するということは可能でしょうか？ わかりにくい質問で申し訳ありませんが教えてください。 よろしくお願いします。 Sub Macro1() Worksheets(2).Activate Sheets(2).Copy ActiveWorkbook.SaveAs Filename:="A1ファイル名" ActiveWindow.Close Worksheets(2).Activate ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), Address:="A1ファイル名" End Sub
- ベストアンサー
- オフィス系ソフト
- Excelのブックの保護を一括で解除できるバッチ
フォルダ内配下全てのExcelファイルのブックの保護を解除できるバッチやマクロをご存知の方ご教示していただきたくご質問させていただきました。 具体的には「関東」というフォルダ内に「東京」「神奈川」「埼玉」など複数のフォルダ内にExcelがあり関東フォルダ内でバッチを適応するとフォルダ配下全てのExcelファイルのブック保護を解除できる仕組みを探しています。 以上、よろしくお願いいたします。
- ベストアンサー
- Excel（エクセル）
- EXCEL 共有Ｂｏｏｋにマクロを組み動作させると不具合が起こる
EXCELの共有bookについて質問させていただきます。 共有BOOKにマクロを組んでいます。マクロはPrivate Sub Worksheet_Change(ByVal Target As Range)でセルに入力されると自動的に他のマクロが走り保存する使用で、４名～１０名で頻繁に変更されます。その際に突然EXCELファイルの拡張子が『XLS』から『xls~RF******.tmp 』と変わってしまいます。保存しようとしても既に元の『XLS』ファイルと拡張子が変わっているため関連性がなくなり保存できなくなります。その後全ての人に一旦共有ファイルを閉じてもらい再度立ち上げると、ファイルがロックされています解除するか？などと質問してきて『はい』を選び再度保存をかけて初めて使用できるようになります。マクロをあまり組んでいないファイルではこのような事は発生しません。どなたか経験のある方はいらっしゃいますか？
- ベストアンサー
- Microsoft ASP
- Excelのマクロの解除方法について教えてください
Excelのマクロを少しばかり使ってみたのですが、 解除（プログラム言語を全て消して）しても、 「マクロが使用されています」と、 ブックを開くときに表示されます。 マクロを完全解除する方法を教えていただけないでしょうか？ Excelのバージョンは2003です。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 複数ブックの最後のブックだけ処理できない
開いている複数ブックに対して「簡単な処理を行い、保存して閉じる」 というマクロを走らせたいのですが、 最後のブックのみ処理できずにマクロが終了してしまいます。 例えば、3ブック開いていたら3ブック目が、 4ブック開いていたら4ブックめが、処理できずに開いたままの状態です。 Dim Wb As Workbook For Each Wb In Workbooks 簡単な処理内容 ActiveWorkbook.Close SaveChanges:=True Next どのように改善すれば良いのでしょうか？
- ベストアンサー
- Visual Basic
- 個人用マクロブックにマクロをインポートする方法
エクセル2010でマクロを作成し、Visual Basicの画面でそれをエクスポートして保存すると、Module1.basというような名前のファイルができます。 それを他のPCの個人用マクロブックに入れたいのですが、デフォルトの状態であれば Visual Basicの画面でプロジェクトエクスプローラを見ても個人用マクロブックの領域が できておりません。 どのようにすれば、他のPCの個人用マクロブックに保存することが可能なのか、ご教授 願います。
- ベストアンサー
- Excel（エクセル）
- 共有フォルダの中にあるファイル 保存確認画面が出る
バージョンは2003で、ＯＳはＸＰです。 会社で共有フォルダの中にエクセルファイルを入れています。 そのファイルを開いて何もしないで、バツボタンで閉じようとすると 「変更を保存しますか？」の確認画面が表示されます。 ローカルフォルダに入っているエクセルファイルを開いて 何もいじらずバツボタンで閉じようとすると、閉じれますが 共有フォルダに入ってるファイルはなぜか確認画面がでます。 マクロは組まれていません。 共有フォルダに入っている場合はそうなるものなのでしょうか？
- ベストアンサー
- オフィス系ソフト
- EXCLEのVBAの”ブックの共有”の動きがおかしい。
EXCLEのVBAの”ブックの共有”の動きがおかしい。 いつもとても助かっています。 今日もよろしくお願い致します。 ＥＸＣＥＬ２０００のＶＢＡにて、 ThisWorkbookのWorkbook_Open()の中に記述することで、 原紙の書式ファイルを読み込んだ際に、 他のデータファイル（ＣＳＶ形式）を取込み、 ファイルの各種編集後（フィルター、行、列の非表示、等）に 他のファイル名にて保管する処理をしています。 （使途を説明すると、原紙の書式ファイルは各部署の担当者が毎回処理して、 保管されたファイルは各部署のメンバーが入力する為のものです。） また、データファイルを読み込んだあとのファイルであるという判断を あるセルにデータがあるかで判断しています。 （理由は、標準モジュールを残し、 本当はThisWorkbookを削除したいけど削除しないで、動かないようにする為です） この運用をはじめて、何とか業務が回るようになったのですが、 部署によってはメンバーが多い為に、 ”ブックの共有”をして運用をはじめたのです。 すると、”ブックの共有”をして１回目に開くと、 ”ウィンドウ枠の固定”で処理するのですが、 これがWorkbook_Open()の初回の処理で設定している数行分だけずれて、 ファイルが開かれてしまいます。 ちなみに、Workbook_Open()に、 ”ブックの共有”を判断してマクロを抜ける処理を追加しても駄目です。 何が考えられるのでしょうか？ 教えて下さい。 宜しくお願いします。 ***以下に、記述の一部を記します。 Private Sub Workbook_Open() : 'これを追加したけど、駄目です！！ If ActiveWorkbook.MultiUserEditing Then Exit Sub 'データ取込後に別名保存したファイルを開くとデータ有りでEXIT If Sheets("data").Range("A1").Value <> "" Then Exit Sub Range("F11").Select ActiveWindow.FreezePanes = True : Rows("1:6").Select Selection.EntireRow.Hidden = True '別名保存 ActiveWorkbook.SaveAs Filename:= _ ・・・$ & "メンバー用" & ".xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False : Application.Quit End Sub
- ベストアンサー
- Visual Basic
お礼
ご教授有難うございます。 DisplayAlertsで上手く処理でき解決しました。