I'm extremely new to building macros so here is my situation.
We have users opening a macro enabled excel file on our intranet.
I'm trying to keep users from saving the file back to the intranet once opened. I want the user to save the file to their drive once opened. Once a user opens the file from the intranet the macro automatically opens the save as file (to a specific path). the user types in a file name. The problem is the file is saved as a file with no filetype asscoiated to the file. I'm using FileFormat:=52 but maybe I didn't place it in the correct place inmy code or I'm just using ileformat the wrong way.
Please advise anything would be helpful at this point.
Using excel 2010
here is the macro
Sub Aut
pen()
MsgBox "Save to desktop prior to working", vbInformation + vbOKOnly, "Hello Ops Team"
Dim workbook_Name As Variant
workbook_Name = Application.GetSaveAsFilename("R:\Provider Ops\Triaging for Vendors")
If workbook_Name <> False Then
ActiveWorkbook.SaveAs _
Filename:=workbook_Name, _
FileFormat:=52 (Save as Type - shows up as "All Files")
End If
End Sub
We have users opening a macro enabled excel file on our intranet.
I'm trying to keep users from saving the file back to the intranet once opened. I want the user to save the file to their drive once opened. Once a user opens the file from the intranet the macro automatically opens the save as file (to a specific path). the user types in a file name. The problem is the file is saved as a file with no filetype asscoiated to the file. I'm using FileFormat:=52 but maybe I didn't place it in the correct place inmy code or I'm just using ileformat the wrong way.
Please advise anything would be helpful at this point.
Using excel 2010
here is the macro
Sub Aut
pen()MsgBox "Save to desktop prior to working", vbInformation + vbOKOnly, "Hello Ops Team"
Dim workbook_Name As Variant
workbook_Name = Application.GetSaveAsFilename("R:\Provider Ops\Triaging for Vendors")
If workbook_Name <> False Then
ActiveWorkbook.SaveAs _
Filename:=workbook_Name, _
FileFormat:=52 (Save as Type - shows up as "All Files")
End If
End Sub
