Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


20697 / 76736 ←次へ | 前へ→

【61452】Re:ExcelからのPDF変換について(マクロ化)
回答  street  - 09/5/8(金) 18:45 -

引用なし
パスワード
   Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim keyWD1 As String, keyWD2 As String
  keyWD1 = "123"
  keyWD2 = Application.InputBox("パス入力")
  If keyWD2 = "False" Then
    Exit Sub
  ElseIf keyWD1 = keyWD2 Then
    Exit Sub
  Else
    MsgBox "パスが違います"
    SendKeys "{ESC}"
    Exit Sub
  End If
End Sub
エラートラップなどしていないので、使用状況にあわせて設定されてください。
0 hits

【61344】ExcelからのPDF変換について(マクロ化) TOKU 09/4/28(火) 14:13 質問
【61350】Re:ExcelからのPDF変換について(マクロ化) つるりん 09/4/29(水) 11:25 発言
【61380】Re:ExcelからのPDF変換について(マクロ化) TOKU 09/5/5(火) 12:37 発言
【61389】Re:ExcelからのPDF変換について(マクロ化) street 09/5/5(火) 21:16 回答
【61435】Re:ExcelからのPDF変換について(マクロ化) TOKU 09/5/8(金) 9:11 発言
【61452】Re:ExcelからのPDF変換について(マクロ化) street 09/5/8(金) 18:45 回答
【61454】Re:ExcelからのPDF変換について(マクロ化) TOKU 09/5/8(金) 22:53 お礼

20697 / 76736 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free