|
すごく参考になりました。やりたい事に凄く近いのですが、
ファイルメニューから印刷をクリックした時にパスワードを照合させる事は
出来ないのでしょうか??
▼street さん:
>横から失礼します。
>再度の説明を見てもよくわからないのですが^^
>
>ユーザがマクロを使わずに手操作でPDF印刷を行ったら
>パスを設定する意味ないと思いますが、何を制限させたいのでしょう?
>
>ExcelファイルsheetのD1のワードとどこに入力されているワードが
>同じであればいいのですか?
>
>参照するパスはシートに入力しておくよりマクロ内に記述しておく方が
>いいような。
>
>>他のExcelファイル時でも対応できるようにしたい
>上記についてはマクロファイルを独立させればいいでしょう。
>
>以下に、簡単にパスを照合して、あっていたらプリンタ指定ダイアログを
>表示しPDFを選択すればPDF出力できる。というマクロです。
>参考になりますか?
>
>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
|
|