Excel Sayfa Korumasını Kırma Kaldırma Mahfetme

excele sayfa koruması mı koymuşlar, aşağıdaki kod bu uğraşları boşa çıkarıyorlar;

Sub PasswordBreaker()
'Author unknown but submitted by brettdj of www.experts-exchange.com

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


ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet.ProtectContents = False Then
MsgBox "One usable password is " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
ActiveWorkbook.Sheets(1).Select
Range("a1").FormulaR1C1 = Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next


End Sub

EXCEL'DE BİR HÜCREDEKİ İSİM VE SOYİSİM BİLGİLERİNİ VBA İLE AYIRMAK

SUB ISIMAYIRMA()
 Dim degerimiz() As String
  Range("a1").Select
   Do While Not IsEmpty(ActiveCell)
         degerimiz() = Split(ActiveCell.Value)  'split fonksiyonu isimleri birbirinden ayırıyor.. ve her bir isme başlangıçta 1 den kaçtane var ise sıralıyor.
         
          For i = LBound(degerimiz) To UBound(degerimiz)  'Lbound bir değişkendeki en küçük değeri burada 1 değerine dönüşüyor... UBound ise en büyük değeri alıyor ve döngüye başlanıyor.
         
                MsgBox degerimiz(i) 'burada ben msgboxa dönen değerleri yazdırdım görebilmek amacıyla.. burayı silip kullanmak istediğiniz yere yazabilirsiniz..
         
         Next i

ActiveCell.Offset(1, 0).Select
Loop
END SUB

Excel Vba Hücre İçindeki Değerleri Değiştirme

Geçen excelde verileri düzenliyorum. Baktım cep telefonlarının arasında boşluk var. bu boşlukları aldırmak lazım dedim.. sonra aradım ve aradığım VBA kodunu buldum.

Replace ( x , " ","")

bunu yapınca ilaç gibi geldi.

MS EXCEL'DE İLİŞKİLİ VERİ DOĞRULAMA

Excel veri doğrulamada hazırladığımız listeye ad tanımlıyoruz.
Örneğin ÇALIŞANLAR diye bir liste tanımlıyoruz..

Bu listede iki veri olsun,
Ağalar
Marabalar


Sonra Ağaların ve Marabaların bulunduğu alanlar da liste olarak tanımlanır ve bunlara

Ağalar ve Marabalar olarak ayrı ayrı ad tanımlanır.

sonrasında ilk veri doğrulamadan Ağalar seçildiğini varsayalım.. aşağıdaki ikinci veri doğrulamada sadece ağaların ismi çıkması için, yapılacak veri doğrulamada Liste opsiyonu seçilir ve aşağıdaki kutuya şu formül yazılır.


=DOLAYLI ( YUKARIDAKİHÜCRE SEÇİLİR )

Dolaylı formülü ingilizce versiyonlarda indirect( ) olarak kullanılır.