Deactive msgbox from other macroes when clicking "master" macro

[StefaniaLa]

Hi there

I have created a MasterDelete Macro, that will delete entries from all cells on multiple tabs. However, as I am simply "calling" the macros which delete the individual sheet entries, the msg box that I have added to each and every macro (DeleteEntriesServiceItems, DeleteIntroduction, DeleteAdditionalOnSiteEffort, DeleteTravel, DeleteSurcharges), comes up every time i run this MasterDelete Macro. So the user will have to click "Yes" 5 times before that MasterDelete Macro will have run through everything. How can I disable these msg boxes, while still "calling" the 5 macros? (Alternative would be to copy the codes of the other macros to the MasterDelete Macro without the msgbox).

Thanks!!



Sub MasterDelete()
'will delete entries from alllllllll blue tabs

Application.ScreenUpdating = False

Dim admin_passwort As String
admin_passwort = "Service_Admin"

ActiveSheet.Unprotect password:="Service_Admin"

Dim answer As Variant

answer = MsgBox("Are you sure you want to delete all entries on all tabs?", vbYesNo + vbQuestion, "Delete user entries")

If answer = vbYes Then

Application.DisplayAlerts = False
Worksheets("Service items").Visible = True
Worksheets("Additional on-site effort").Visible = True
Worksheets("Travel").Visible = True
Worksheets("Surcharges").Visible = True

Call DeleteEntriesServiceItems
Call DeleteIntroduction
Call DeleteAdditionalOnSiteEffort
Call DeleteTravel
Call DeleteSurcharges

End If

Application.DisplayAlerts = True

Worksheets("Introduction").Select
Range("A1").Select
Application.ScreenUpdating = True

End Sub

[kasan]

What's the reason of "the msg box that I have added to each and every macro (DeleteEntriesServiceItems, DeleteIntroduction, DeleteAdditionalOnSiteEffort, DeleteTravel, DeleteSurcharges)"?
Just remove those msgbox`es from each macro and user will be promted only once.

[StefaniaLa]

I added these, because they are "sub"macros for other sheets. There I also have a button that performs deleting the respective entries on the activesheet - hence I cannot remove the msgbox there because otherwerwise the user might be delete them by mistake when randomly clicking on the button on that tab.

Thanks!

[PFDave]

Create duplicates of your Call macros but without the msgboxes for use only in the master macro

Call MasterDeleteEntriesServiceItems
Call MasterDeleteIntroduction
Call MasterDeleteAdditionalOnSiteEffort
Call MasterDeleteTravel
Call MasterDeleteSurcharges

[StefaniaLa]

OK cool, that's a great input. Thanks!

[PFDave]

No problem StefaniaLa

[cytop]

A better approach would be to edit the existing procedures so they take an optional parameter...

Please Login or Register  to view this content.

The optional parameter is defaulted to True and then add a check for the value of this parameter in the procedure code.

Please Login or Register  to view this content.

Your existing code to call the individual procedures will not change, but the master procedure code is changed slightly...

Please Login or Register  to view this content.

End result, one set of procedures that displays a message box if called from an 'individual' sub but does not display it when called from the master sub.

(Typed freehand, untested but the principal is right even if the code isn't)