daily pastebin goal
14%
SHARE
TWEET

Untitled

a guest Mar 21st, 2019 57 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  2.   On Error Resume Next
  3.   Application.DisplayAlerts = False
  4.   Sheets("Picking").Delete
  5.   Sheets("Ordering").Delete
  6.   Clear_UI
  7.   Dim UI As Worksheet
  8.   Set UI = Sheets("User Interface")
  9.   With UI
  10.     .Shapes("Menu_StartNewEvent").OnAction = ""
  11.     .Shapes("Menu_UpdateEvent").OnAction = ""
  12.     .Shapes("Menu_ProduceSheets").OnAction = ""
  13.     .Shapes("Menu_CountIn").OnAction = ""
  14.     .Shapes("Menu_EditPackages").OnAction = ""
  15.     .Shapes("Menu_EditCocktails").OnAction = ""
  16.     .Shapes("Menu_EditInventory").OnAction = ""
  17.   End With
  18.   Unhide_Them
  19.   Set UI = Sheets("Inventory Editor")
  20.   UI.Shapes("SaveButton").OnAction = ""
  21.   Set UI = Sheets("Cocktail Editor")
  22.   UI.Shapes("SaveButton").OnAction = ""
  23.   Set UI = Sheets("Package Editor")
  24.   UI.Shapes("SaveButton").OnAction = ""
  25.   Hide_Them
  26.   Application.DisplayAlerts = True
  27.   ThisWorkbook.Save
  28. End Sub
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top