'Aufruf aus modaler Userform über einen Button
 
Private Sub cmdSymbAnp_Click()
    Dim strSymPfad As String
    Dim wbMappe As Workbook
    Dim blnOffen As Boolean
    Dim frmHilfe As New frmHelp
 
    strProjPfad = "C:\Dokumente und Einstellungen\Capitan\Desktop\Test"
    If MsgBox("Wollen Sie absolute Adressen oder Kommentare in der" & _
      "Symboltabelle ändern?", vbQuestion + vbYesNo, _
              "Meldung") = vbYes Then
 
        strSymPfad = strProjPfad + "\Master_Symbolik_Liste.xls"
        Application.Visible = True
        Workbooks.Open strSymPfad
        'Hiden der offenen Userforms
        Me.Hide
        frmStartbild.Hide
        'nicht modale Userform zur Hilfeanzeigen, dass VBA-Programm erst 
        ' fortfährt wenn
        'geöffnetes Workbook gespeichert und beendet wurde
        frmHelp.Show (vbModeless)
    End If
    imgHaken2.Picture = LoadPicture(ThisWorkbook.Path + "\Images\checked.bmp")
End Sub
 
'Userform frmHelp
 
' benötigte API-Deklaration
Private Declare Function WaitForSingleObject Lib "kernel32" ( _
  ByVal hHandle As Long, _
  ByVal dwMilliseconds As Long) As Long
' Ewartet wird die Zeitangabe in Millisekunden!
' z.B. 1000 für 1 Sekunde
Public Function Wait(ByVal mSek As Long)
  WaitForSingleObject -1, mSek
End Function
 
Private Sub UserForm_Initialize()
    Dim wbMappe As Workbook
    Dim blnWBoffen As Boolean
 
    txtHelp.Text = "Bitte editieren Sie die Symbolik falls nötig und Speichern" & _
      "anschließend," + Chr(13) + _
                   "bevor Sie die Excel-Datei wieder schließen und die" & _
                   "Konfiguration fortsetzen!"
    txtHelp.Locked = True
    'Wie manuelles Editieren im Workbook möglich?
 
        'Wenn noch geöffnet dann 2s warten und anschließend wieder prüfen
        'Während Sub in Schleife ist muss Excel-File manuell (nicht über Code) 
        ' editierbar sein!!!
        blnWBoffen = True
        While blnWBoffen = True
            blnWBoffen = False
            For Each wbMappe In Workbooks
                If wbMappe.Name = "Master_Symbolik_Liste.xls" Then
                    blnWBoffen = True ' Datei gefunden
                    Exit For
                End If
            Next wbMappe
 
            If blnWBoffen = True Then Wait 2000 'Wartezeit
        Wend
        Waitforsingleobject (......) 'mit welchen Parametern setzen???
End Sub