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!!!

Hi
I'm not sure what you're problem is. What error did you get?

--
Regards
Frank Kabel
Frankfurt, Germany


wrote:
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!!!

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!!!

What does everything goes to Rubbish mean exactly?

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

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!!!

Hi, and Many thanks!!!


Ron, Works fine!! Thanks, for Previous Replies, "some of then your as
well"

Hi Bob!
Rubbish= "everyhting goes bad"
Just my way to use English, "Not my language, Sorry!!"


Now Everything goes Fine Again!!
Just 25 min ago, NO!!

AGAIN MANY THANKS!!

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!