Create a Submit button save filename as A1, submit email unc path, etc.

Ok guys I have a excel spread sheet that creates a value in Cell A1. It also disables the save and save as function. I now want to do a few other things.

I want a submit button that will do the following:

1. Create file in \\servername\folder\valueincellA1.xls
2. This file should then be saved to disable the macro the creates that value in A1. I don't want the value in A1 Changing once this new file is created.
3. The submit button should also bring up outlook and auto populate subject "SSR has been created" and the body should contain unc path to file and its name.
4. The submit button should continue function through itslife because it may be changed and emailed serveral times. Here is a clip of the code I have so far.

Option Explicit
 
Private Sub Workbook_Open()
   
    Dim x As String
     
    On Error GoTo ErrorHandler
One:
    Open "\\servername\sharename\Forms\" & ThisWorkbook.Name & _
    " Counter.txt" For Input As #1
    Input #1, x
    Close #1
    x = x + 1
     
Two:
     '******THIS LINE IS OPTIONAL******
    Sheets(1).Range("A1").Value = x
     '********************************
    Open "\\servername\sharename\Forms\" & ThisWorkbook.Name & _
    " Counter.txt" For Output As #1
    Write #1, x
    Close #1
     
    Exit Sub
     
ErrorHandler:
    Select Case Err.Number
         
    Case 53 'If Counter file does not exist...
NumberRequired:
        x = InputBox("Enter a Number greater than " & _
        "zero to Begin Counting With", _
        "Create '\\servername\sharename\Forms\" & ThisWorkbook.Name & _
        " Counter.txt' File")
        If Not IsNumeric(x) Then GoTo NumberRequired
        If x <= 0 Then GoTo NumberRequired
        Resume Two
    Case Else
        Resume Next
    End Select
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
     MsgBox "Save is Disabled"
     '  Following line will prevent all saving
    Cancel = True
     '  Following line will prevent the Save As Dialog box from showing
    If SaveAsUI Then SaveAsUI = False
End Sub

Hello briant97,

Welcome to the Forum!

To make your posts easier to read, copy, and edit please wrap your code. I did it for you this time. Here is how you can do it next time.

How to wrap your Code using the # icon
1. Select all your code using the mouse.
2. Click on the # icon on the toolbar in the Message window. This will automatically wrap the text you selected with the proper Code tags to create a Code Window in your post.

To manually insert the tags
Use the Bulletin Board Code Tags
[code] at the start of the first line,
[/code] at the end of the last line.


To learn more about BB codes used in this forum, just click on the link below...

Bulletin Board Codes Tags

Hello briant97,

No need to be sorry, you're new. Did you want the file contents to overwrite any old data?

The original form should always stay blank. So they will open file 1.xls to fill out for example. File 1.xls should always stay the same. However when they when it saves from the field in A1 to say file 2.xls. That file should be able to be changed. It is going to be edited several times before its finished. However 2.xls should disable the function to add the to the cell value A1. It should also save what is then written to it.