How to open file in the background. It is possible?

[Andrzej]

I would like to open file, but I do not want to people saw this.

I have a code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim szukana As Range
Dim Cecha As String
Dim bk As Workbook
Dim sh As Worksheet
Dim sh1 As Worksheet

If Not Application.Intersect(Columns("A:A"), Target) _
Is Nothing Then
Cecha = Target.Value

If Cecha = "" Then Exit Sub
On Error Resume Next
Set bk = Workbooks(p1.xls)
On Error GoTo 0
If bk Is Nothing Then
Set bk = Workbooks.Open(Filename:="H:\....p1.xls")
End If

Set sh1 = bk.Worksheets(bk.Worksheets.Count)
For Each sh In bk.Worksheets
Set szukana = sh.Cells.Find(What:=Cecha, _
After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase:=False, _
SearchFormat:=False)
If szukana Is Nothing Then
If sh.Name = sh1.Name Then
MsgBox "Sorry, but " & Cecha & " was not found"
ActiveWorkbook.Close
Target.Value = ""

End If
Else
bk.Activate
sh.Activate
szukana.Activate
MsgBox "Szukana cecha " & Cecha & " was found"
ActiveWorkbook.Close

End If
Next sh

End If

End Sub

[Robin Hammond]

Application.ScreenUpdating = FALSE should do it. Set it back to true after
you have closed the workbook.

Robin Hammond
www.enhanceddatasystems.com

"Andrzej" <a22p@wp.pl> wrote in message
news:%23f$BubiZFHA.3184@TK2MSFTNGP15.phx.gbl...
>
> I would like to open file, but I do not want to people saw this.
>
> I have a code:
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> Dim szukana As Range
> Dim Cecha As String
> Dim bk As Workbook
> Dim sh As Worksheet
> Dim sh1 As Worksheet
>
> If Not Application.Intersect(Columns("A:A"), Target) _
> Is Nothing Then
> Cecha = Target.Value
>
> If Cecha = "" Then Exit Sub
> On Error Resume Next
> Set bk = Workbooks(p1.xls)
> On Error GoTo 0
> If bk Is Nothing Then
> Set bk = Workbooks.Open(Filename:="H:\....p1.xls")
> End If
>
> Set sh1 = bk.Worksheets(bk.Worksheets.Count)
> For Each sh In bk.Worksheets
> Set szukana = sh.Cells.Find(What:=Cecha, _
> After:=ActiveCell, LookIn:=xlFormulas, _
> LookAt:=xlPart, SearchOrder:=xlByColumns, _
> SearchDirection:=xlNext, MatchCase:=False, _
> SearchFormat:=False)
> If szukana Is Nothing Then
> If sh.Name = sh1.Name Then
> MsgBox "Sorry, but " & Cecha & " was not found"
> ActiveWorkbook.Close
> Target.Value = ""
>
> End If
> Else
> bk.Activate
> sh.Activate
> szukana.Activate
> MsgBox "Szukana cecha " & Cecha & " was found"
> ActiveWorkbook.Close
>
> End If
> Next sh
>
> End If
>
> End Sub
>
>
>
>