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