ActiveSheet adı Şablon ise makro çalışmasın

[alirizapekbilir]

aşağıdaki kodu aktif sayfalarda kullanıyorum. bu kodun sadece şablon sayfasında çalışmasını istemiyorum. nasıl yapmalıyım.

Sub Sabitle()

sor = MsgBox("Eminmisiniz! Aksi halde bodronuzu tekrar yapmak zorunda kalabilirsiniz.", 20, "SON UYARI")
If sor = vbNo Then Exit Sub

ActiveSheet.Unprotect
Range("B6").Select
ActiveWindow.SmallScroll Down:=0
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("B6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B6").Select
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

 

[muygun]

Merhaba;

Sub Sabitle()
satırından hemen sonra

If ActiveSheet.Name <> "şablon" Then

satırını ve en alttaki ;

End Sub
satırını üstüne

End If

satırını ekleyin.
İyi çalışmalar.

 

[alirizapekbilir]

Çok teşekkür ederim