I am looking for something similar so can you send me a workbook with the example as i am not familiar with VBA....
THanks, Dharmesh On Mon, Nov 23, 2009 at 9:08 PM, RolfJ <r...@pacificsound.us> wrote: > Here is a slight correction to my previous response. The eventhandlers > in the ThisWorkbook VBA module need to be modified as follows: > > Private Sub Workbook_BeforeClose(Cancel As Boolean) > UserForm1.cmdButton.Caption = "Close Workbook" > UserForm1.Show vbModal > End Sub > > Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As > Boolean) > UserForm1.cmdButton.Caption = "Save Workbook" > UserForm1.Show vbModal > End Sub > > Best wishes, > Rolf Jaeger > SoarentComputing > http://soarentcomputing.com/SoarentComputing/ExcelSolutions.htm > > > On Nov 23, 5:53 pm, RolfJ <r...@pacificsound.us> wrote: > > If I correctly understand what you are trying to do you could add a > > UserForm to your workbook, add five checkboxes and one command button > > and then place the following code in its VBA module: > > > > Option Explicit > > > > Dim b_UserIsFinished As Boolean > > > > Private Sub CheckBox1_Click() > > cmdButton.Enabled = AllTasksFinished > > End Sub > > > > Private Sub CheckBox2_Click() > > cmdButton.Enabled = AllTasksFinished > > End Sub > > > > Private Sub CheckBox3_Click() > > cmdButton.Enabled = AllTasksFinished > > End Sub > > > > Private Sub CheckBox4_Click() > > cmdButton.Enabled = AllTasksFinished > > End Sub > > > > Private Sub CheckBox5_Click() > > cmdButton.Enabled = AllTasksFinished > > End Sub > > > > Private Sub cmdButton_Click() > > b_UserIsFinished = True > > Unload Me > > End Sub > > > > Private Sub UserForm_Initialize() > > Me.Caption = "Task List" > > cmdButton.Enabled = False > > b_UserIsFinished = False > > End Sub > > > > Function AllTasksFinished() As Boolean > > If CheckBox1 And CheckBox2 And CheckBox3 And CheckBox4 And > > CheckBox5 Then > > AllTasksFinished = True > > Else > > AllTasksFinished = False > > End If > > End Function > > > > Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As > > Integer) > > If Not b_UserIsFinished Then Cancel = True > > End Sub > > > > and then place the folloing event handlers in the ThisWorkbook VBA > > module: > > > > Private Sub Workbook_BeforeClose(Cancel As Boolean) > > MsgBox ("Can't close without saving") > > Cancel = True > > End Sub > > > > Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As > > Boolean) > > UserForm1.Show vbModal > > End Sub > > > > Hope this will get you started in the right direction, > > Rolf Jaeger > > SoarentComputinghttp:// > soarentcomputing.com/SoarentComputing/ExcelSolutions.htm > > > > On Nov 20, 3:00 am, Hiren Sheth <hiren.sh...@viteos.com> wrote: > > > > > > > > > Hi Excel Gurus, > > > > > Thanks a lot for sharing your knowledge and solving queries. > > > > > I am planning to prepare a check list for my team member for a > particular task. > > > > > I mean once they finish the working on the excel sheet and try to close > that, a pop up of check list will appear which state the steps to be perform > to complete the task (max 5 steps). > > > > > In order to close the file, user must be forced to mark each task. > > > > > Regards > > > Hiren > > > > > This message is for the named person's use only. It may contain > confidential, proprietary or legally privileged information. No > > > confidentiality or privilege is waived or lost by any mis-transmission. > If you receive this message in error, please immediately > > > delete it and all copies of it from your system, destroy any hard > copies of it and notify the sender. You must not, directly or > > > indirectly, use, disclose, distribute, print, or copy any part of this > message if you are not the intended recipient. > > > Viteos Capital Market Services Ltd.and any of its subsidiaries each > reserve the right to monitor all e-mail communications through > > > its networks. Any views expressed in this message are those of the > individual sender, except where the message states otherwise and > > > the sender is authorized to state them to be the views of any such > entity- Hide quoted text - > > > > - Show quoted text - > > -- > > ---------------------------------------------------------------------------------- > Some important links for excel users: > 1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at > http://www.excelitems.com > 2. Excel tutorials at http://www.excel-macros.blogspot.com > 3. Learn VBA Macros at http://www.vbamacros.blogspot.com > 4. Excel Tips and Tricks at http://exceldailytip.blogspot.com > > > To post to this group, send email to excel-macros@googlegroups.com > If you find any spam message in the group, please send an email to: > Ayush Jain @ jainayus...@gmail.com or > Ashish Jain @ 26may.1...@gmail.com > <><><><><><><><><><><><><><><><><><><><><><> > HELP US GROW !! > > We reach over 6,500 subscribers worldwide and receive many nice notes about > the learning and support from the group. Our goal is to have 10,000 > subscribers by the end of 2009. Let friends and co-workers know they can > subscribe to group at > http://groups.google.com/group/excel-macros/subscribe > -- Thanks, Dharmesh -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at http://www.excelitems.com 2. Excel tutorials at http://www.excel-macros.blogspot.com 3. Learn VBA Macros at http://www.vbamacros.blogspot.com 4. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com If you find any spam message in the group, please send an email to: Ayush Jain @ jainayus...@gmail.com or Ashish Jain @ 26may.1...@gmail.com <><><><><><><><><><><><><><><><><><><><><><> HELP US GROW !! We reach over 6,500 subscribers worldwide and receive many nice notes about the learning and support from the group. Our goal is to have 10,000 subscribers by the end of 2009. Let friends and co-workers know they can subscribe to group at http://groups.google.com/group/excel-macros/subscribe
