folder Tahribat.com Forumları
linefolder Bilgisayarla İlgili Diğer Konular
linefolder Excel Hakkında Ufak Bir Yardım (E-Posta Buton Sorunu)



Excel Hakkında Ufak Bir Yardım (E-Posta Buton Sorunu)

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    DrKeworks
    DrKeworks's avatar
    Kayıt Tarihi: 04/Mart/2007
    Erkek

    Merhaba dostlar.

    İş yerinde kullanmak için oluşturduğum bir excel dosyası var. Tıklayınca bana email atması için bir buton koydum ancak sayfa korumasını aktif edince buton çalışmıyor. Ne kadar uğraştıysam da bir türlü yapamadım.

    İstediğim;

    Sayfayı koruma moduna da alsam buton çalışsın

    Butona basmadan önce tablodan en sağdaki "Malzeme Adı" satırını tıklayınca e-mail içeriğine o kutucuğu ekleyip atıyor. Ama ben istiyorum ki o kutucuğu tıkladığımda otomatik olarak bir soldaki "Sorun Açıklaması" kutucuğu da kendisi email'e eklesin ofset yapsın.

    Sayfa da kaynak kodu görüntüle dediğinde birisi kodları göstermesin ya da şifrelesin.

    Böyle bir şey yapabilecek bir arkadaş var mı?

    Dosya burada

    https://dosya.co/21s32ais69us/Kitap2.xlsm.html

     

     

    Dosyaya eklediğim kodlarda aşağıdaki gibi

    Sub Mail_Selection_Range_Outlook_Body()

    'For Tips see:

    'Don't forget to copy the function RangetoHTML in the module.

    'Working in Excel 2000-2016

        Dim rng As Range

        Dim OutApp As Object

        Dim OutMail As Object

     

        Set rng = Nothing

        On Error Resume Next

        'Only the visible cells in the selection

        Set rng = Selection.SpecialCells(xlCellTypeVisible)

        'You can also use a fixed range if you want

        'Set rng = Sheets("YourSheet").Range("D4:D12").SpecialCells(xlCellTypeVisible)

        On Error GoTo 0

     

        If rng Is Nothing Then

            MsgBox "The selection is not a range or the sheet is protected" & _

                   vbNewLine & "please correct and try again.", vbOKOnly

            Exit Sub

        End If

     

        With Application

            .EnableEvents = False

            .ScreenUpdating = False

        End With

     

        Set OutApp = CreateObject("Outlook.Application")

        Set OutMail = OutApp.CreateItem(0)

     

        On Error Resume Next

        With OutMail

            .To = "mailadresim@mail.com"

            .CC = ""

            .BCC = ""

            .Subject = "Satınalma Talebi Sorun Bildirimi"

            .HTMLBody = RangetoHTML(rng)

            .Send   'or use .Display

        End With

        On Error GoTo 0

     

        With Application

            .EnableEvents = True

            .ScreenUpdating = True

        End With

     

        Set OutMail = Nothing

        Set OutApp = Nothing

    End Sub

     

     

    Function RangetoHTML(rng As Range)

    ' Changed by Ron de Bruin 28-Oct-2006

    ' Working in Office 2000-2016

        Dim fso As Object

        Dim ts As Object

        Dim TempFile As String

        Dim TempWB As Workbook

     

        TempFile = Environ$("temp") & "\" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"

     

        'Copy the range and create a new workbook to past the data in

        rng.Copy

        Set TempWB = Workbooks.Add(1)

        With TempWB.Sheets(1)

            .Cells(1).PasteSpecial Paste:=8

            .Cells(1).PasteSpecial xlPasteValues, , False, False

            .Cells(1).PasteSpecial xlPasteFormats, , False, False

            .Cells(1).Select

            Application.CutCopyMode = False

            On Error Resume Next

            .DrawingObjects.Visible = True

            .DrawingObjects.Delete

            On Error GoTo 0

        End With

     

        'Publish the sheet to a htm file

        With TempWB.PublishObjects.Add( _

             SourceType:=xlSourceRange, _

             Filename:=TempFile, _

             Sheet:=TempWB.Sheets(1).Name, _

             Source:=TempWB.Sheets(1).UsedRange.Address, _

             HtmlType:=xlHtmlStatic)

            .Publish (True)

        End With

     

        'Read all data from the htm file into RangetoHTML

        Set fso = CreateObject("Scripting.FileSystemObject")

        Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)

        RangetoHTML = ts.readall

        ts.Close

        RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", _

                              "align=left x:publishsource=")

     

        'Close TempWB

        TempWB.Close savechanges:=False

     

        'Delete the htm file we used in this function

        Kill TempFile

     

        Set ts = Nothing

        Set fso = Nothing

        Set TempWB = Nothing

    End Function

     

     

     

    DrKeworks tarafından 07/Nis/21 13:35 tarihinde düzenlenmiştir

    Cigu bigule :(
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    cukurova
    cukurova's avatar
    Kayıt Tarihi: 21/Aralık/2003
    Erkek

    Excel default modda macro içeren bütün belgeleri korumalı modda açar ve bildirim gösterir. Zamanında ILoveYou gibi .vbs virüslerden çok başı yandı.

    Excelin seçenekler -> güvenlik merkezi ayarlarına bir bak, orada macroları doğrudan çalıştır seçeneği olabilir.

  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    DrKeworks
    DrKeworks's avatar
    Kayıt Tarihi: 04/Mart/2007
    Erkek
    cukurova bunu yazdı

    Excel default modda macro içeren bütün belgeleri korumalı modda açar ve bildirim gösterir. Zamanında ILoveYou gibi .vbs virüslerden çok başı yandı.

    Excelin seçenekler -> güvenlik merkezi ayarlarına bir bak, orada macroları doğrudan çalıştır seçeneği olabilir.

    Baktım hocam her şeye izin verdirdim ama yine çalışmadı


    Cigu bigule :(
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    RitmFarbRacourci
    RitmFarbRacourci's avatar
    Kayıt Tarihi: 14/Mart/2008
    Erkek

    tam anlamadım belki bilemiyorum da, 

    Excell'de, sayfanın içerisinde belli hücreleri ve içindekileri Koruma Dışı bırakabiliyordun.

    hücre özelliklerinden ayarlayabiliyordun. 

    ha, Makro'lar için geçerli midir hatırlayamadım. 


    I'şıkY'ılı;^^`) SySyRn.Çz.RtNsTk.KvMpMk.ŞkHcBy ccp.kky.sogh WeightTransfer AC/DC.HellsHellsBells.A10.ThunderBolt.Warthog Arctrs ArcScnd,YySnye YayKare TrbProp,TrbJet,TrbFan ~3.10^5km/sn~343m/sn ~900-1240m/snMacH Sub,Trans,Süper(Sonic) RamJt,ScRamJt Przdi^^' Tbu.XL dK.Y.Z.N Prsek CnpyStll.FlyByWre HeMoSi^^` MAtv^^` mLAT Lntirn Prallks,x SgittlAxilCronl S,P,KMg,Mn.Zn,Sn. G'dWllHnting(f). 3id't^^` TareZmenPr ParaMotor TrflrVArsİlşklr (-)+.(/)*,~ ZminŞkil . ..Bu imza @SubZero tarafindan degistirilmistir. "Bu kadar uzun karmakarisik bir imza yapma diye uyardim ama heeheeeey(^^D)_hey kim söylüyor, kim dinliyor." Imzanizi SubZero'ya bilgi vermeden degistirmeyiniz. Tesekkurler... Imzanizi SubZero
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    NoktaliVirgul
    NoktaliVirgul's avatar
    Kayıt Tarihi: 02/Temmuz/2007
    Erkek

    az önce net nesne hem form elemanı olarak bir buton koyup msgbox verdim. sayfayı ve çalışma kitabını koru dedim. şifre koydum. xlsm olarak kayıt ettim. kapattım. tekrar açtım.

    butonlar çalışıyordu.

    Outlook'um olmadığı için bir yerden sonra devam edemiyor kod ancak istediğin şeyi anladım. sayfa koruması varken rng değişkenine seçili hücreleri atayamıyor. Bu atamayı yapmadan önce sayfa korumasını kaldırtıp, iş bitince tekrar korumayı açabilirsin.

     

    NoktaliVirgul tarafından 07/Nis/21 15:17 tarihinde düzenlenmiştir

    If my calculations are correct, when this baby hits eighty-eight miles per hour... you"re gonna see some serious shit.
  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    DrKeworks
    DrKeworks's avatar
    Kayıt Tarihi: 04/Mart/2007
    Erkek
    RitmFarbRacourci bunu yazdı

    tam anlamadım belki bilemiyorum da, 

    Excell'de, sayfanın içerisinde belli hücreleri ve içindekileri Koruma Dışı bırakabiliyordun.

    hücre özelliklerinden ayarlayabiliyordun. 

    ha, Makro'lar için geçerli midir hatırlayamadım. 

    onu denedim de olmuyo hacı


    Cigu bigule :(
  7. KısayolKısayol reportŞikayet pmÖzel Mesaj
    DrKeworks
    DrKeworks's avatar
    Kayıt Tarihi: 04/Mart/2007
    Erkek
    NoktaliVirgul bunu yazdı

    az önce net nesne hem form elemanı olarak bir buton koyup msgbox verdim. sayfayı ve çalışma kitabını koru dedim. şifre koydum. xlsm olarak kayıt ettim. kapattım. tekrar açtım.

    butonlar çalışıyordu.

    Outlook'um olmadığı için bir yerden sonra devam edemiyor kod ancak istediğin şeyi anladım. sayfa koruması varken rng değişkenine seçili hücreleri atayamıyor. Bu atamayı yapmadan önce sayfa korumasını kaldırtıp, iş bitince tekrar korumayı açabilirsin.

     

    Merhaba

    Dediğin kodları bi ekleyip deneyeyim abi teşekkür ederim.

    Edit: olmadı abi yine aşağıdaki hatayı verdi.

    DrKeworks tarafından 08/Nis/21 09:53 tarihinde düzenlenmiştir

    Cigu bigule :(
  8. KısayolKısayol reportŞikayet pmÖzel Mesaj
    cicosz
    cicosz's avatar
    Kayıt Tarihi: 22/Ağustos/2005
    Erkek

    bunu dene bir de hacı

    https://s6.dosya.tc/server/sulxbb/Kitap2_-_Kopya.xlsm.html

  9. KısayolKısayol reportŞikayet pmÖzel Mesaj
    DrKeworks
    DrKeworks's avatar
    Kayıt Tarihi: 04/Mart/2007
    Erkek
    cicosz bunu yazdı

    bunu dene bir de hacı

    https://s6.dosya.tc/server/sulxbb/Kitap2_-_Kopya.xlsm.html

    @cicosz

    Hocam eline koluna sağlık çok teşekkür ederim. Koruma modundayken de çalışıyor.

    Sadece geriye 2 şey kaldı.

    Birincisi; Mesela A hücrerisine yalnızca B kullanıcısı düzenleme yapabilir, C hücresine yalnızca D kullanıcısı düzenleme yapabilir.

    İkincisi; Kod görüntüle dediği zaman herkes göremesin şifre gereksin ya da bir şekilde gizli olsun

    bu iki konuda yardımcı olabilirsen sana çam sakızı çoban armağanı bir hediye ateşliycem :))

     


    Cigu bigule :(