Userform Read only to Read/Write

[WES29]

I am trying to have a series of userforms that will allow users to view the information in our database. I have a button that changes from read only to read/write but it closes the userform. How do i stop it from closing the userform?

[Logit]

.
Post your code.

Please utilize the # from the above menu.

[WES29]

Private Sub Rite_Click()



 ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite


 Home.NewJob.Enabled = True
 Home.NewWO.Enabled = True
 Home.Manage.Enabled = True
 Home.Rite.Visible = False
 Home.Reed.Visible = True




 End Sub

[Logit]

.
I don't see anything that would open or close a userform.

[WES29]

This is the code for the button to switch from Read only to Read Write. As soon as it executes it shuts the user from and opens the workbook.