Makrolu sayfada koruma sorunu

[cost27]

MERHABA DEĞERLİ ARKADAŞLARIM VE ÜSTATLARIM EKTEKİ DOSYAMDA BİR SORUNUM VAR BU SORUNU ANCAK SİZ DEĞERLİ VE BİLGİLİ ARKADAŞLARIM ÇÖZERSİNİZ ŞİMDİ 3 TANE SAYFAMIZ VAR FATURA FİŞ VE FİŞ AÇ FİŞ AÇ TA Kİ BUTONA HER TIKLADIĞIMDA İLK FİŞİ KOPYALAYARAK YENİ BİR FİŞ AÇACAK VE FİŞİN İÇERİĞİ GİRİLDİKTEN SONRA FİŞ SAYFASINDAKİ FATURA KES BUTONUNA TIKLADIĞIMDA O FİŞTEKİ TÜM VERİLERİ FATURADAKİ İLGİLİ YERLERE KOPYALAYACAK BURAYA KADAR BİR SORUN YOK YALNIZ BEN BU FİŞ SAYFASINA ŞİFRELİ KORUMA KOYMAK İSTİYORUM BUNU YAPINCA İŞLEM YAPILDIKTAN SONRA FİŞ SAYFASININ KORUMASI AÇIK KALIYOR TEKRAR DÖN KAPAT KOMUTUNU VERİNCE BU SEFER DÖNÜP İLK FİŞTEKİ SAYFAYI KAPATIYOR YANİ KOPYA YAPTIĞIM SAYFAYA GERİ DÖNÜŞÜ YAPTIRAMIYORUM BU ARADA TÜM İŞLEMLER BİTİNCE EKRAN FATURA BÖLÜMÜNDE KALMASI GEREKİYOR UMARIM ANLATABİLMİŞİMDİR YARDIMLARINIZI RİCA EDİYORUM TŞK. KODLAR VE DOSYA AŞAĞIDA

Sub FATURACP()
'
' FATURACP Makro
'

'
ActiveSheet.Unprotect "123"
Range("J8").Select
ActiveCell.FormulaR1C1 = "DİKKAT FATURA KESİLDİ"
Range("I9").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 23
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 25
ActiveWindow.SmallScroll Down:=21
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 27
ActiveWindow.ScrollColumn = 28
ActiveWindow.SmallScroll Down:=-3
Range("AL22:AS42").Select
Selection.Copy
ActiveWindow.ScrollColumn = 27
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 23
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll Down:=-15
Sheets("FATURA (1)").Select
ActiveWindow.SmallScroll Down:=9
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E22").Select
Application.CutCopyMode = False
End Sub

 

[cost27]

yokmu bana yardımcı olacak biriii