excel kapanırken mesaj verdiremiyorum

[cem]

ekteki dosyada çalışma sonunda excel sayfasını kapatırken mesaj çıkmasını istiyorum ama beceremedim.yardım edecek arkadaşa şimdiden teşekkürler

 

[Orion1]

Dosyanız ektedir.
Kodlar thisworkbook modlündedir.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If MsgBox("Dosyadan çıkmak istiyormusunuz?" & _
vbLf & "evrengizlen@hotmail.com", vbYesNo, "Ç I K I Ş") = vbNo Then Cancel = True
End Sub

 

[cem]

yardımınız için teşekkürler.


aşağıda yazdığım komutla neden çalışmıyor acaba,merak ettim.
Sub Auto_Close()
ActiveWorkbook.Save
MsgBox "çıkmak istediğinden eminmisin.", vbInformation, " By cem durma"
Excel.Application.Application.Quit
End Sub

 

[Orion1]

yardımınız için teşekkürler.


aşağıda yazdığım komutla neden çalışmıyor acaba,merak ettim.
Sub Auto_Close()
ActiveWorkbook.Save
MsgBox "çıkmak istediğinden eminmisin.", vbInformation, " By cem durma"
Excel.Application.Application.Quit
End Sub

Cancel = true desteklemiyor o prosedür.

 

[security]

Sub auto_close()
Dim k
k = MsgBox("ÇIKMAK İSTEDİĞİNİZDEN EMİN MİSİN?", vbYesNo, "                    UYARI")
If k = 6 Then
ActiveWorkbook.Save
End
End If
End Sub

Bu Kodu Deneyebilirsiniz...

 

[cem]

mümkünse son birşey sormak istiyorum kusura bakmayın.bir önceki mesajımda soracaktım unuttum.

ekli dosyamda görüldüğü üzere seçili satır üzerinde renklendirme çıkıyor.fakat sayfa koruması koyduğumda bu özellik hata mesajı veriyor.bunun bir çözümü yada komutu var mıdır...

 

[Orion1]

Sub auto_close()
Dim k
k = MsgBox("ÇIKMAK İSTEDİĞİNİZDEN EMİN MİSİN?", vbYesNo, "                    UYARI")
If k = 6 Then
ActiveWorkbook.Save
End
End If
End Sub

Bu Kodu Deneyebilirsiniz...

Bu Prosedürde hayır seçilse bile dosya yine kapanır.

 

[security]

Haklısınız Evren Hocam
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim k
k = MsgBox("ÇIKMAK İSTEDİĞİNİZDEN EMİN MİSİN?", vbYesNo, " UYARI")
If k = 6 Then
ActiveWorkbook.Save
End If
End Sub

 

[Orion1]

mümkünse son birşey sormak istiyorum kusura bakmayın.bir önceki mesajımda soracaktım unuttum.

ekli dosyamda görüldüğü üzere seçili satır üzerinde renklendirme çıkıyor.fakat sayfa koruması koyduğumda bu özellik hata mesajı veriyor.bunun bir çözümü yada komutu var mıdır...

Sayfa modülündeki kodu silip bunu yapıştırın.

Sub Worksheet_SelectionChange(ByVal Target As Range)
   ActiveSheet.Unprotect

   Cells.Interior.ColorIndex = 0  'Turn off previous use
   If Cells(1, 1) = "." Then
       ActiveSheet.Protect
    Exit Sub
    End If
   Target.EntireRow.Interior.ColorIndex = 39
   ActiveSheet.Protect
End Sub

 

[Orion1]

Haklısınız Evren Hocam
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim k
k = MsgBox("ÇIKMAK İSTEDİĞİNİZDEN EMİN MİSİN?", vbYesNo, " UYARI")
If k = 6 Then
ActiveWorkbook.Save
End If
End Sub

Bu kod ile hayıra basıldığında yine dosya kapanır.
Benim yazdığım kodu inceleyiniz.

 

[cem]

Sayfa modülündeki kodu silip bunu yapıştırın.

Sub Worksheet_SelectionChange(ByVal Target As Range)
   ActiveSheet.Unprotect

   Cells.Interior.ColorIndex = 0  'Turn off previous use
   If Cells(1, 1) = "." Then
       ActiveSheet.Protect
    Exit Sub
    End If
   Target.EntireRow.Interior.ColorIndex = 39
   ActiveSheet.Protect
End Sub

kod için teşekkürler.ama yine tablo korumasını kaldır şeklinde pencere açılıyor.yapacağım dosya çoklu kullanılacağından parola korumalı olacak bu yüzden parolalı giriş olmaması gerekiyor.yinede zaman ayırdığınız için teşekkürler

 

[Orion1]

kod için teşekkürler.ama yine tablo korumasını kaldır şeklinde pencere açılıyor.yapacağım dosya çoklu kullanılacağından parola korumalı olacak bu yüzden parolalı giriş olmaması gerekiyor.yinede zaman ayırdığınız için teşekkürler

O kodun yerine aşağıdakini yapıştırın.
Sayfa koruma şifresi 1234 tür

Sub Worksheet_SelectionChange(ByVal Target As Range)
   ActiveSheet.Unprotect [B][COLOR="Red"]"1234"[/COLOR][/B]

   Cells.Interior.ColorIndex = 0  'Turn off previous use
   If Cells(1, 1) = "." Then
       ActiveSheet.Protect [B][COLOR="Red"]"1234"[/COLOR][/B]
    Exit Sub
    End If
   Target.EntireRow.Interior.ColorIndex = 39
   ActiveSheet.Protect [B][COLOR="Red"]"1234"[/COLOR][/B]
End Sub

 

[security]

tşk evren hocam

 

[Orion1]

tşk evren hocam

Rica ederim.