WHY the workbook is locked!

[sal21]

When i open the workbook from Excel! ... is loked REPORT_ESTERO.xls

My code:

Code: Select all

Private Sub Command2_Click()

'REGIONE

    Dim DATANOW As String

    Me.Text1.SetFocus

    Screen.MousePointer = vbHourglass
    DoEvents

    If Me.LNRC.Caption > "" Then

        Me.LAZIONI.Caption = "ESPORT REGIONI .XLS. ATTENDERE PREGO!"
        DoEvents

        DATANOW = Format(CDate(Now), "DD-MM-YYYY")

        Set OBJXL = CreateObject("Excel.Application")
        Set WBXL = OBJXL.Workbooks.Open(STRPATHXLS & "REPORT_ESTERO.xls")
        OBJXL.Visible = False

        Set WSXL = WBXL.Sheets("REGIONI")

        Dim R As Long, C As Long, NUMC As Integer

        OBJXL.ScreenUpdating = False

        With Me.MSFlexGrid1

            NUMC = .cols - 5

            For R = 2 To .rows - 1

                For C = 0 To NUMC

                    WSXL.cells(R, C + 1).Value = .TextMatrix(R, C)
                    DoEvents

                Next C

            Next R

        End With

        OBJXL.ScreenUpdating = True

        If Dir(STRPATHXLS & "REPORT_REGIONI-" & ANNO & "-" & DATANOW & ".xls") <> "" Then
            Kill ("REPORT_REGIONI-" & ANNO & "-" & DATANOW & ".xls")
        End If

        OBJXL.DisplayAlerts = False
        WBXL.Sheets("PROVINCE").Delete
        OBJXL.DisplayAlerts = True

        Dim answer As Integer
        answer = MsgBox("VUOI ANCHE STAMPARE?", vbQuestion + vbYesNo)
        If answer = vbYes Then
            Me.LAZIONI.Caption = "STAMPA IN CORSO..."
            DoEvents
            WBXL.Sheets("REGIONI").PrintOut
        End If

        WBXL.SaveAs STRPATHXLS & "REPORT_REGIONI-" & ANNO & "-" & DATANOW & ".xls"
        WBXL.Close SaveChanges:=False

        Set WBXL = Nothing
        Set WSXL = Nothing

        OBJXL.Quit
        Set OBJXL = Nothing

        Me.LAZIONI.Caption = "FINE ESPORT!"
        DoEvents
        Sleep (1500)
        Me.LAZIONI.Caption = ""

        Me.Text1.SetFocus

    Else

        Beep
        Me.LAZIONI.Caption = "NESSUN DATO DA ESPORTARE!"
        DoEvents
        Sleep (1500)
        Me.LAZIONI.Caption = ""
        Me.Text1.SetFocus

    End If

    Screen.MousePointer = vbDefault
    DoEvents

End Sub

[HansV]

What happens if double-click REPORT_ESTERO.xls in File Explorer? Do you get the same message?

[sal21]

What happens if double-click REPORT_ESTERO.xls in File Explorer? Do you get the same message?

Yes!

[HansV]

So the problem is not your code. Either the workbook is already open, or its author has set it to be read-only. You can change the line

Code: Select all

        Set WBXL = OBJXL.Workbooks.Open(STRPATHXLS & "REPORT_ESTERO.xls")

to

Code: Select all

    Set WBXL = OBJXL.Workbooks.Open(Filename:=STRPATHXLS & "REPORT_ESTERO.xls", ReadOnly:=True)

But if you edit the workbook, you'll have to save it under a different name.

[SpeakEasy]

Got any unexpected instances of Excel showing in Task Manager?