Dear Experts,
With My limited knowledge in VBA, I am unable to Move Forward! Would need your support to modify below coding as per my Request.
Private Sub btnAdd_Click() Dim ssheet As Worksheet Set ssheet = ThisWorkbook.Sheets("Changes Tracker") nr = ssheet.Cells(Rows.Count, 1).End(xlUp).Row + 1 ssheet.Cells(nr, 1) = CDate(Me.tbDate) ssheet.Cells(nr, 2) = Me.tbPartNumber ssheet.Cells(nr, 3) = Me.tbSegment ssheet.Cells(nr, 4) = Me.tbRequestedBy ssheet.Cells(nr, 5) = Me.tbReasonforChanges ssheet.Cells(nr, 6) = Me.tbRemarks MsgBox ("Your Entry is Upated in DataBase") Unload Me ActiveSheet.Unprotect Password:="ABC" UserForm1.Show vbModeless Do While UserForm1.Visible DoEvents Loop ActiveSheet.Protect Password:="ABC" End Sub
When I double click on Range C2:V100 on worksheet “ProjectA 08Nov2016” There is a popup userform which demand User to enter data. And Those data are getting updated in “Changes Tracker Worksheet”.
In the Above Coding, After Active Sheet Gets Unprotected, Userform1 is Popping up in the, in the same worksheet.
However, Though Userform1 vbModeless I am still not able to Edit or Modify any Data on the Worksheet!
Request 1 :- How to do Enable accessing of worksheet (Add, Delete, Modify Etc.,) when Userform1 is Opened?
Request 2:- Useform1 should automatically close 60 Seconds from its get Pop up, What should be conding for the Same.
Need Your Valuable Suggestions on my above Request Please! Immediate support is Really Appreciated!
Thanks & Regards,
Rajeshkumar R
Bookmarks