title image


Smiley Mit dieser Function sollte das gehn




Public Function ChangeAccessMode(ByVal xlFile As String, ByVal xlAccessMode As XlSaveAsAccessMode) As Boolean



Dim objWb As Excel.Workbook



On Error GoTo ErrHandler



ChangeAccessMode = False



Set objWb = Application.Workbooks.Open(Filename:=xlFile, ReadOnly:=False)

Application.DisplayAlerts = False

If xlAccessMode = xlExclusive Then objWb.ExclusiveAccess

objWb.SaveAs Filename:=xlFile, AccessMode:=xlAccessMode

Application.DisplayAlerts = True

objWb.Close SaveChanges:=False

ChangeAccessMode = True



ErrExit:

On Error Resume Next

Set objWb = Nothing

Exit Function



ErrHandler:

ChangeAccessMode = False

Resume ErrExit



End Function







Aufruf dann etwa so:





MsgBox ChangeAccessMode("C:\Temp\asdf.xls", xlShared)

' oder aber

MsgBox ChangeAccessMode("C:\Temp\lf50907\asdf.xls", xlExclusive)





Die MsgBox gibt True zurück, wenns geklappt hat.



Schönen Gruß,

Eric

Spotlight-Kicktipp gestartet!

Steig ein und trete mit Deinem Bundesliga-Tipp gegen die Besten an! :o)

http://www.kicktipp.de/spotlight/



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: