IsBlank function run on form will not allow initial save of bank value to send to users

[LeslyeE]

I am having an issue with a similar request. I need to send my excel sheet to the user with blank cells to be filled in. Once the user opens this book I need to prevent the user from being able to save the workbook without the specified cells filled in. (This portion I have code that works for it) I can not figure out how to send the code to the user blank.

 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If IsEmpty(ThisWorkbook.Sheets(1).Range("B6")) Then
        MsgBox ("Must enter Supplier Name")
        Cancel = True
    Else
    If IsEmpty(ThisWorkbook.Sheets(1).Range("C6")) Then
       MsgBox ("Must enter Supplier Location")
       Cancel = True
    Else
    If IsEmpty(ThisWorkbook.Sheets(1).Range("D6")) Then
       MsgBox ("Please enter your 5 digit supplier code. If you need assistance with the supplier code please contact SSG at 1(800)782-8099")
       Cancel = True
    Else
    If IsEmpty(ThisWorkbook.Sheets(1).Range("B10")) Then
       MsgBox ("Please enter expected users First name")
       Cancel = True
    Else
    If IsEmpty(ThisWorkbook.Sheets(1).Range("C10")) Then
       MsgBox ("Please enter expected users Last name")
       Cancel = True
    Else
    If IsEmpty(ThisWorkbook.Sheets(1).Range("D10")) Then
       MsgBox ("Please Create an original SSO # for this user")
       Cancel = True
    Else
    If IsEmpty(ThisWorkbook.Sheets(1).Range("F10")) Then
       MsgBox ("Please enter expected users email address.      Note: This must be a complete and existing email address")
       Cancel = True
    Else
    If IsEmpty(ThisWorkbook.Sheets(1).Range("G10")) Then
       MsgBox ("Please enter expected users full phone number with area code")
       Cancel = True
End If
End If
End If
End If
End If
End If
End If
End If
End Sub

 

[JoeMo]

I don't understand what you mean by "I can not figure out how to send the code to the user blank." - can you elaborate?

 

[LeslyeE]

I meant I need to send the workbook to the user with the same cells blank that the code prevents save if blank.

 

[JoeMo]

I meant I need to send the workbook to the user with the same cells blank that the code prevents save if blank.

Immediately after the Private Sub.... line add this (change the user name to your user name).

If Environ("USERNAME") = "Your UserName Here" then
Cancel = False
Exit sub
End If