Workbook_BeforeClose event

Charles Bushby

New Member
Joined
Aug 10, 2005
Messages
40
When I open an excel file the workbook open event runs code to disable cut, copy and paste and hides the formula bar. When the file is closed I wish to enable cut, copy and paste and show the formula bar. I have tried the following code but it doesn't work. Does anyone know how to write code to make it work?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Cancel = True Then
Call EnableCutAndPaste
Application.DisplayFormulaBar = True
ElseIf Cancel = False Then
Call DisableCutAndPaste
Application.DisplayFormulaBar = False
End If
End Sub
 

Jaafar Tribak

Well-known Member
Joined
Dec 5, 2002
Messages
7,554
Office Version
2016
Platform
Windows
I think you have the Cancel thingy te other way around :)

Should be like this :

Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Cancel = False Then
Call EnableCutAndPaste
Application.DisplayFormulaBar = True
ElseIf Cancel = True Then
Call DisableCutAndPaste
Application.DisplayFormulaBar = False
End If
End Sub
Regards.
 

mikerickson

MrExcel MVP
Joined
Jan 15, 2007
Messages
22,874
I'd think about putting that in the Workbook_Deactivate code, so that I could have another workbook open at the same time as the disabled one.
 

Forum statistics

Threads
1,084,753
Messages
5,379,658
Members
401,620
Latest member
Ankur Teotia

Some videos you may like

This Week's Hot Topics

  • VBA code giving errors and stopping Excel
    Hello Experts, I have this code being used to loop through files in a file path, and copy specific data to another sheet. It is giving me several...
  • Disable MsgBox message
    Morning, I have a userform where if i leave a ComboBox empty i see a MsgBox warning me that i must enter an invoice number. It is this MsgBox i...
  • Macro Recorder into VBA, Copy Paste Data Filled Cells
    Hi Everyone, I have a macro recorder file that takes a selection of data, copies, then pastes into a new sheet on ("A2:B2") The issue is my...
  • Number format changes while pasting into a cell
    Hi, I am trying to paste a number 180204524303 from an email to an excel cell, however, whenever i try to do so , the the paste value appears as...
  • Collating data
    Hello all. Could someone please help. I am trying to pull all column data from multiple sheets (24 I total so far) into 1 master sheet without...
  • Sum Multiple Columns Based on Multiple Criteria
    I am trying to consolidate data by summing columns G through M based on material, plant, vendor, and fiscal year being identical. The period does...
Top