下記のようなマクロをエクセルの中で記述し、エクセルの該当セルをダブルクリックしたときに
動くようにしています。
定義 セルA1:マーカー(例:P・・Passwordを掛けろ)
セルB1:パス
セルC1:ファイル名(今回、ext=DOCとします)
動きとしては、特にエラーが出ることもないのですが、肝心のパスワードロックが掛かっていません。
なぜだか、理由がわかりません。よろしくお願いします。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Application.Visible = False
Call Action_DOC(Target)
Application.Visible = True
End Sub
Sub Action_DOC(ByVal Target As Range)
Dim WdApp As Word.Application
Dim Fn As string
Set WdApp = New Word.Application
WdApp.Visible = True
Fn = Trim(Target.Offset(0, 1).Value) & "\" & Trim(Target.Offset(0, 2).Value)
WdApp.Documents.Open Filename:=Fn, PasswordDocument:="xxxxx"
WdApp.DisplayAlerts = False
WdApp.ActiveDocument.SaveAs2 Filename:=Fn, FileFormat:=wdFormatXMLDocument, LockComments:=False, Password:="xxxxx", AddToRecentFiles:=True, WritePassword:="", CompatibilityMode:=14
WdApp.ActiveWindow.Close
WdApp.Quit
Set WdApp = Nothing
End Sub
No.2ベストアンサー
- 回答日時:
内容的に問題ないと思いますが、Wordの場合は何か編集作業をしないと
上書き保存されません。何かを書き込んでから、書き込んだものを削除
するなどの作業をマクロに追加しないと、開いたファイルの上書き保存
が有効にならないのです。
http://stabucky.com/wp/archives/4346
上記サイトの場合だと、改行を追加し、削除する部分を追加することで
上書き保存を有効にしていますよね。
ありがとうございます。
「何も変更しない場合は、上書きとならない」、知りませんでした。
サジェスチョンを反映して、うまく行きました。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) EXCELのセル相互同期用のVBAでの不具合 3 2022/08/10 11:44
- Visual Basic(VBA) 実行時エラー´5854´ 文字列型パラメーターが長すぎます。 3 2023/06/08 21:17
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
- Visual Basic(VBA) エクセルで、1つのセルで上書き足し算して セルの範囲を指定できますか? パソコン初心者です。 お時間 3 2023/07/05 06:13
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
フォルダ内のブック全部にパスワードを設定したい
Excel(エクセル)
-
【VB.NET】 パワポ操作を非表示で
Visual Basic(VBA)
-
[VBA]標準機能のみでパス付zipファイルの解凍
Excel(エクセル)
-
-
4
(実行時エラー5852)ExcelデータをWordに差し込んだ後、Wordファイルを分割するマクロ
Word(ワード)
-
5
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
6
word 編集の制限 保護されたまま VBA
Word(ワード)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
結合されたセルの一部を変更す...
-
エクセルでハイパーリンクのコピー
-
エクセルでセル内改行の1行目...
-
エクセルの結合セル内に文章を...
-
エクセル 0:00 の時間をカウン...
-
エクセルのセルの右下の角の十...
-
アクティブセルとそのセルに隣...
-
VBAからのHYPERLINK関数のアド...
-
【Excel】 色の一致するセル数...
-
Word文書にパスワードをマクロ...
-
エクセル アンド関数の繰り返...
-
VBA ダブルクリックでセルの真...
-
PowerPointの表内のカンマ
-
INDEXとMATCH関数で#N/Aが出る...
-
エクセルでエンターを押すと隣...
-
【VBA】PDF出力に任意のファイ...
-
エクセルの計算式でコンマを付...
-
EXCELでタイトル行と一番下の行...
-
エクセルでleft関数の結果が表...
-
エクセル 印刷範囲外を非表示...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルでハイパーリンクのコピー
-
エクセルでセル内改行の1行目...
-
結合されたセルの一部を変更す...
-
エクセル 0:00 の時間をカウン...
-
【Excel】 色の一致するセル数...
-
エクセルの結合セル内に文章を...
-
エクセルのセル内で改行コピー...
-
アクティブセルとそのセルに隣...
-
エクセルで 来年の曜日の自動設定
-
VBAからのHYPERLINK関数のアド...
-
Word文書にパスワードをマクロ...
-
Excel vba 毎月の第○ △曜日を求...
-
エクセル 行も列もバラバラの入...
-
VBA セル内で改行またはカンマ...
-
Excel セル貼り付けができません
-
エクセルで納期遅れのセルを色...
-
エクセルのセルの右下の角の十...
-
Excel VBAで可視セルをコピーし...
-
MSNメッセンジャーにエクセルか...
-
エクセルVBAで外部ソフトFFF...
おすすめ情報