| |
横から失礼します。
再度の説明を見てもよくわからないのですが＾＾
ユーザがマクロを使わずに手操作でＰＤＦ印刷を行ったら
パスを設定する意味ないと思いますが、何を制限させたいのでしょう？
ExcelファイルsheetのD1のワードとどこに入力されているワードが
同じであればいいのですか？
参照するパスはシートに入力しておくよりマクロ内に記述しておく方が
いいような。
＞他のExcelファイル時でも対応できるようにしたい
上記についてはマクロファイルを独立させればいいでしょう。
以下に、簡単にパスを照合して、あっていたらプリンタ指定ダイアログを
表示しＰＤＦを選択すればＰＤＦ出力できる。というマクロです。
参考になりますか？
Sub Macro1()
Dim keyWD1 As String, keyWD2 As String
keyWD1 = "123" ←パスワード
keyWD2 = Application.InputBox("パス入力")
If keyWD2 = "False" Then
Exit Sub
ElseIf keyWD1 = keyWD2 Then
On Error Resume Next
Application.Dialogs(xlDialogPrinterSetup).Show
ActiveSheet.PrintOut
On Error GoTo 0
Else
MsgBox "パスが違います"
Exit Sub
End If
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
