visual kod sıralaması

[yldrm_06]

slm arkadaslar aşağıdaki 3 kodu visualde olması gereken sıra nasıl acaba
( farklı excel dosyarında uygulayınca her kod calısıyor ama aynı ThisWorkbook te çalışmıyor)

1. kod lisans koymak için

2.-3. kodlar ıse çalışma sayfalarını gizlemek için


-------------------
Option Explicit

Private Sub Workbook_Open()
If Date >= "15.04.2010" Then
MsgBox "Bu dosyanın kullanım süresi dolmuştur !" & Chr(10) & _
"Lütfen dosyanızın süre lisansını uzatın !", vbCritical, "UYARI !"
If Excel.Application.Windows.Count = 1 Then
ThisWorkbook.Save
Application.Quit
Else
ThisWorkbook.Close True
End If
End If
End Sub
---------------------
Private Sub Workbook_Open()
For Each syf In Sheets
If syf.Name <> "GİRİŞ" Then syf.Visible = xlVeryHidden
Next
End Sub
-----------------------
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name = "GİRİŞ" Then
For Each syf In Sheets
If syf.Name <> "GİRİŞ" Then syf.Visible = xlVeryHidden
Next
End If
End Sub

 

[leumruk]

Merhaba,

Private Sub Workbook_Open()
If Date >= "15.04.2010" Then
MsgBox "Bu dosyanın kullanım süresi dolmuştur !" & Chr(10) & _
"Lütfen dosyanızın süre lisansını uzatın !", vbCritical, "UYARI !"
If Excel.Application.Windows.Count = 1 Then
ThisWorkbook.Save
Application.Quit
Else
ThisWorkbook.Close True
End If
End If
'---------------------
For Each syf In Sheets
If syf.Name <> "GİRİŞ" Then syf.Visible = xlVeryHidden
Next
End Sub

Open kodlarını birarada kullanmalısınız. Ayrı ayrı tanımlarsanız hata alırsınız. Yukarıdaki gibi deneyin.

 

[Levent Menteşoğlu]

open olayını aşağıdaki gibi kullanabilirsiniz.

Private Sub Workbook_Open()
If Date >= "15.04.2010" Then
MsgBox "Bu dosyanın kullanım süresi dolmuştur !" & Chr(10) & _
"Lütfen dosyanızın süre lisansını uzatın !", vbCritical, "UYARI !"
If Excel.Application.Windows.Count = 1 Then
ThisWorkbook.Save
Application.Quit
Else
ThisWorkbook.Close True
End If
[COLOR=red]else[/COLOR]
[COLOR=red]For Each syf In Sheets
If syf.Name <> "GİRİŞ" Then syf.Visible = xlVeryHidden
Next
[/COLOR]End If
End Sub

 

[yldrm_06]

tsk ederım

arkadaslar tsk ederım ama benım yazdıgım kodlarda gızlı sayfadan cıkınca acılan sayfa gızlenıyordu ama sımdı sızın kodnuzu yazdıgımda sayfalar kapanmıyor bu konuda yardım edermısınız

 

[Levent Menteşoğlu]

SheetActivate olayını aynı şekilde kullanmanız gerekiyor. Biz sadece open prosedürünü birleştirmiştik.

 

[yldrm_06]

tskler

fark ettım ama bıraz gec oldu bırsey daha sormak ıstıyorum sımdı ben bu kodları sıralı bır sekılde yazıyorum ama lısans doldugu zaman kaydet/ farklı kaydet / iptal seceneklerı karsıma cıkıyor benım yazdıgım kodda dırek kendısını kapatıyordu bu sorunu nasıl cözebılırım bu sekılde kod sırası kullandım tskler tekrar

Private Sub Workbook_Open()
If Date >= "05.04.2010" Then
MsgBox "Sistemde Ciddi Bir Hasar Oluşmuştur." & Chr(10) & _
"Hata Kodu 800752egd", vbCritical, "UYARI !"
If Excel.Application.Windows.Count = 1 Then
ThisWorkbook.Save
Application.Quit
Else
ThisWorkbook.Close True
End If
End If
For Each syf In Sheets
If syf.Name <> "GİRİŞ" Then syf.Visible = xlVeryHidden
Next
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name = "GİRİŞ" Then
For Each syf In Sheets
If syf.Name <> "GİRİŞ" Then syf.Visible = xlVeryHidden
Next
End If
End Sub
.