<<Convert Excel Spreadsheets to Web Pages \| Trading Software That Operates Within Excel \| Convert Excel, Access & Other Databases \| Merge Excel Files>>

Prevent Excel Being Saved With Another Name

| | Information Helpful? Why Not Donate.

TRY OUT: Smart-VBA | Code-VBA | Analyzer-XL | Downloader-XL | Trader-XL| More Free Downloads.. Best Value: Finance Templates Bundle

Stop Workbook Being Saved as Another Name

Current Special! Complete Excel Excel Training Course for Excel 97 - Excel 2003, only ~~$145.00~~. $59.95 Instant Buy/Download,30 Day Money Back Guarantee & Free Excel Help for LIFE!

Got any Excel Questions? Free Excel Help

Preventing a Workbook From Being Saved as Another Name. See Also: Stop Do You Want To Save Changes and Prevent Saving As

The code below can be used to stop any users saving a Workbook as another name, but will allow the Workbook to be save to another location. The code must be placed in the Private Module of the Workbook Object (ThisWorkbook). The fastest way to get there is to right click on the Excel icon, top left next to File and select View Code. It is in here you should place the code below and then save the Workbook. So long as the Workbook is opened with macros enabled the code will fire anytime any user tries to use Save As.

Private Sub Workbook_BeforeSave _              (ByVal SaveAsUI As Boolean, Cancel As Boolean)    Dim NamePath As String    Dim strName As String    Dim lFind As Long    If SaveAsUI = True Then      Cancel = True        With Application                .EnableEvents = False     NamePath = .GetSaveAsFilename     strName = Mid(NamePath, InStrRev(NamePath, "\", -1, vbTextCompare) + 1, 256)            If NamePath = "False" Then                   .EnableEvents = True                Exit Sub            ElseIf strName <> Me.Name Then                MsgBox "You cannot save as another name"                    .EnableEvents = True                Exit Sub            Else              Me.SaveAs NamePath                 .EnableEvents = True            End If        End With    End IfEnd Sub

Excel Dashboard Reports & Excel Dashboard Charts 50% Off Become an ExcelUser Affiliate & Earn Money

Special! Free Choice of Complete Excel Training Course OR Excel Add-ins Collection on all purchases totaling over $64.00. ALLpurchases totaling over $150.00 gets you BOTH! Purchases MUST be made via this site. Send payment proof to [email protected] 31 days after purchase date.

Instant Download and Money Back Guarantee on Most Software

Try out:Analyzer XL |Downloader XL |Smart VBA |Trader XL Pro (best value) |ConsoXL | MergeXL | O2OLAP for Excel | MORE>>

Excel Trader PackageTechnical Analysis in Excel With $139.00 of FREE software!

Microsoft � and Microsoft Excel � are registered trademarks of Microsoft Corporation. OzGrid is in no way associated with Microsoft