Excel VBA質問箱 IV

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

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


45153 / 76732 ←次へ | 前へ→

【36582】Re:シートの保護をVBAで書くと・・
質問  an  - 06/4/4(火) 15:32 -

引用なし
パスワード
   ▼Jaka さん:
>今ごろですが、サンプル。
ありがとうございます!
DoEventsの使い方など分からないところが
たくさんありますが、勉強させて頂きます。

さらに図々しいですが、質問させてください。

シートの保護でパスワードをかけるとき、
以下の文ですと、その添付ファイルを開くときに
パスワードを要求されてしまいます。

入力しようとしたときのみパスワードを
設定するにはどのように書けばいいのでしょうか?

申し訳ありません、よろしくお願い致します。


途中で分からない構文
>作成したブックのシート枚数などが合わない等、エラー処理は入れてません。
>PasteSpecial止めて調整。4/4(見ないだろうけど)
>
>Sub Macro1()
>  Dim NEWWB As Workbook
>  Application.ScreenUpdating = False
>  Set NEWWB = Workbooks.Add
>  With ThisWorkbook
>    For i = 1 To 3
>      .Sheets(i).Cells.Copy NEWWB.Sheets(i).Range("A1")
>      NEWWB.Sheets(i).Name = .Sheets(i).Name
>      DoEvents
>    Next
>  End With
>  For i = 1 To 3
>    NEWWB.Sheets(i).Protect UserInterfaceOnly:=True, Contents:=True, Scenarios:=True
>  Next
>  NEWWB.SaveAs FileName:="保存フォルダ名\qqqqqqq.xls" _
>             , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
>              ReadOnlyRecommended:=False, CreateBackup:=False
>  Application.ScreenUpdating = True
>  NEWWB.Close
>  Set NEWWB = Nothing
>  MsgBox "終了"
>End Sub
5 hits

【36218】シートの保護をVBAで書くと・・ an 06/3/25(土) 10:42 質問
【36225】Re:シートの保護をVBAで書くと・・ yuu1 06/3/25(土) 13:51 回答
【36242】Re:シートの保護をVBAで書くと・・ an 06/3/25(土) 18:20 お礼
【36249】Re:シートの保護をVBAで書くと・・ yuu1 06/3/25(土) 23:56 回答
【36264】Re:シートの保護をVBAで書くと・・ an 06/3/27(月) 11:21 お礼
【36285】Re:シートの保護をVBAで書くと・・ yuu1 06/3/27(月) 15:44 回答
【36313】Re:シートの保護をVBAで書くと・・ an 06/3/28(火) 12:01 質問
【36450】Re:シートの保護をVBAで書くと・・ Jaka 06/3/31(金) 14:36 発言
【36581】Re:シートの保護をVBAで書くと・・ Jaka 06/4/4(火) 14:58 発言
【36582】Re:シートの保護をVBAで書くと・・ an 06/4/4(火) 15:32 質問
【36583】Re:シートの保護をVBAで書くと・・ an 06/4/4(火) 15:35 質問
【36584】Re:シートの保護をVBAで書くと・・ Jaka 06/4/4(火) 17:06 発言
【36623】Re:シートの保護をVBAで書くと・・ an 06/4/5(水) 17:57 お礼

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