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 :(

Excel default modda macro içeren bütün belgeleri korumalı modda açar ve bildirim gsterir. 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.

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.

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 grüntüle dediğinde birisi kodları gstermesin ya da şifrelesin. Byle 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 'You can also use a fixed range if you want 'Set rng = Sheets . Range("D4:D12"). SpecialCells 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 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 . 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 ' 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$ & "\" & Format & ".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 End With 'Read all data from the htm file into RangetoHTML Set fso = CreateObject Set ts = fso. GetFile . OpenAsTextStream(1, -2) RangetoHTML = ts. readall ts. Close RangetoHTML = Replace '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 :(

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 grüntüle dediği zaman herkes gremesin ş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 :(

Excel default modda macro içeren bütün belgeleri korumalı modda açar ve bildirim gsterir. 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 :(

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 :(

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ı;^^`) Zk't^^` RnSySyTk. dl. SpRtÇzBşBkYd Kryptia. agogE Sa'd-l'Suud az. ç'k 'lmyn'Dşn Pnct'tnAnNttn Blgi, YpBlgi 'Ct'nDrm. CmdyDrm. MdrnDrm hRşYdşR ClptcPth'Strsm M'nPhs' Ld, X/Y YrYnZmnGrçklk, AlgBzklğ KrzFrst'tr Tiytr' Pugchv, Jtrn, İmmlmn, FllngLef, Pik' SuprmcySprrty CoBehTh elFnmno:NzrioRonldo AdnKy TkSs, TkHrf . RtNsTk. KvMp. Mk. TrmDyn ScklkNmRzgr ŞkHcBy ccp. kky Snrlr'Çz SnaSnLzmsn 'NsnKsknçtr BgDppr. MagllnCl'ds. S'thCro's Ch'kW'ng CreazioneDiAdamo^^`, Arctrs. Spic' ArcScnd, YySnye TrbProp, TrbJet, TrbFan 3.10^5km/sn 343m/sn 900-1240m/snMacH RamJt, ScRamJt Przdi^^' Tbu. XL Prsek MAtv^^` mLAT G'dWllHnting . 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 _hey kim sylüyor, kim dinliyor." Imzanizi SubZero'ya bilgi vermeden degistirmeyiniz. Tesekkurler...

bunu dene bir de hacı https://s6. dosya. tc/server/sulxbb/Kitap2_-_Kopya. xlsm.html