AW: Idee: AW: Aktualisieren wenn Datei geöffnet
05.04.2013 10:55:31
Gerwin
Hallo Klaus,
danke für deine Antwort, scheint mir eine logische möglichkeit zu sein, bin aber glaub ich nicht clever genug sie umzusetzen.
Sub Aktualisieren()
' Aktualisieren Makro
ActiveSheet.Unprotect Password:=("1234")
ActiveWorkbook.Unprotect Password:=("1234")
On Error GoTo ErrMsg
ActiveWorkbook.UpdateLink Name:= _
"K:\Material\Materialdatenbank_Bestellformular\Materialdatenbank_2.0.xlsm", _
Type:=xlExcelLinks
ActiveWorkbook.Protect Password:=("1234")
ActiveSheet.Protect Password:=("1234")
ErrMsg:
Dim strText As String
strText = "(K:\Material\Materialdatenbank_Bestellformular\Materialdatenbank_2.0.xlsm[ _
Userabfrage].Range(A1)"
MsgBox "Die Materialdatenbank ist zurzeit geöffnet durch den Benutzer " & strText, 16, " _
Datenbank geöffnet"
End Sub
Evtl. du oder jemand anders ne Idee?
VG
Gerwin
Anzeige