HOME>TOP>ワークブック

ブックのアクセス権を変更するには?


キーワード>>ChangeFileAccess・属性・変更

Point :ブックを

Sub Test()

   Dim i, FindWName

   FindWName = "Book1.xls"
    'Book1.xlsという名前ブックを探します。
    '違うブックを探したい場合は "" の中身をかえてください。


   For i = Workbooks.Count To 1 Step -1
     If Workbooks(i).Name = FindWName Then
      Exit For
     End If
  Next i

   If i <> 0 Then
   'ループが回り切ると0になるため

    MsgBox FindWName & "は存在します"
  Else
    MsgBox FindWName & "は存在しません"
  End If

End Sub


掲載サンプルコードの使用に関して、直接・間接
を問わず生じた一切の損害について如何なる責任も負いません。