Protect format

[amna77]

Hi,
Is there a way that I can protect the format of sheet.

For example, I don't want any body to change format, I mean re-arrage the column width and set the print area things, etc.
Thats what I want to protect,or put a password for that.
Anybody know how to do it?
Thanks in advance

 

[DonkeyOte]

You could hide the format toolbar and the format pop up toolbar (in an AUTO_OPEN Macro) - they shouldn't be able to amend the formats then...

To hide Main Worksheet Bar

Application.CommandBars("Worksheet Menu Bar").Enabled = False

not too sure the code for the pop up - I use this...

Sub DisableAllShortcutMenus()
Dim cb As CommandBar
For Each cb In CommandBars
If cb.Type = msoBarTypePopup Then cb.Enabled = False
Next cb
End Sub

But it gets rid of all right-button click menus...

Obviously you restore the menus etc in an Auto_Close Macro.

You can amend the code to simply remove certain buttons so leave the main bar but without Format...have a look on google.

_________________
LASW10
This message was edited by lasw10 on 2002-10-25 08:23

 

[Iridium]

If you protect the sheet with a password (Tools|Protection|Protect Sheet) then the formats should bu unchangeable. If you want to do it with a macro the include these lines -
'ActiveWorkbook.Protect Password:="password", Structure:=True, Windows:=False 'for a workbook
ActiveSheet.Protect Password:="password", DrawingObjects:=True, Contents:=True, Scenarios:=True 'for a sheet
This message was edited by Chris Chattin on 2002-10-25 09:07

 

[DonkeyOte]

You can amend Chris' code to protect the sheet whilst still allowing users to amend the data etc...

ActiveSheet.Protect Password:="password", DrawingObjects:=True, Contents:=FALSE, Scenarios:=True

 

[B_2]

Hi Lasw10

What do i need to amend in this line of code which will allow me to protect the sheet and for it to work?

Selection.Sort KEY1:=Sheets(DATABASE_SHEET).[A3], ORDER1:=xlAscending, HEADER:=xlYes, ORDERCUSTOM:=1, MatchCase:=False, Orientation:=xlTopToBottom

 

[DonkeyOte]

On 2002-10-25 09:16, B_2 wrote:
Hi Lasw10

What do i need to amend in this line of code which will allow me to protect the sheet and for it to work?

B_2 - you need to unprotect the sheet before running the sort and then reprotect it when you're done...

Sheets("sheet1").Unprotect Password:="Blah"

Selection.Sort KEY1:=Sheets(DATABASE_SHEET).[A3], ORDER1:=xlAscending, HEADER:=xlYes, ORDERCUSTOM:=1, MatchCase:=False, Orientation:=xlTopToBottom

Sheets("sheet1").Protect Password:="Blah"


This is when it becomes good to protect your code in VBEditor, else people simply go into the code to get the password. (Though I admit Excel security is still pretty poor).

Is this what you wanted B_2?