Çalışma Kitabındaki İlk Sayfayı secme nasıl olur

[kykbt]

Arkadaşlar merhaba

Belki kolay bir kod ama bulamadım yardımınız gerekiyor.
Aşağıdaki kodda sayfaları sayıp sırayla koruma yapmam gerekiyor ancak sadece bulunduğum sayfadan sonrakileri koruma yapıyor.
Yapmam gereken cok sayfadan oluşan çalışma kitabındaki ilk sayfayı bulmam ve kodun oradan başlamasını sağlamam gerekiyor.

Sub Sayfalari_Koru()
Dim i As Integer
Dim Cnt As Integer
On Error Resume Next
İlkSayfa = ActiveSheet.Name
Cnt = ActiveWorkbook.Worksheets.Count
For i = 1 To Worksheets.Count
ActiveSheet.Protect "1234"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowFiltering:=True
ActiveSheet.Next.Select
Next i
Sheets(İlkSayfa).Activate
End Sub

 

[Orion1]

For i = 1 To Worksheets.Count
Sheets(i).Protect "1234"
Sheets(i).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowFiltering:=True
Next i

 

[kykbt]

Evren Hocam Merhaba

İlginize teşekkür ediyorum.

Ancak sorunum cözülmedi yine önceki sayfaları etkilemiyor.

İlk sayfaya gidip secen bir kod eklesek acemicemi olur.

 

[kykbt]

Evren Hocam Merhaba

İlginize teşekkür ediyorum.

Ancak sorunum cözülmedi yine önceki sayfaları etkilemiyor.

İlk sayfaya gidip secen bir kod eklesek acemicemi olur.

Hocam Pardon kodu calıştırdım nerede hata yapmışımda çalışmadı idi anlamadım ama....

Ayrıca tek başına kod olarak ilk sayfayı secen kodu yazarsanız sevinirim bir başka yerdede lazım olacakta

Sağolun

 

[Orion1]

Hocam Pardon kodu calıştırdım nerede hata yapmışımda çalışmadı idi anlamadım ama....

Ayrıca tek başına kod olarak ilk sayfayı secen kodu yazarsanız sevinirim bir başka yerdede lazım olacakta

Sağolun

Benim yazdığım kodlarda sayfa seçme kodu yok.
İlk syafayı seçmek için.

sheets(1).select

 

[kykbt]

Benim yazdığım kodlarda sayfa seçme kodu yok.
İlk syafayı seçmek için.

sheets(1).select

Evren Hocam

Sanırım ben döngü içine yazdığım için fark edemedim döngü dışına yazınca ilk sayfaya gitti.