Prevent Change in File Extension?

[Duvnjak]

Hello,

Is there an effective way to prevent a user from changing the file extension of a file? For example, if a file needs to remain .xls I want to prevent a user from changing it to .xlsx, etc.

I assume I would need to add code to the Workbook_BeforeSave event? Or is there a better way?

Thank you in advance!

 

[Mister H]

Hi:

I found this code which should be placed in ThisWorkbook. It might do the trick for you...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.EnableEvents = False
  Dim vFile
  Dim strDirectoryPath As String
    
   If SaveAsUI Then
vFile = Application.GetSaveAsFilename("C:\temp\Sample.xls", "Excel files (*.xls),*.xls")
   If TypeName(vFile) = "Boolean" Then
    Cancel = True
    Application.EnableEvents = True
       Exit Sub  ' user cancelled
End If
   strDirectoryPath = "C:\temp\"
   If Dir(strDirectoryPath, vbDirectory) = "" Then MkDir strDirectoryPath
   ActiveWorkbook.SaveAs vFile, FileFormat:=56
   Application.EnableEvents = True
   saveProcessStarted = False
Cancel = True
     Exit Sub
   End If
Application.EnableEvents = True
 End Sub

Good Luck,
Mark

 

[Duvnjak]

Thank you Mark. That did the trick wonderfully!