隠しワークシートでVBAマクロを使用する方法そしてそれらを隠す

Question

私はVBAの初心者です。このフォーラムを使用することで、コードを書くことができましたが、私は1つの場所で立ち往生しています。

ブックには10枚あります。最初のシートは私の入力ワークシートであり、すべての計算を行います。これらの計算は、後の9枚に引かれます。これらの9枚は私のレポートを生成します。計算ファイルでは、次の9ファイルをすべて非表示にしてマクロを実行します。一度計算が大丈夫です。 [Generate report]ボタンをクリックすると、新しいファイルが作成され、デスクトップ上に開き、ドキュメントに保存されます。

問題は - どういうわけか、私はすべてを行うコードを生成することができました。このフォーラムを通過するが、私は隠すを取得し、一部を再表示することはできませんよ。 私が書いたコードは、計算ファイルからすべてのファイルを非表示にしています（非表示にしておく）、新しく生成されたレポートにファイルを非表示にします（新しいExcelですべてのファイルを非表示にすることはできません。ワークシートクラスのvisibleプロパティ）。だから、残りはマクロ作品を隠されたまま、私は計算ファイル内の唯一の1枚を持つことができます -

は、ここで私はそれを解決する助けてください私のコードです。新しく生成されたファイルには、9つのタブがすべて表示されます。

Sub SaveMain() 

Application.EnableEvents = False 
Sheets("Cover").Visible = True 
Sheets("2").Visible = True 
Sheets("3").Visible = True 
Sheets("4").Visible = True 
Sheets("5").Visible = True 
Sheets("6").Visible = True 
Sheets("7").Visible = True 
Sheets("8").Visible = True 
Sheets("9").Visible = True 

Dim Flname As String 


Flname = "Pump Datasheet" & InputBox("Enter Pump tag No P-XXXX:") & ".xls" 

Sheets(Array("Cover", "2", "3", "4", "5", "6", "7", "8", "9")).Copy 

Sheets("Cover").Visible = False 
Sheets("2").Visible = False 
Sheets("3").Visible = False 
Sheets("4").Visible = False 
Sheets("5").Visible = False 
Sheets("6").Visible = False 
Sheets("7").Visible = False 
Sheets("8").Visible = False 
Sheets("9").Visible = False 

newfilename = Flname 

With ActiveWorkbook 
.SaveAs newfilename, FileFormat:=50 

End With 

Application.EnableEvents = True 

End Sub 

Answer 1

このようにシートを隠して隠してみると、後で変更する必要がある場合、多くのエネルギーを節約できます。

Dim ws As Worksheet 

'To unhide all sheets 
For Each ws In ActiveWorkbook.Sheets 
    ws.Visible = xlSheetVisible 
Next 

'To hide all sheets except "Cover" 
For Each ws In ActiveWorkbook.Sheets 
    If ws.Name <> "Cover" Then 
     ws.Visible = xlSheetHidden 
    End If 
Next 

Answer 2

あなたはカバーが最初に存在することを確認するために、これを微調整することをお勧め。

シートを非表示にするループをより直接的に設定することができます。実際には、次にのテストは必要ありません。

Sub Sheeted() 
Dim ws As Worksheet 

On Error Resume Next 
Set ws = Sheets("Cover") 
On Error GoTo 0 

If ws Is Nothing Then Exit Sub 

For Each ws In ActiveWorkbook.Sheets 
    ws.Visible = (ws.Name = "Cover") 
Next 
End Sub 

Answer 3

は試行錯誤によって、あなたの助けを借りて、それを考え出したどのように私いくつかの 君たちをありがとうございます。 私はちょうどこのグループのどこかで見たものを閉じます。

すべての提案に基づいて変更されたコードです。不必要なものがあるかもしれませんが、どういうわけかそれは動作します。 多くありがとうございました

Sub SaveMain() 

Dim Flname As String 
Dim ws As Worksheet 

Application.EnableEvents = False 
For Each ws In ActiveWorkbook.Sheets 
ws.Visible = xlSheetVisible 
Next 

Flname = "Pump Datasheet-" & InputBox("Enter Pump tag No P-XXXX:") & ".xls" 

Sheets(Array("Cover", "2", "3", "4", "5", "6", "7", "8", "9")).Copy 

newfilename = Flname 

With ActiveWorkbook 
.SaveAs newfilename, FileFormat:=50 
.Close 0 
End With 
For Each ws In ActiveWorkbook.Sheets 
If ws.Name <> "Calculations" Then 
ws.Visible = xlSheetVeryHidden 
End If 

Next 

Application.EnableEvents = True 

End Sub