auto_open greift nicht bei Dateiaufruf über Makro
13.03.2003 12:38:59
Vossy
ich habe eine Datei, die auf einigen PC's nur per Makro über eine Schaltfläche aufgerufen werden kann. Diese Datei beinhaltet auch eine auto_open-Prozedur. Leider läuft diese Prozedur
nur dann, wenn ich die Datei per Hand öffne (Datei-öffnen bzw. über Explorer). Sobald die Datei per Makro über die Schaltfläche
geöffnet wird, wird die auto_open-Prozedur nicht ausgeführt.
Ich bin inzwischen völlig ratlos. Wer kann mir weiterhelfen
danke im voraus
Vossy
hier das Makro
Private Sub Auto_open()
Dim user
user = Application.UserName
If Sheets(3).Cells(3, 2) = "" Then
Sheets(3).Cells(3, 2) = user
ThisWorkbook.Save
Else
user = Sheets(3).Cells(3, 2)
MsgBox " Die Datei wird zur Zeit von " & Chr(13) & _
user & Chr(13) & " verwendet!"
Workbooks("Zugriffstest.xls").Close SaveChanges:=False
End If
End Sub