Need VB to allow pasting in a protected sheet

[papagino]

I guys!

I need a VB command that would allow me to be able to paste in a protected worksheet.

Thanks

Dan

 

[Glaswegian]

Dan

You'll need to unprotect and then protect, something like

Sub Test()

Sheets("Sheet1").Unprotect "My Password"
'do your paste here
Sheets("Sheet1").Protect "My Password"
End Sub


Regards

 

[papagino]

Thanks for your reply Glaswegian,

Let me explain what I'm trying to accomplish...

I have the following VB command in my Worksheets:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Locked = False Then
Me.Protect Password:="cabin"
End If

If Target.Count = Target.EntireRow.Cells.Count Then
Application.OnKey "{Delete}", ""
Else
Application.OnKey "{Delete}"
End If

If Target.Count = Target.EntireRow.Cells.Count Then
Me.Unprotect Password:="cabin"
End If


End Sub

The spreadsheets are parts of an Estimating and management system for construction contractors. It is composed of many spreadsheets and I need to be able to copy and paste from one sheet to and other.

The above VB commands allow me to do the functions that I want except that if you copy cell(s) from one spreadsheet and try to paste it in and other spreadsheet, the paste function is not available.

Any ideas of the line I can add to the VB to do this?

Thanks

Dan

 

[Glaswegian]

By using the Selection Change event, every time you click on any cell, the sheet will lock, unless you select an entire row. Therefore you will not be able to paste. If you have unlocked an entire row then you will be able to paste in that row but the sheet will then remain unprotected. I'm not sure exactly what your aims are here, so I'm not sure what to suggest.

Regards