Protecting Sheet PLUS button!

dirty_cofi · May 18th, 2002, 02:56 PM

Hey,

I have a sheet with macro's which link to sheets, now this sheet is ment to be protected. BUT when i went Protect Sheet and entered a password, i could just click the buttons as normal with out Excel protecting.

So is there anyway to protect a sheet and the buttons or pictures assigned to a macros?

Thanks
Mike

Nickleby · May 18th, 2002, 08:05 PM

The macros assigned to the buttons will not be able to make changes to a protected worksheet.

dsnbld · May 18th, 2002, 08:08 PM

Sheet protection won't disable a command button. You'll need to disable the buttons with VBA.

Private Sub Worksheet_Activate()
CommandButton1.Enabled = False
End Sub

Hope this helps

***EDIT Forgot to mention, you'll also have to use VBA to set it back to True.

[ This Message was edited by: dsnbld on 2002-05-18 19:15 ]

Nickleby · May 18th, 2002, 08:44 PM

Alternatively, you could put this code at the start of your macro(s) :-

If Application.ExecuteExcel4Macro("get.document(7)") Then
MsgBox "Sheet Whatever is protected. You must unprotect it before you can run this macro"
Exit Sub
End If

dirty_cofi · May 19th, 2002, 05:57 AM

Thx works like a dreem >

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

May 18th, 2002, 02:56 PM	#1
dirty_cofi New Member Join Date: May 2002 Posts: 13	Hey, I have a sheet with macro's which link to sheets, now this sheet is ment to be protected. BUT when i went Protect Sheet and entered a password, i could just click the buttons as normal with out Excel protecting. So is there anyway to protect a sheet and the buttons or pictures assigned to a macros? Thanks Mike

May 18th, 2002, 08:05 PM	#2
Nickleby Join Date: May 2002 Posts: 26	The macros assigned to the buttons will not be able to make changes to a protected worksheet.

May 18th, 2002, 08:08 PM	#3
dsnbld Board Regular Join Date: May 2002 Posts: 206	Sheet protection won't disable a command button. You'll need to disable the buttons with VBA. Private Sub Worksheet_Activate() CommandButton1.Enabled = False End Sub Hope this helps ***EDIT Forgot to mention, you'll also have to use VBA to set it back to True. [ This Message was edited by: dsnbld on 2002-05-18 19:15 ]

May 18th, 2002, 08:44 PM	#4
Nickleby Join Date: May 2002 Posts: 26	Alternatively, you could put this code at the start of your macro(s) :- If Application.ExecuteExcel4Macro("get.document(7)") Then MsgBox "Sheet Whatever is protected. You must unprotect it before you can run this macro" Exit Sub End If

May 19th, 2002, 05:57 AM	#5
dirty_cofi New Member Join Date: May 2002 Posts: 13	Thx works like a dreem >