Yeni Kayıt
Konudaki Resimler
|
Hızlı 
Bildirim
Çalışma kitabını makro ile formülsüz kaydetme
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
2 Misafir - 2 Masaüstü
Giriş
Mesaj
-
-
Makrodaki bu kodları aşağıdaki verdiğim kodlarla değiştirip dener miziniz ? Verdiğim kodlar tüm sayfaları seçip değer olarak yapıştırıyor.
Cells.Select: Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
-------------------------------------------------
Sheets.Select
Sheets(1).Activate
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Sheets(1).Select
--------------------------------
Çalışma kitabında koruma derken dosya açılırken sorduğu açma korumasını mı, yoksa dosya içi korumayı mı söylüyorsunuz ? (Gözden geçir / Çalışma kitabını koru.)
Eğer ikinci seçenekse
ActiveWorkbook.Unprotect "ŞİFRE"
kodunu yukarıda verdiğim kodların en üstüne kopyalayın. şifre yazan yere koruma şifresini yazmalısınız.
Umarım işinizi görür. :)
-
cdemir
kullanıcısına yanıt
Hocam öncelikle ilginiz için çok teşekkür ederim.
Belirttiğiniz kısımları ilettiğiniz kodlar ile değiştirip kodu aşağıdaki duruma getirdim, ancak bu şekliyle hata veriyor; "Method 'Select' of object 'Sheets' failed" mesajı ile kodun "Sheets.Select" kısmında hata veriyor, bunu nasıl düzeltebiliriz bilginiz var mıdır.
Dosyada gizli sayfalar var ve çalışma kitabı koruması mevcut, bilmediğimden soruyorum acaba bu gizli sayfalardan dolayı sayfaları seçme hatası verebilir mi.
Ayrıca şifre içinde ikinci belirttiğiniz gibi durum; Gözden geçir / Çalışma kitabını koru kısmında yer alan korumadan bahsediyorum, bunun içinde verdiğiniz kodu yine sizin ilettiğiniz kodun kısmın üstüne yerleştirip "ŞİFRE" yazan yere parolayı yazdım ancak bir altta hata verdiği için çalışıp çalışmadığını kontrol edemedim.
Sub farklı()
Dim YL As String, ÇLŞ As Variant, KÇLŞ As Variant
YL = ThisWorkbook.Path & "\"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
KÇLŞ = ThisWorkbook.Name
ÇLŞ = ActiveCell.Address
ThisWorkbook.SaveAs YL & Replace(KÇLŞ, ".xlsm", ".xlsx"), xlOpenXMLWorkbook
ActiveWorkbook.Unprotect "190101.ISS"
Sheets.Select
Sheets(1).Activate
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Sheets(1).Select
Range(ÇLŞ).Select
ThisWorkbook.Save
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Workbooks.Open (YL & KÇLŞ)
Workbooks(Replace(KÇLŞ, ".xlsm", ".xlsx")).Close
End Sub
Düzeltme: Ekleme.
< Bu mesaj bu kişi tarafından değiştirildi ekpe_babam -- 5 Mart 2019; 8:29:27 >
-
Hocam tahmin ettiğiniz gibi sorun gizli sayfalardan kaynaklanıyor. Eğer o sayfaların görünür olmasında sorun yoksa makro ile onları da görünür yapabiliriz.
Tabi kopyala değerleri yapıştıra o sayfalarda dahil olacak.
Kaydetme işleminden önce o sayfaları tekrar gizleyebiliriz. Eğer uygunsa eve gittiğimde musait olunca kodları ayarlayabilirim :)
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
