Yeni Bir Sezon Yeni Umutlar

Milyonlarca insanı peşinden süren futbol çok büyük bir sektör gerçekten. Maddi olarak da futbolun değeri hergeçen yıl artmakta. Bunun en somut örneği bu sezon Real Madrid ile sözleşmesini yenilemediği için bedelsiz olarak Los Angeles Galaxy takımına transfer olan David Beckham. Los Angeles Galaxy takımıyla yıllığı 50 milyon dolar olmak üzere 5 yıllık sözleşme imzaladı. Bir oyuncunu 5 yıllık kazancı 250 milyon dolar.

Futbol endüstrisinin dünya genelindeki payının 200 milyar doları bulduğu söyleniyor. bu durum ticari şirketlerin iştahını kabartıyor.  Yerli ve yabancı şirketler sponsorluk ve reklam vermede yarışmak zorunda kalıyorlar.

Yerli firmalar marka tanınırlılığını sağlamanın yanında sponsorluk yasası sayesinde  ödenen vergilerden yüzde 50’ye varan indirimlerden yararlanıyorlar.

Hakemliğimin 8.Sezonun sona erip 9. sezonu başlarken bu koca futbol sektörünün içinde olmaktan memnunun. Olabildiğim kadar içinde olmaya çalışacağım.

Excelde sayfa koruması nasıl kaldırılır?

” iLGİLENENLERE “

Önce Sayfa koruması olan Excel dosyası açılır,
sonra makrolar bölümünden VBA düzenleyicisinin içine girilir,
bir modül oluşturulur, oluşturulan modülün içine aşağıdaki kod yazılır,
ve çalıştırılır,…

Kolay gersin…

‘ ****************************** KOD ***************************

Sub pcwBreaker()

Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
On Error Resume Next
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

sifre = Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
ActiveSheet.Unprotect sifre
If ActiveSheet.ProtectContents = False Then
MsgBox “Bitti.” & vbCr & “Sifre:” & vbCr & sifre
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next

End Sub

****************************
VBA Kod bölümü şifreli ise

* Önce Kırılacak dosya açılır. O bir kenarda dursun

1 – Boş bir excel dosyası açılır
2 – Boş Excelin vba kod bölümüne gidirlir
3 – Bu kod, modüle yapıştırılır

Şimdi Asıl Olaya geliyorum….

4 – ‘ Sub pcwbreaker() ‘ den sonra ‘Activesheets(Kırılacak dosyanın sayfa adı yazılır).select’

Sonra Run…

Not: Uzun sürebilir, bekleyin… Sayfa koruma şifresinin karmaşılığına ve bilgisayar hızına göre değişebilir.

Kutu Rakı Tasarım Purojesi

internette gezinirken dahiyane bir buluşla karşılaştım. İzmitli kardeşimiz Necmi Özbay’ın tasarladığı projeyi gördükten sonra “şerefsizim benim aklıma gelmişti” dedim içimden.  🙂

Geçtiğimiz aylarda yapılan Türkmucit yarışmasına katılması gerektiğini düşündüğüm proje kesinlikle derece alacak nitelikte.

Bu projeyle aya gidemesekte her gece mehtaba çıkabiliriz artık…

Özellikleri ve Amacı
1- İnsan sağlığı için
2- El değmeden tüketiciye
3- İçebildiğin kadar içmek için
4- Daha bir sürü nedeni var
5- Bu proje ne zaman hayata geçer Tekel özelleşince rekabet oluşunca tabi fabrikalar bir kişiye satılmazsa