Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 8
Default Checking access to Sharepoint prior to use

Is there a way I can check Sharepoint log ins prior using Excel's VBA
sharepoint features to save files to a sharepoint site?

I already have this code:

Public Const SharePointPath = "\\sharepoint.xxxxxx.com\sites\mysite"

' Determine if workbook can be checked out.
On Error GoTo ErrorHandler
'Fails if User not Logged into Sharepoint
If Workbooks.CanCheckOut(Filename:=savename) = True Then
Workbooks.CheckOut savename
MsgBox "Checked out file from SharePoint: " & file
End If

'I actually don't need to open file
'Workbooks.Open (savename)

'Instead save over it.
ActiveWorkbook.SaveAs Filename:=savename,
FileFormat:=xlWorkbookNormal
'Check it in -- works if I checked it Out

If Workbooks(ActiveWorkbook.Name).CanCheckIn = True Then
Workbooks(ActiveWorkbook.Name).CheckIn
savechanges:=SaveDuringClose, Comments:="", MakePublic:=True
MsgBox file & " has been checked in."
Else
MsgBox "This file cannot be checked in " & _
"at this time. Please try again later, " & _
"someone else who has write access could have it Checked
Out."

End If

Else
ErrorHandler:
MsgBox ("You may not be able to log into Sharepoint Server for this
process to work.")
ActiveWorkbook.SaveAs Filename:=savename, FileFormat:=xlWorkbookNormal
If Closefile = True Then ActiveWorkbook.Close
savechanges:=SaveDuringClose
End If

Thanks,
Dalejrstwin
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Excel links & SharePoint 3.0 (worked fine with SharePoint 2.0) ScottFisher2004 Excel Discussion (Misc queries) 0 November 10th 08 03:26 PM
Checking to see that a CHART exists prior to running a simple command Anton Excel Discussion (Misc queries) 0 August 29th 06 06:30 AM
Checking Client Status Prior to Save jan8121 New Users to Excel 0 July 30th 06 11:06 AM
Checking documents into Sharepoint Casey Robertson Excel Discussion (Misc queries) 0 June 6th 06 01:23 AM
Delete Worksheets Prior To Access DoCmd.TransferSpreadsheet wheatcracker Excel Programming 0 March 2nd 06 12:18 AM


All times are GMT +1. The time now is 08:51 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"