validation before exit or save

[parajf]

Dear all,

please please help for below requirement

I want excel not to save unless i have A1 = 2, that means i want validation for number 2 in A1 cell before saving, if A1 <> 2 then it will give message " Data not valid" , please... please help

regards
juzar para

00971504966280

 

[VoG]

Try in the ThisWorkbook module

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheets("Sheet1").Range("A2").Value <> 2 Then
    Cancel = True
    MsgBox "Data not valid" & vbNewLine & "File NOT saved", vbExclamation
End If
End Sub

Change Sheet1 to the name of the sheet.

 

[parajf]

Thank you friend,

It worked very fine, below is my mobile number,

regards

juzar para

Try in the ThisWorkbook module

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheets("Sheet1").Range("A2").Value <> 2 Then
    Cancel = True
    MsgBox "Data not valid" & vbNewLine & "File NOT saved", vbExclamation
End If
End Sub

Change Sheet1 to the name of the sheet.

 

[parajf]

Dear all,

I want to create more than three floating radio buttons on right side of excel sheet, it should be visible all the time and it should link me to different sheet or workbooks, I am not considering freeze

Regards

Juzar para

 

[VoG]

You should really start a new thread for this completely different question.

Do you really need radio buttons? If you right click in the navigation arrows (bottom left) you will get a pop-up list of sheets.