Delete Row in Protected Sheet

[gordons]

Hai all,

I need your help, i made a macro code for move data from 1 sheet to another (Cut-Paste) in the protected sheet. The problem is, when i protect the sheet, my macro code didn't work. Do you have any idea?

Here is the macro code

Sub Oki()
h = 2
For r = 3 To 100 Step 1
    If Cells(r, "T") > 0 And _
       WorksheetFunction.IsText(Cells(r, "T")) = False Then
        Sheets(2).Activate
        DesRow = Cells(Rows.Count, "B").End(xlUp).Row + h
        h = 1
        Sheets(1).Activate
        Cells(r, "T").EntireRow.Copy Sheets(2).Cells(DesRow, "A")
        Application.CutCopyMode = False
        Cells(r, "T").EntireRow.Delete
        r = r - 1
            End If
Next

   
End Sub

 

[echo99]

@gordons
in first code you must unprotect your sheet to be able to copy file then in end code protect again your file, i hope this can help.

 

[gordons]

Hai Echo, thanks for help.

I add this code, but still not work.

Do you know what wrong? Here is the file.

Sub Oki()
Sheet1.Unprotect Password:="Secret"
h = 2
For r = 3 To 100 Step 1
   If Cells(r, "T") > 0 And _
       WorksheetFunction.IsText(Cells(r, "T")) = FalseThen
        Sheets(2).Activate
        DesRow = Cells(Rows.Count, "B").End(xlUp).Row + h
        h = 1
        Sheets(1).Activate
        Cells(r, "T").EntireRow.Copy Sheets(2).Cells(DesRow, "A")
        Application.CutCopyMode = False
        Cells(r, "T").EntireRow.Delete
        r = r - 1
Sheet1.Protect Password:="Secret"
           EndIf
Next

   
EndSub

 

[echo99]

@gordons

Please cek this attch

 

[gordons]

Dear Echo,

There is error that sound Run Time Error '1004' : delete method of range class failed.

Do you know why?

 

[echo99]

i have test this file is no problem and no error, may be you must restart your excel and save the file on your computer.