bu makroları nasıl birleştirebilirim

[meda58]

arkadaşlar aşağıdaki makroları nasıl birleştirebiliriz

Private Sub Workbook_Open()
MsgBox " Programına Hoşgeldiniz...", , " Şifre Kontrol"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Surucu = FSO.GetDrive("C:")
If Surucu.SerialNumber = -1407513282 Then
MsgBox " Kayıtlı Kullanıcı Olduğunuz İçin Teşekkür Ederiz."
Exit Sub
Else
ThisWorkbook.Save
Application.Quit
End If
End Sub

Private Sub Workbook_Open()
 
Dim i As Integer
 
For i = 1 To Worksheets.Count
    With Sheets(i)
        If .Name = "BÜYÜK TARİFE" Then
            .Select
        End If
    End With
Next i
 
End Sub

 

[Orion1]

Buyurun.

Private Sub Workbook_Open()
Dim i As Integer
MsgBox " Programına Hoşgeldiniz...", , " Şifre Kontrol"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Surucu = FSO.GetDrive("C:")
If Surucu.SerialNumber = -1407513282 Then
MsgBox " Kayıtlı Kullanıcı Olduğunuz İçin Teşekkür Ederiz."
For i = 1 To Worksheets.Count
    With Sheets(i)
        If .Name = "BÜYÜK TARİFE" Then
            .Select
        End If
    End With
Next i
Exit Sub
Else
ThisWorkbook.Save
Application.Quit
End If
End Sub

 

[meda58]

hocam çok teşekkürler