B
Bill Schanks
I have this code:
Private Sub cmdOk_Click()
Select Case iOption
Case 1 'Save Changes and check in
Application.ActiveWorkbook.Save
Application.ActiveWorkbook.CheckIn SaveChanges:=True, _
Comments:=Me.txtNotesOnVersion, MakePublic:=False
Case 2 'Discard changes and undo check out
Application.ActiveWorkbook.CheckIn False
Application.ActiveWorkbook.Close False
Case Else 'Shouldn't happen unless there is a problem with the code
Call MsgBox("Error! Unable to determine what option was
choosen. " _
& "Please inform " & conAppAuthor, vbCritical + vbOKOnly,
conAppName)
End Select
End Sub
------
It's giving me the error:
Method 'CheckIn' of object '_workbook' failed
When I attempt to run it. It is failing at the in the option 1 code for
the checkin method. If I take the same code and run it from the debug
window it works fine.
Private Sub cmdOk_Click()
Select Case iOption
Case 1 'Save Changes and check in
Application.ActiveWorkbook.Save
Application.ActiveWorkbook.CheckIn SaveChanges:=True, _
Comments:=Me.txtNotesOnVersion, MakePublic:=False
Case 2 'Discard changes and undo check out
Application.ActiveWorkbook.CheckIn False
Application.ActiveWorkbook.Close False
Case Else 'Shouldn't happen unless there is a problem with the code
Call MsgBox("Error! Unable to determine what option was
choosen. " _
& "Please inform " & conAppAuthor, vbCritical + vbOKOnly,
conAppName)
End Select
End Sub
------
It's giving me the error:
Method 'CheckIn' of object '_workbook' failed
When I attempt to run it. It is failing at the in the option 1 code for
the checkin method. If I take the same code and run it from the debug
window it works fine.