Disable editing on a spreadsheet control

[threearabawys]

Hello everybody


I have a form with an spreadsheet control on it, I need to disable cell editing and if possible selecting and removing... basically all forms of interaction with said form.. I only put it there for viewing however I'm feeding the control some code via the form_initialize sub and if I select protect sheet under the custom properties of the control I get an error because the code is trying to edit the control.

Any Ideas on how this can be achieved?


Thanks in advance

 

[Andrew Poulsom]

Can't you protect the sheet in code, after editing it?

 

[threearabawys]

Can't you protect the sheet in code, after editing it?

I'm really not a very good coder , can you tell me how it could be done please?

 

[Andrew Poulsom]

How did you protect it in the user interface?

 

[threearabawys]

How did you protect it in the user interface?

I select the spreadsheet control and on the properties tab I click on the "..." besides the "(Custom) box, a "property pages" dialogue box pops up and from the I go into the protection tab and check the "protect active sheet" check box.

 

[Andrew Poulsom]

To protect the first worksheet:

Spreadsheet1.Worksheets(1).Protect

and to unprotect it:

Spreadsheet1.Worksheets(1).Unprotect

 

[threearabawys]

Thank you but I get an error when trying to run the form... I did find a way to disable editing though ...

Private Sub Spreadsheet1_BeforeContextMenu(ByVal x As Long, ByVal y As Long, ByVal Menu As OWC11.ByRef, ByVal Cancel As OWC11.ByRef)
Cancel = True
End Sub

Private Sub Spreadsheet1_BeforeKeyDown(ByVal KeyCode As Long, ByVal Shift As Long, ByVal Cancel As OWC11.ByRef)
Cancel = True


End Sub




Private Sub Spreadsheet1_StartEdit(ByVal Selection As Object, ByVal InitialValue As OWC11.ByRef, ByVal Cancel As OWC11.ByRef, ByVal ErrorDescription As OWC11.ByRef)
Cancel = True
End Sub

 

[Andrew Poulsom]

What error do you get "when trying to run the form"? Post your VBA code.