|
about save or save as
what can i do if someone save or save as the workbook, the saved file only got numbers instead fomula, what i mean is when you save the file, you can see all the numbers and you cant put in new data. thanx -- jinvictor ------------------------------------------------------------------------ jinvictor's Profile: http://www.excelforum.com/member.php...o&userid=34099 View this thread: http://www.excelforum.com/showthread...hreadid=553118 |
about save or save as
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean) With Worksheets("Sheet1") .UsedRange.Value = .UsedRange.Value End With End Sub 'This is workbook event code. 'To input this code, right click on the Excel icon on the worksheet '(or next to the File menu if you maximise your workbooks), 'select View Code from the menu, and paste the code -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "jinvictor" wrote in message ... what can i do if someone save or save as the workbook, the saved file only got numbers instead fomula, what i mean is when you save the file, you can see all the numbers and you cant put in new data. thanx -- jinvictor ------------------------------------------------------------------------ jinvictor's Profile: http://www.excelforum.com/member.php...o&userid=34099 View this thread: http://www.excelforum.com/showthread...hreadid=553118 |
about save or save as
because the workbook is protected, so the code doesnt run properly, what can i do? thanx Bob Phillips Wrote: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) With Worksheets("Sheet1") .UsedRange.Value = .UsedRange.Value End With End Sub 'This is workbook event code. 'To input this code, right click on the Excel icon on the worksheet '(or next to the File menu if you maximise your workbooks), 'select View Code from the menu, and paste the code -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "jinvictor" wrote in message ... what can i do if someone save or save as the workbook, the saved file only got numbers instead fomula, what i mean is when you save the file, you can see all the numbers and you cant put in new data. thanx -- jinvictor ------------------------------------------------------------------------ jinvictor's Profile: http://www.excelforum.com/member.php...o&userid=34099 View this thread: http://www.excelforum.com/showthread...hreadid=553118 -- jinvictor ------------------------------------------------------------------------ jinvictor's Profile: http://www.excelforum.com/member.php...o&userid=34099 View this thread: http://www.excelforum.com/showthread...hreadid=553118 |
about save or save as
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean) With Worksheets("Sheet1") .Unprotect .UsedRange.Value = .UsedRange.Value .Protect End With End Sub -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "jinvictor" wrote in message ... because the workbook is protected, so the code doesnt run properly, what can i do? thanx Bob Phillips Wrote: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) With Worksheets("Sheet1") .UsedRange.Value = .UsedRange.Value End With End Sub 'This is workbook event code. 'To input this code, right click on the Excel icon on the worksheet '(or next to the File menu if you maximise your workbooks), 'select View Code from the menu, and paste the code -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "jinvictor" wrote in message ... what can i do if someone save or save as the workbook, the saved file only got numbers instead fomula, what i mean is when you save the file, you can see all the numbers and you cant put in new data. thanx -- jinvictor ------------------------------------------------------------------------ jinvictor's Profile: http://www.excelforum.com/member.php...o&userid=34099 View this thread: http://www.excelforum.com/showthread...hreadid=553118 -- jinvictor ------------------------------------------------------------------------ jinvictor's Profile: http://www.excelforum.com/member.php...o&userid=34099 View this thread: http://www.excelforum.com/showthread...hreadid=553118 |
about save or save as
WHY WHEN I RUN THIS VBA, IT SAYS RUN-TIME ERROR '450': wRONG NUMBER OF ARGUMENTS OR INVALID PROPERTY ASSIGNMENT. WHAT CAN I DO? Bob Phillips Wrote: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) With Worksheets("Sheet1") .Unprotect .UsedRange.Value = .UsedRange.Value .Protect End With End Sub -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "jinvictor" wrote in message ... because the workbook is protected, so the code doesnt run properly, what can i do? thanx Bob Phillips Wrote: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) With Worksheets("Sheet1") .UsedRange.Value = .UsedRange.Value End With End Sub 'This is workbook event code. 'To input this code, right click on the Excel icon on the worksheet '(or next to the File menu if you maximise your workbooks), 'select View Code from the menu, and paste the code -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "jinvictor" wrote in message ... what can i do if someone save or save as the workbook, the saved file only got numbers instead fomula, what i mean is when you save the file, you can see all the numbers and you cant put in new data. thanx -- jinvictor ------------------------------------------------------------------------ jinvictor's Profile: http://www.excelforum.com/member.php...o&userid=34099 View this thread: http://www.excelforum.com/showthread...hreadid=553118 -- jinvictor ------------------------------------------------------------------------ jinvictor's Profile: http://www.excelforum.com/member.php...o&userid=34099 View this thread: http://www.excelforum.com/showthread...hreadid=553118 -- jinvictor ------------------------------------------------------------------------ jinvictor's Profile: http://www.excelforum.com/member.php...o&userid=34099 View this thread: http://www.excelforum.com/showthread...hreadid=553118 |
about save or save as
wrap-around
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _ Cancel As Boolean) With Worksheets("Sheet1") .Unprotect .UsedRange.Value = .UsedRange.Value .Protect End With End Sub -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "jinvictor" wrote in message ... WHY WHEN I RUN THIS VBA, IT SAYS RUN-TIME ERROR '450': wRONG NUMBER OF ARGUMENTS OR INVALID PROPERTY ASSIGNMENT. WHAT CAN I DO? Bob Phillips Wrote: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) With Worksheets("Sheet1") .Unprotect .UsedRange.Value = .UsedRange.Value .Protect End With End Sub -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "jinvictor" wrote in message ... because the workbook is protected, so the code doesnt run properly, what can i do? thanx Bob Phillips Wrote: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) With Worksheets("Sheet1") .UsedRange.Value = .UsedRange.Value End With End Sub 'This is workbook event code. 'To input this code, right click on the Excel icon on the worksheet '(or next to the File menu if you maximise your workbooks), 'select View Code from the menu, and paste the code -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "jinvictor" wrote in message ... what can i do if someone save or save as the workbook, the saved file only got numbers instead fomula, what i mean is when you save the file, you can see all the numbers and you cant put in new data. thanx -- jinvictor ------------------------------------------------------------------------ jinvictor's Profile: http://www.excelforum.com/member.php...o&userid=34099 View this thread: http://www.excelforum.com/showthread...hreadid=553118 -- jinvictor ------------------------------------------------------------------------ jinvictor's Profile: http://www.excelforum.com/member.php...o&userid=34099 View this thread: http://www.excelforum.com/showthread...hreadid=553118 -- jinvictor ------------------------------------------------------------------------ jinvictor's Profile: http://www.excelforum.com/member.php...o&userid=34099 View this thread: http://www.excelforum.com/showthread...hreadid=553118 |
about save or save as
thank you for your time, but i got another problem, when i use you vba it affect the original workbook, what i want is this program only us for when people use "save as", say when they save the file as "name 1" inside "name 1", you only can see the numbers but no fomular, and th still can use the original workbook later to work on others. thanx Bob Phillips Wrote: wrap-around Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _ Cancel As Boolean) With Worksheets("Sheet1") .Unprotect .UsedRange.Value = .UsedRange.Value .Protect End With End Sub -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "jinvictor" wrote in messag ... WHY WHEN I RUN THIS VBA, IT SAYS RUN-TIME ERROR '450': wRONG NUMBE OF ARGUMENTS OR INVALID PROPERTY ASSIGNMENT. WHAT CAN I DO? Bob Phillips Wrote: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cance As Boolean) With Worksheets("Sheet1") .Unprotect .UsedRange.Value = .UsedRange.Value .Protect End With End Sub -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "jinvictor wrote in message ... because the workbook is protected, so the code doesnt ru properly, what can i do? thanx Bob Phillips Wrote: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean Cancel As Boolean) With Worksheets("Sheet1") .UsedRange.Value = .UsedRange.Value End With End Sub 'This is workbook event code. 'To input this code, right click on the Excel icon on the worksheet '(or next to the File menu if you maximise your workbooks), 'select View Code from the menu, and paste the code -- HTH Bob Phillips (replace somewhere in email address with gmail if mailin direct) "jinvictor" wrote in message ... what can i do if someone save or save as the workbook, th saved file only got numbers instead fomula, what i mean is when yo save the file, you can see all the numbers and you cant put in new data. thanx -- jinvictor ------------------------------------------------------------------------ jinvictor's Profile: http://www.excelforum.com/member.php...o&userid=34099 View this thread: http://www.excelforum.com/showthread...hreadid=553118 -- jinvictor ------------------------------------------------------------------------ jinvictor's Profile: http://www.excelforum.com/member.php...o&userid=34099 View this thread: http://www.excelforum.com/showthread...hreadid=553118 -- jinvictor ------------------------------------------------------------------------ jinvictor's Profile: http://www.excelforum.com/member.php...o&userid=34099 View this thread http://www.excelforum.com/showthread...hreadid=553118 -- jinvicto ----------------------------------------------------------------------- jinvictor's Profile: http://www.excelforum.com/member.php...o&userid=34099 View this thread: http://www.excelforum.com/showthread...hreadid=553118 |
| All times are GMT +1. The time now is 01:48 AM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com