Option Explicit
Private Sub workbook_BeforeSave1(ByVal SaveAsUI As Boolean, Cancel)
Dim i As Integer, MyWb As Object
i = 1
Set MyWb = ThisWorkbook.Sheets("WorkbookBeforeSave").Cells
Do While MyWb(2, i).Value <> ""
i = i + 1
Loop
If i = 5 Then
Exit Sub
End If
MsgBox ("Please enter all the mandatory fields"), vbCritical
Cancel = True
End Sub
There is nothing like
in standard excel events
Please Login or Register to view this content.
change to
and please use code tags around code.Please Login or Register to view this content.
Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.
Edit post, highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here
Best Regards,
Kaper
Please Login or Register to view this content.
1) is this code in standard module, worksheet module or in (it shall be here) in ThisWorkbook module?
2) are events enabled? check it by writing in immediate window
and pressing EnterPlease Login or Register to view this content.
3) does worksheet WorkbookBeforeSave exists?
4) how do you know it is not working? for instance: No msgbox pops-up while A2:F2 are filled and G2 is empty in WorkbookBeforeSave sheet?
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks