Unprotect Acip Kapama

[d3lishey]

Merhaba arkadaslar Oncelikle Kolay gelsin
Oncelikle Istedigi Sey Su bi Sheets den digerine kopyalama yaptigim bi makro var ama ilk Sheet protec calistirabildim ama diger sheets2 gecip once acip yapistir ve sora kapat diyemiyorum

Sub Button3_Click()
 Sheets("forma").Select
    Range("B14:n28").Select
    Selection.Copy
    Sheets("reservation").Select
    Application.Goto Reference:="R650000C1"
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(4, 0).Range("A1").Select
    Sheets("forma").Select
    ActiveSheet.Unprotect "2562"
    Application.CutCopyMode = False
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-9
    ActiveSheet.Protect "2562"
    Range("E4").Select
End Sub

burda istedigim Sey Su reservation bolumune girince kodu acsi islem bitince kapatsin kullandigim kod usteki ben kendim de ekledim acip kapamayi ama tam bu koda ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False gelince hata veriyor ?

 

[d3lishey]

Bu konuda bilginaktarabilecek varsa cok sevinirim

 

[AdemCan]

Merhaba,
Sheets("reservation").Select satırının altına

[COLOR="Blue"]ActiveSheet.Unprotect "2562"[/COLOR]

ActiveCell.Offset(4, 0).Range("A1").Select satırının altına da

[COLOR="Blue"]ActiveSheet.Protect "2562"[/COLOR]

satırını eklerseniz; reservation sayfasına geçtiğinde Sayfa Korumasını iptal eder, forma sayfasına geçmeden de Sayfa Korumasını aktif eder.

 

[d3lishey]

Merhaba,
Sheets("reservation").Select satırının altına

[COLOR="Blue"]ActiveSheet.Unprotect "2562"[/COLOR]

ActiveCell.Offset(4, 0).Range("A1").Select satırının altına da

[COLOR="Blue"]ActiveSheet.Protect "2562"[/COLOR]

satırını eklerseniz; reservation sayfasına geçtiğinde Sayfa Korumasını iptal eder, forma sayfasına geçmeden de Sayfa Korumasını aktif eder.

Dediginizi Yaptim Ama Yinede Ayni Yerde Hata Veriyor Resimdede Belli

Bu sekilde Diyor ir kere aciyor kopyaliyor ikinci defa tekrarlayinca acmiyor yada kapatmiyor

 

[d3lishey]

Halletim Arkadaslar
Sheet1.Unprotect Password:="Secret"

'YOUR CODE

Sheet1.Protect Password:="Secret"
Kullanarak Halloldu Diger Kodu Kullanmaya Musade etmiyordu