Datei bereits geöffnet
05.08.2003 16:08:53
Peter
habe nach einigen Suchen diesem Makro gefunden. Brauche aber noch eine kleine Hilfe ...
Ich möchte mit der MsgBox arbeiten
MsgBox "Datei ist bereits geöffnet !"
geht es auch, das mir angezeigt wird wer (UserName) zur Zeit damit arbeitet ?!
Gruß Peter
Option Explicit
Function MappeOffen(MappeName As String) As Boolean
Dim StName As String
On Error GoTo Nonexistent
StName = Workbooks(MappeName).Name
MappeOffen = True
Exit Function
Nonexistent:
MappeOffen = False
End Function
Sub DateiZustand()
Dim DatNam As String
DatNam = "Test.xls"
If MappeOffen(DatNam) = True Then
MsgBox "Datei ist bereits geöffnet !"
'hier ggf. Datei aktivieren
Else
MsgBox "Datei ist z.Zt. nicht geöffnet !"
'hier ggf. Datei öffnen
End If
End Sub
Viel Erfolg wünscht
WernerB.