troubleshooting Question

Workbook gets saved as readonly

Avatar of RIAS
RIASFlag for United Kingdom of Great Britain and Northern Ireland asked on
Visual Basic.NET.NET ProgrammingMicrosoft Excel
18 Comments1 Solution136 ViewsLast Modified:
I am trying to save a workbook but it saves as read only any suggestions?


 Public Function ReturnDevAreaPath() As String
        Dim strresponse As String
        Dim o As New SaveFileDialog
        ' Dim strwkname As String
        Dim ExcelBook, bookname As String
        o.Filter = "Excel File (*.xls)|*.xls"
        o.Title = "Save Excel Workbook As"
        o.Filter = "Excel Spreadsheets (*.xlsx)|*.xlsx"
        Dim str As String = "MedicalExcelReport"
        o.FileName = str

        strresponse = o.ShowDialog()
        Application.DoEvents()
        If strresponse = 1 Then
            Application.DoEvents()
            ExcelBook = o.FileName
            bookname = ExcelBook
            Return ExcelBook
        End If
    End Function
ASKER CERTIFIED SOLUTION
AndyAinscow
Freelance programmer / Consultant

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Join our community to see this answer!
Unlock 1 Answer and 18 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 18 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros