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
