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
SoarentComputing
http://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
--
----------------------------------------------------------------------------------
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
