• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Yardım Çalışma Kitabındaki Sayfaların Belli Bölümlerini Silmek

RedStar

Yeni Üye
Katılım
5 Tem 2018
Mesajlar
8
En iyi yanıt
0
Puanları
3
Yaş
44
Konum
Adana
Ad Soyad
Cem Kara
Office Vers.
Office 2013 TR
Arkadaşlar iyi akşamlar

Bir tane excel çalışma kitabım var. 11 tanede çalışma sayfam var. Ben ekteki örnegini gönderdiğim çalışma kitabında makro isimli bir sayfa oluşturdum burayada bir buton yerleştirdim benim yapmak istediğim bu butona basınca çalışma kitabındaki şube ile şube8 dahil 9 çalışma kitabında yeşil ile belirtimiş olduğum yerlerdeki verilerin silinerek tekrar Şube sayfasındaki D6 hücresine gelmek bunu bir şekilde makro kaydet ile yapıyorum ama burada bir kaç tane yardımınıza ihtiyacım var.

1-Makro sayfasındaki Verileri Sil isimli butona şifre koymak istiyorum. Silmek isteyen butona basınca şifre ekranı gelsin şifreyi biliyorsa makro çalışıp verileri silsin bilmiyorsa şifre yanlış şeklinde uyarı versin.

2- Şifre Giriş Ekranında şifre girerken girilen şifrenin ****** şeklinde girilmesini nasıl sağlarız.

Bilgisayarı ortak kullanıyoruz sık sık başıma girdiğim verilerin silinmesi olayı geliyor yardımcı olursanız çok sevinirim. Örnek dosyam ektedir. Teşekkür ederim.,
 

Ekli dosyalar

  • Data.xlsm
    68.3 KB · Görüntüleme: 7

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,556
En iyi yanıt
14
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Merhabalar,
Kullandığınız Ofis versiyonunuz ve sistem türünüz nedir (32 bit - 64 bit) ?
 

RedStar

Yeni Üye
Katılım
5 Tem 2018
Mesajlar
8
En iyi yanıt
0
Puanları
3
Yaş
44
Konum
Adana
Ad Soyad
Cem Kara
Office Vers.
Office 2013 TR
Ofis 2013 32 bit Türkçe İşletim Sistemi Windows 7 Ultimate 32 bit
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,556
En iyi yanıt
14
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Dosyanız ek'tedir. (y)
Örnek olarak şifre; abc123 olarak belirtilmiştir, kodlarda görebilirsiniz.. Kendi şifreniz ile değiştirirsiniz.

Kullanılan kodları da belirteyim..

Module Kodları
PHP:
Sub ExcelTurkey()
    UserForm1.Show
End Sub

UserForm Kodları
PHP:
Private Sub CommandButton1_Click()
    Dim sifre$, i%
    sifre = "abc123"
    If Label2.Caption = sifre Then
        Label3.Caption = "ü"
        Label3.ForeColor = &HFF00&
        For i = 3 To Sheets.Count
            Sheets(i).Range("D6:G8,I6:L8,D10:G17,I10:L17,D19:G25,I19:L25,D27:G33,I27:L33,D35:G37,I35:L37").ClearContents
        Next i
        Application.Goto Sayfa1.Range("D6")
        Application.Wait Now + TimeSerial(0, 0, 2)
        MsgBox "İşlem Tamamlandı.", vbInformation, "Www.ExcelTurkey.Com"
        Unload Me
            Else
        Label2.Caption = ""
        Application.EnableEvents = False
        TextBox1.Value = ""
        Application.EnableEvents = True
        Label3.Caption = "x"
        Label3.ForeColor = vbRed
        Exit Sub
    End If
End Sub

Private Sub TextBox1_Change()
    Label2.Caption = Label2.Caption & Mid(TextBox1.Value, Len(Label2.Caption) + 1, 1)
    TextBox1.Value = String(Len(Label2.Caption), "*")
End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 8 And Len(Label2.Caption) > 0 Then
        Label2.Caption = Left(Label2.Caption, Len(Label2.Caption) - 1)
    End If
End Sub

Private Sub UserForm_Initialize()
    Label2.Caption = ""
End Sub


parolaislem.gif
 

Ekli dosyalar

  • Yeni-Data.rar
    72.2 KB · Görüntüleme: 10

gicimi

Yeni Üye
Katılım
18 Haz 2018
Mesajlar
64
En iyi yanıt
0
Puanları
18
Yaş
36
Konum
Ankara
Ad Soyad
Hüseyin Yılmaz
Office Vers.
Office 2016 Pro
@Admin Merhaba Bu hata nedir._? Acaba.Ekran.JPG
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,556
En iyi yanıt
14
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Kodu yazdıktan sonra prosedürün adını değiştirdim fakat butona atama yapmadım, eski prosedür ismine atanmış kaldığı için bu hatayı alıyorsunuz. Buton üzerinde sağ tıklayıp, Makro Ata deyip ExcelTurkey prosedürünü seçip Tamama basın.
 
Üst Alt