Try this

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As _
Boolean)
If SaveAsUI Then Cancel = True
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


wrote in message om...
Hi!

-I have a Workbook.
-This Workbook, Workbook_Open() --- reads the Computer
Get_Drive_Serial & DiskVolumeId, to Check if the computer belogs to
Our Company.
-If Yes Unhides and Unprotects some of the Sheets "Hidden & Protected
with Workbook_BeforeSave Macro Event.


-When a new Computer open this file, there are no visible Sheets, the
Workbook_Open Reads the desired variables and if the workbook does not
have then in a database, always protected and hidden with:
Sheets("XXX").Visible = xlSheetVeryHidden
Request for a Password.
If the Password is OK, adds a New computer's DiskVolumeId... to Our
Database.



Everything worked Fine, but When I press Save As stead of Save,
EveryThing goes to the Rubbish!

Because there is not: Private Sub Workbook_BeforeSave """AS"""(ByVal
SaveAsUI As Boolean, Cancel As Boolean)


Any Help????
Many Thanks, for previous questions replies!!!