İki makroyu birleştirme

[zırzır]

Arkadaşlar aşağıda iki makro var bunları birlikte nasıl çalıştırabilirim.

 

[halit3]

mesaj verenbu makroyu
Sub auto_open()
MsgBox "Makro kilitli"
End Sub
makroyu siliniz auto_open makrosunuda aşağıdakiyle değiştiriniz

Sub auto_open()
MsgBox "Makro kilitli"
Dim i As Integer
Dim j As Integer
Dim SerialNumber As Long
Application.ScreenUpdating = False
Application.EnableCancelKey = xlDisabled
'Şifre Bölümü
GetVolumeInformationA "C:\", vbNullString, 0, _
SerialNumber, 0, 0, vbNullString, 0
If SerialNumber <> xxxxxxxxx Then
MsgBox "Bu program xxxxxxxxxx aittir ...", vbCritical, "D i k k a t . . . !"
auto_close
End If
End Sub

 

[zırzır]

Sayın halit3,birinci makro çalışmak zorunda onu silip dediğiniz gibi yaparsam birinci makro çalışmıyor.Bu makro,makro içeriğini gizlediğinden kullanmam gerekiyor.

Option Private Module
Sub auto_open()
MsgBox "Makro kilitli"
End Sub
-------------------------------------------------------------
Declare Function GetVolumeInformationA Lib "Kernel32" _
(ByVal lpRootPathName As String, _
ByVal lpVolumeNameBuffer As String, _
ByVal nVolumeNameSize As Long, _
lpVolumeSerialNumber As Long, _
lpMaximumComponentLength As Long, _
lpFileSystemFlags As Long, _
ByVal lpFileSystemNameBuffer As String, _
ByVal nFileSystemNameSize As Long) As Long
Sub auto_open()
Dim i As Integer
Dim j As Integer
Dim SerialNumber As Long
Application.ScreenUpdating = False
Application.EnableCancelKey = xlDisabled
'Şifre Bölümü
GetVolumeInformationA "C:\", vbNullString, 0, _
SerialNumber, 0, 0, vbNullString, 0
If SerialNumber <> xxxxxxxxx Then
MsgBox "Bu program xxxxxxx aittir ...", vbCritical, "D i k k a t . . . !"
auto_close
End If
End Sub
Sub auto_close()
Application.ScreenUpdating = True
ActiveWorkbook.Save
Application.Quit
End Sub

 

[zırzır]

Arkadaşlar bu konuyla ilgilenebilecekmisiniz?

 

[janveljan]

Option Private Module satırını esas çalıştırmak istediğiniz makroların olduğu modülün başına koymanız çözüm olmuyor mu?

 

[zırzır]

Alttaki birinci makroyu sildiğimde "Option Private Module" satırı sorun yaratıyor.

 

[janveljan]

Dediğimi dosyada yaptım bir inceler misiniz?

 

[zırzır]

Sayın janveljan,"Option Private Module" satırını ilave ettim ancak bir hata yaptım herhalde .İlgin için
teşekkür ederim.

 

[halit3]

bu komutun ikiside aynı komut öncelikle sen hangi komutun önce çalışmasını istiyorsun once çalıştıracağın komutun oltına diğer olay yordamını yapacaksın burada aynı anda ikisi birden çalışmaz mutlaka biri birinden önce çalışması lazım