Excel VBA質問箱 IV

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

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


45157 / 76735 ←次へ | 前へ→

【36581】Re:シートの保護をVBAで書くと・・
発言  Jaka  - 06/4/4(火) 14:58 -

引用なし
パスワード
   今ごろですが、サンプル。
作成したブックのシート枚数などが合わない等、エラー処理は入れてません。
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

0 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 お礼

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