Stop file being saved
 

Is there an code that would stop an excel file being saved if a certain
number was exceeded.
Example:- entering leave which exceeds the quota thus stoppping the user
saving the file.

Stop file being saved
 

hi
yes. but it would be nice to know which cell the leave is in and what the
quota is but in it's simplest form, it might look something like this.....
leave in A1. quota = 50
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Range("A1").Value 50 Then
MsgBox "leave exceeds quota. save not allowed"
Cancel = True
End If
End Sub

this is workbook code.
Alt+F11. in the project window(far left) expand the project(file). double
click "ThisWorkbook". paste above code into this workbook module.
modify if needed.

Regards
FSt1

"Jim Lavery" wrote:

Is there an code that would stop an excel file being saved if a certain
number was exceeded.
Example:- entering leave which exceeds the quota thus stoppping the user
saving the file.

Stop file being saved
 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
With Worksheets("Sheet1").Range("A1")

If .Value < 5 Then
msgbobx "Value must be = 5"
Cancel = True
End If
End With
End Sub

'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code


--
__________________________________
HTH

Bob

"Jim Lavery" wrote in message
...
Is there an code that would stop an excel file being saved if a certain
number was exceeded.
Example:- entering leave which exceeds the quota thus stoppping the user
saving the file.

Stop file being saved
 

Brilliant, just what I wanted. thanks very much.

Jim
"FSt1" wrote in message
...
hi
yes. but it would be nice to know which cell the leave is in and what the
quota is but in it's simplest form, it might look something like this.....
leave in A1. quota = 50
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If Range("A1").Value 50 Then
MsgBox "leave exceeds quota. save not allowed"
Cancel = True
End If
End Sub

this is workbook code.
Alt+F11. in the project window(far left) expand the project(file). double
click "ThisWorkbook". paste above code into this workbook module.
modify if needed.

Regards
FSt1

"Jim Lavery" wrote:

Is there an code that would stop an excel file being saved if a certain
number was exceeded.
Example:- entering leave which exceeds the quota thus stoppping the user
saving the file.

Stop file being saved
 

you're welcome
regards
FSt1

"Jim Lavery" wrote:

Brilliant, just what I wanted. thanks very much.

Jim
"FSt1" wrote in message
...
hi
yes. but it would be nice to know which cell the leave is in and what the
quota is but in it's simplest form, it might look something like this.....
leave in A1. quota = 50
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If Range("A1").Value 50 Then
MsgBox "leave exceeds quota. save not allowed"
Cancel = True
End If
End Sub

this is workbook code.
Alt+F11. in the project window(far left) expand the project(file). double
click "ThisWorkbook". paste above code into this workbook module.
modify if needed.

Regards
FSt1

"Jim Lavery" wrote:

Is there an code that would stop an excel file being saved if a certain
number was exceeded.
Example:- entering leave which exceeds the quota thus stoppping the user
saving the file.