VB in Excel: Preventing Saving Until A Condition is Met

mark_s12 · #1 (**permalink**) 03-29-04, 08:27

Hi

Im very new to VB and am wondering whether it is possible to prevent users saving a worksheet in excel if a certain condition is not met. Basically if they do not enter text, say in column H, is it possible to prevent them from saving the worksheet. If not, is it possible to bring up a Message Box prompting them to fill in the field?

Any help would be really appreciated,

Mark

DavidCoutts · #2 (**permalink**) 03-29-04, 11:03

In the ThisWorkbook Code you can set the Event Handler workbook beforesave such as

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Range("H65536").End(xlUp).Row = 1 Then
        Cancel = True
    End If
End Sub

this checks if there is anything in any cell in column H bar row 1.
the Cancel = True Cancels the Save Event.

To Get into ThisWorkbook code get into VBA Window (Press Alt+F11)
and Double click on thisworkbook under the Project Explorer.

Hope this Helps

David

Internet Services

Web Development

Digital Marketing

Consumer Tech