[Yardım]  Şifreli Butonu Revize Etmek

VBE penceresindeki menüler ve işleyiş

Şifreli Butonu Revize Etmek

İleti#1)  selimileri0623 » 29 Şub 2020 11:58

Kod: Tümünü seç

Sub Yetki_Sayfasi_MailAt() Dim DsyYol, Dsy, OutApp, OutMail, Sifre, MailSayf, InpSifre Sifre = "10" Set MailSayf = Worksheets("yetki") Basadon: InpSifre = InputBox("Sifre gir..", "Calisma Kitabi Sifresi") If InpSifre = "" Then Exit Sub If InpSifre = Sifre Then Application.ScreenUpdating = False ThisWorkbook.Unprotect Sifre MailSayf.Visible = True On Error Resume Next ThisWorkbook.Worksheets(MailSayf.Name).Copy DsyYol = CreateObject("WScript.Shell").SpecialFolders("Desktop") + "\" Dsy = MailSayf.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss") Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) ActiveWorkbook.SaveAs DsyYol & Dsy With OutMail .To = "kumsalfelek@hotmail.com" .CC = "kumsalfelek@hotmail.com" .Subject = Dsy .Body = "Merhaba ," & Chr(13) & Chr(13) & "Bilginize.." & Chr(13) & Chr(13) & "İyi calismalar..." .Attachments.Add ActiveWorkbook.FullName .Display '.Send Mail atilmasi icin tirnagi kaldir End With ActiveWorkbook.Close SaveChanges:=False Kill DsyYol & Dsy & ".xlsx" Set OutMail = Nothing Set OutApp = Nothing MailSayf.Visible = False ActiveWorkbook.Protect Sifre Application.ScreenUpdating = False Else MsgBox "Sifer yanlis tekrar deneyiniz.." GoTo Basadon End If End Sub

Yukarıdaki kodla 10 şifresini giren mail atabiliyor . Benim yapmak istediğim şifreyi oraya yazmak değil şifreyi belirli bir konumdak çekmek konum şu:

Kod: Tümünü seç
yer = Worksheets("yetki").Shapes("sifre").OLEFormat.Object.Characters.Text
   

Sifrenin saklı olduğu yerin tam kodlarını da paylaşayım yardımcı olması açısından
Kod: Tümünü seç


Private Sub CommandButton5_Click() 'MsgBox Worksheets("yetki").Shapes("sifre").OLEFormat.Object.Characters.Text yer = Worksheets("yetki").Shapes("sifre").OLEFormat.Object.Characters.Text parametre = InputBox("Yetkileri değiştirebilmeniz için giriş şifresini giriniz şifre ", "uyarı!") If parametre <> yer Then MsgBox "Yanlış şifre girdiniz" 'End Exit Sub End If For k = 1 To MultiPage1.Pages.Count - 1 'MultiPage1.Pages.Item(MultiPage1.Pages(k).Caption).Enabled = True MultiPage1.Pages(k).Enabled = True Next k End Sub


benim istediğim kaba tabiri ile

Sub Yetki_Sayfasi_MailAt()
Dim DsyYol, Dsy, OutApp, OutMail, Sifre, MailSayf, InpSifre
Sifre = "10" BURADAKİ 10 ŞİFRESİ YERİNE

yer = Worksheets("yetki").Shapes("sifre").OLEFormat.Object.Characters.Text Buradaki şifreyi kullanması
Kullanıcı avatarı
selimileri0623
Siteye Alışmış
 
Kayıt: 18 Ağu 2019 10:27
Meslek: Işçi
Yaş: 38
İleti: 141
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MERSIN

Cevap: Şifreli Butonu Revize Etmek

İleti#2)  selimileri0623 » 29 Şub 2020 12:03

1. Mesajdaki kod un işlevi degsimemeli işlevi şu
Bu excel sayfasının korumasını kaldırıyor.
Koruma kaldırmak için şifre olarak 10 gidiyor
Gizli olan yetki Sayfasını görünür yapıyor
Yetki sayfasını ek olarak excel seklinde mail atıyor
Sayfa koruması 10 u girip sayfayı koruyor
Yetki sayfasını gizliyor

Benim istediğim ise 10 şifresi yerine
2 mesajda attigim yoldaki şifre ne ise onu kullansın
Kullanıcı avatarı
selimileri0623
Siteye Alışmış
 
Kayıt: 18 Ağu 2019 10:27
Meslek: Işçi
Yaş: 38
İleti: 141
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MERSIN

Cevap: Şifreli Butonu Revize Etmek

İleti#3)  şahin » 29 Şub 2020 22:04

Sifre=10 yerine

Kod: Tümünü seç
Sifre = Worksheets("yetki").Shapes("sifre").OLEFormat.Object.Characters.Text


dene..
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 937
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Şifreli Butonu Revize Etmek

İleti#4)  selimileri0623 » 29 Şub 2020 23:25

Sayın şahin teşekkür ederim. Oldu
Aynı mantıkla
Kod: Tümünü seç
Sub Yetki_PDF_yap ()
    Dim DsyYol, Dsy, OutApp, OutMail, Sifre, MailSayf,
yer = Worksheets("yetki").Shapes("sifre").OLEFormat.Object.Characters.Text
InpSifre
    Sifre = yer
    Set MailSayf = Worksheets("yetki")
Basadon:
    InpSifre = InputBox("Sifre gir..", "Calisma Kitabi Sifresi")
    If InpSifre = "" Then Exit Sub
    If InpSifre = Sifre Then
        Application.ScreenUpdating = False
        ThisWorkbook.Unprotect Sifre
        MailSayf.Visible = True
.
.
.
.
.End With
        ActiveWorkbook.Close SaveChanges:=False
        Kill DsyYol & Dsy & ".xlsx"
        Set OutMail = Nothing
        Set OutApp = Nothing
        MailSayf.Visible = False
        ActiveWorkbook.Protect Sifre
        Application.ScreenUpdating = False
    Else
        MsgBox "Sifer yanlis tekrar deneyiniz.."
        GoTo Basadon
    End If
End Sub

Çalışma kitabı şifresini. "yer" den çekip
Çalışma kitabını koru dan açacak
Yetki sayfasını görünür yapacak
Yetki sayfasını SABİTLER sayfasi B5 hucresindekindeki yola kaydedecek ve açacak hemen .
Yetki sayfasını gizleyecek
Çalışma kitabı şifresi ni "yer" yolundan alip çalışma kitabını koruyacak
Kodda tıkandım
Kullanıcı avatarı
selimileri0623
Siteye Alışmış
 
Kayıt: 18 Ağu 2019 10:27
Meslek: Işçi
Yaş: 38
İleti: 141
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MERSIN

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Şifreli Butonu Revize Etmek

İleti#5)  şahin » 01 Mar 2020 14:06

Dosyayı paylaşırsanız (özel bilgileriniz varsa, kopyasını alıp verileri silerek) üzerinde çalışmak daha mantıklı..
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 937
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Şifreli Butonu Revize Etmek

İleti#6)  selimileri0623 » 01 Mar 2020 14:30

Şahin Bey
Linkteki 1. Mesajda hem program hem de şifreleri mevcuttur.

viewtopic.php?f=39&t=34871
Kullanıcı avatarı
selimileri0623
Siteye Alışmış
 
Kayıt: 18 Ağu 2019 10:27
Meslek: Işçi
Yaş: 38
İleti: 141
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MERSIN

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Şifreli Butonu Revize Etmek

İleti#7)  selimileri0623 » 02 Mar 2020 16:43

Sayın şahin bakma imkanınız oldu mu
Kullanıcı avatarı
selimileri0623
Siteye Alışmış
 
Kayıt: 18 Ağu 2019 10:27
Meslek: Işçi
Yaş: 38
İleti: 141
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MERSIN

Cevap: Şifreli Butonu Revize Etmek

İleti#8)  selimileri0623 » 03 Mar 2020 19:34

Bir fikri olan var mı
Kullanıcı avatarı
selimileri0623
Siteye Alışmış
 
Kayıt: 18 Ağu 2019 10:27
Meslek: Işçi
Yaş: 38
İleti: 141
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MERSIN

Cevap: Şifreli Butonu Revize Etmek

İleti#9)  selimileri0623 » 06 Mar 2020 20:34

Bu konuda yardımcı olabilecek var mı
Kullanıcı avatarı
selimileri0623
Siteye Alışmış
 
Kayıt: 18 Ağu 2019 10:27
Meslek: Işçi
Yaş: 38
İleti: 141
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MERSIN

Cevap: Şifreli Butonu Revize Etmek

İleti#10)  selimileri0623 » 09 Mar 2020 17:20

Sanırım konum havada kaldı
Kullanıcı avatarı
selimileri0623
Siteye Alışmış
 
Kayıt: 18 Ağu 2019 10:27
Meslek: Işçi
Yaş: 38
İleti: 141
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MERSIN

Cevap: Şifreli Butonu Revize Etmek

İleti#11)  selimileri0623 » 14 Mar 2020 11:00

Bu konuda hala yardıma ihtiyacım var. Yardım edebilecek var mi
Kullanıcı avatarı
selimileri0623
Siteye Alışmış
 
Kayıt: 18 Ağu 2019 10:27
Meslek: Işçi
Yaş: 38
İleti: 141
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MERSIN

Cevap: Cevap: Şifreli Butonu Revize Etmek

İleti#12)  şahin » 20 Mar 2020 22:48

selimileri0623 yazdı:Sayın şahin teşekkür ederim. Oldu
Aynı mantıkla
Kod: Tümünü seç
Sub Yetki_PDF_yap ()
    Dim DsyYol, Dsy, OutApp, OutMail, Sifre, MailSayf,
yer = Worksheets("yetki").Shapes("sifre").OLEFormat.Object.Characters.Text
InpSifre
    Sifre = yer
    Set MailSayf = Worksheets("yetki")
Basadon:
    InpSifre = InputBox("Sifre gir..", "Calisma Kitabi Sifresi")
    If InpSifre = "" Then Exit Sub
    If InpSifre = Sifre Then
        Application.ScreenUpdating = False
        ThisWorkbook.Unprotect Sifre
        MailSayf.Visible = True
.
.
.
.
.End With
        ActiveWorkbook.Close SaveChanges:=False
        Kill DsyYol & Dsy & ".xlsx"
        Set OutMail = Nothing
        Set OutApp = Nothing
        MailSayf.Visible = False
        ActiveWorkbook.Protect Sifre
        Application.ScreenUpdating = False
    Else
        MsgBox "Sifer yanlis tekrar deneyiniz.."
        GoTo Basadon
    End If
End Sub

Çalışma kitabı şifresini. "yer" den çekip
Çalışma kitabını koru dan açacak
Yetki sayfasını görünür yapacak
Yetki sayfasını SABİTLER sayfasi B5 hucresindekindeki yola kaydedecek ve açacak hemen .
Yetki sayfasını gizleyecek
Çalışma kitabı şifresi ni "yer" yolundan alip çalışma kitabını koruyacak
Kodda tıkandım


Linkte ki örnekte "SABİTLER" isinli bir sayfa yok
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 937
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Şifreli Butonu Revize Etmek

İleti#13)  selimileri0623 » 20 Mar 2020 23:43

Haklisiniz sizdeki dosyada yok . Ama bendeki dosyada var .Sabitler sayfasını siz ekleyip deneseniz.

Ben çok uğraştım. Ama yetki sayfasında sadece administrator ve şifresi pdf olunur geri kalan kullanıcıların olduğu satırlar pdf olmuyor. Sayfa on izle diyip ayarladım yine olmadı
Kullanıcı avatarı
selimileri0623
Siteye Alışmış
 
Kayıt: 18 Ağu 2019 10:27
Meslek: Işçi
Yaş: 38
İleti: 141
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MERSIN

Cevap: Şifreli Butonu Revize Etmek

İleti#14)  şahin » 21 Mar 2020 17:25

Ekte

Parola Giriş 24.rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 937
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Şifreli Butonu Revize Etmek

İleti#15)  selimileri0623 » 21 Mar 2020 22:22

Sayın şahin ben yaptığınızı anlamadım
yetki sayfasını pdf yapacaktı
ilk mesajımda tüm açıklamalar vardı.
SaveRangeAsPDF makrosu da hata veriyor
Kullanıcı avatarı
selimileri0623
Siteye Alışmış
 
Kayıt: 18 Ağu 2019 10:27
Meslek: Işçi
Yaş: 38
İleti: 141
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MERSIN

Cevap: Şifreli Butonu Revize Etmek

İleti#16)  şahin » 22 Mar 2020 11:52

Ekte

Parola Giriş 24 (1).rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 937
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Şifreli Butonu Revize Etmek

İleti#17)  selimileri0623 » 22 Mar 2020 14:16

sayın Şahin çok teşekkür ederim. Elinize emeğinize sağlık
Kullanıcı avatarı
selimileri0623
Siteye Alışmış
 
Kayıt: 18 Ağu 2019 10:27
Meslek: Işçi
Yaş: 38
İleti: 141
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MERSIN

Cevap: Şifreli Butonu Revize Etmek

İleti#18)  selimileri0623 » 23 Mar 2020 22:58

Kod: Tümünü seç
'PDF çevir
        Sayfa1.Visible = xlSheetVisible
        Sayfa1.Range("A143:G200").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Sayfa9.Range("B5") & "\Yetki.pdf", Quality _
        :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
        Sayfa1.Visible = xlSheetHidden

Şahin Hocam yukarıdaki kodu kendi dosyama yapıştırınca sadece administrator ve şidresinin olduğu a sutunun tamamı geliyor diğe sutunlar gelmiyor . ama sizin kodu yazdığınız dosya sorunsuz çalışıyor sorun nerede . nerede hata yapıyorum acaba
Kullanıcı avatarı
selimileri0623
Siteye Alışmış
 
Kayıt: 18 Ağu 2019 10:27
Meslek: Işçi
Yaş: 38
İleti: 141
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MERSIN

Cevap: Şifreli Butonu Revize Etmek

İleti#19)  şahin » 24 Mar 2020 10:24

Ben yetki sayfasını bağlı resim olarak yetki sayfasının A143 satıran yapıştırdım, PDF çeviriken bu resmi bulunduğu alanı seçerek çeviriyor, bu kodu farklı dosyaya atacaksan PDF çevirmek istediğin alanı seç kopyala ve başka bir yere sağ tıkla özel yapıştırdan bağlı resmi tıklayarak yapıştır ve bağlı resmin bulunduğu hücre aralığını yukardaki koddan değiştir yani
Kod: Tümünü seç
Sayfa1.Range("A143:G200").ExportAsFixedFormat Type:=xlTypePDF, Filename:
... burdaki Range("??:??") değiştir..
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 937
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Şifreli Butonu Revize Etmek

İleti#20)  selimileri0623 » 24 Mar 2020 14:07

Çok teşekkür ederim sayın Şahin
Kullanıcı avatarı
selimileri0623
Siteye Alışmış
 
Kayıt: 18 Ağu 2019 10:27
Meslek: Işçi
Yaş: 38
İleti: 141
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MERSIN


Forum VBE Penceresi

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe