1

ワークブック (WB1) を開きたいのですが、それが開かれると、別のワークブック (WB2) が開かれます。WB2を非表示にしたい。 

Private Sub Workbook_Open()

Application.ScreenUpdating = False
Workbooks.Open Filename:="C:\WB2.xlsm"
ActiveWindow.Visible = False

End Sub

これは私がこれまでに持っているものであり、両方のワークブックを非表示にすることです。WB1 が一番上に表示されたままになるようにします。

ありがとうございました！ジョシュ

4

3 に答える 3

3

重要な部分は、ビューを再びオンにする方法のようです。他の投稿が答えです..コミットする前に、それが機能するのを確認する必要がありました。これがそれを説明するのに十分であることを願っていますが、より少ないスペースで行われた可能性があります。ありがとう。

重要な作業ラインを説明するいくつかの単語を投稿することに同意する必要があります. 私はvbの初心者であり、99％の投稿で必要な変数を取得するために調査が必要であると言わざるを得ません。私はいくつかの罵倒語を追加するのに十分だと信じています。

その結果、地球上の誰もが 2 時間から無限の時間を費やさなければなりません。
(コードを持ってくれてありがとう。コードをボックスに入れるには、行を含める/スペース行が干渉するように微調整する必要がありますか?)。

私が見つけたもの: 変更が機能しない可能性があります: .Visible および .Hidden - windows(1) の 1 が何のためにあるのかわかりません。

sub TEST1()    'in a module
'if want to happen when you open a wb, place in: "ThisWorkbook" module as:
'Private Sub Workbook_Open()    


    Dim wb As Workbook
    'Set wb = Workbooks("WB2.xlsm")      'YES
    'Set wb = Workbooks(Filename:="C:\WB2.xlsm")    'untried should work for path eg
    'Set wb = Workbooks.Open(Filename:="C:\WB2.xlsm")   'original, with a command added: open
    Application.ScreenUpdating = False

    If 0 = 0 Then   'set to: if 0 = 1 to skip test
      If wb.WINDOWS(1).Visible = False Then   'TOGGLES: press F5 or run macro button
        wb.WINDOWS(1).Visible = True
        MsgBox "Workbook is NOT Hidden" & Space(10), vbQuestion  'a good test method
      Else
        wb.WINDOWS(1).Visible = False     '<< line to use, to hide wb on open
        MsgBox "Workbook is Hidden" & Space(10), vbQuestion  'a good test method
      End If

    Else
        wb.WINDOWS(1).Visible = False     '<< line to use, to hide wb on open
    end if
End Sub
于 2015-07-25T02:23:38.113 に答える
2 
Private Sub Workbook_Open()
    Dim wb as workbook
    Application.ScreenUpdating = False
    set wb=Workbooks.Open(Filename:="C:\WB2.xlsm")
    wb.Windows(1).Visible = False

End Sub
于 2014-02-03T21:40:49.067 に答える