I tested those two subs, saved the file to a new file and tested once mo
Edit/Paste remains grayed. I do not know much about the functioning of the
protection command options used, but I'm afraid that the options I've used
should be cancelled by another function than just the plain .Unprotect. Am I
right?

HBj

"asmenut" wrote in message
...
Sub UnProtect()
Dim i As Integer
Dim SheetCount As Integer
Dim SheetName As String

SheetCount = ActiveWorkbook.Sheets.Count

For i = 1 To SheetCount
SheetName = ActiveWorkbook.Sheets(i).Name
ActiveWorkbook.Sheets(i).UnProtect
Next i
End Sub

Sub Protect()
Dim i As Integer
Dim SheetCount As Integer
Dim SheetName As String

SheetCount = ActiveWorkbook.Sheets.Count

For i = 1 To SheetCount
SheetName = ActiveWorkbook.Sheets(i).Name
ActiveWorkbook.Sheets(i).Protect
ActiveSheet.EnableSelection = xlUnlockedCells
Next i
End Sub

"HBj" wrote:

Hello,

My protecting Excel 97 VBA-code is as follows
With ActiveWorkbook.Sheets("MAIN")
.EnableSelection = xlUnlockedCells
.EnableAutoFilter = True
.Protect Contents:=True, userInterfaceOnly:=True

One of the Unprotect codes is
Sheets("Main").Select
ActiveSheet.Unprotect

....but

....after unprotect, copy/paste is not possible. What can be wrong with
the
protect code? How can I restore the complete unprotect state?

HBj