Problem mit einer Klasse in eigenem AddIn
08.10.2016 08:44:32
Kasimir
Ich benötige mal wieder Hilfe. Ich habe nachfolgenden Code in einem AddIn:
Klassenmodul clsApplication
Private WithEvents myApp As Application
Private Sub Class_Initialize()
Set myApp = Application
End Sub
Private Sub Class_Terminate()
Set myApp = Nothing
End Sub
Private Sub myApp_WorkbookOpen(ByVal Wb As Workbook)
On Error Resume Next
If ActiveWorkbook.ReadOnly Then
MsgBox "Da ein anderer Benutzer die Datei bereits offen hat, wird diese Datei wieder _
geschlossen!", _
vbInformation + vbOKOnly, "Abbruch..."
ActiveWorkbook.Close (False)
End If
On Error GoTo 0
End Sub
DieseArbeitsmappe
Private Sub Workbook_Open()
Set objApp = New clsApplication
End Sub
Nun ist das Problem, dass mir die Meldung beim 1. Öffnen von Excel bei einer leeren Arbeitsmappe bereits angezeigt wird. Da ist aber noch keine zu prüfende Datei offen. Weiß jemand, warum ich diese Meldung bereits beim 1. Öffnen erhalte?Danke Euch schon mal im Voraus
Kasimir