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