2019 Da Yazılan Kod 2016 Da Açılmıyorsa?

[euphrates55]

2019 Da Yazılan Kod 2016 Da hata veriyorsa ne yapmam lazım. denemelerim sonucu 2016 - 2019 uyumsuzluğu gördüm. başka bir problemden kaynaklanıyor olabilir belki ama öngörüm şu an versiyon farkı. hata veren kodlar aşağıda.

Sub SAYFA_KORUMALARINI_KALDIR()
unpass = "0082"
For Each Worksheet In ActiveWorkbook.Worksheets
Worksheet.Unprotect Password:=unpass
Next
Exit Sub
End Sub



Sub sayfakoru()
sifre = "0082"
For I = 1 To Worksheets.Count
Sheets(I).Protect sifre, DrawingObjects:=False, Contents:=True, Scenarios:=True
Next I
End Sub

hata veren kısım ise unpass = "0082"

 

[Haluk]

Ne hatası veriyor, belirtmemişiniz ama....kodlarda unpass ve sifre değikenlerini "String" olarak tanımlayıp, deneyin ....

.

 

[euphrates55]

Ne hatası veriyor, belirtmemişiniz ama....kodlarda unpass ve sifre değikenlerini "String" olarak tanımlayıp, deneyin ....

.

string olarak denemek nedir bilmiyorum, üzgünüm. ekran görüntüsünü attım. yazdığım kodun yeri module3. bu kısım hata veriyor. kodu string dediğiniz şekilde düzenleme şansınız olursa ben de denemiş olurum. teşekkürler...

 

[Haluk]

Resime göre hatanın nerede olduğu belli değil, VBA projenizin şifresini kaldırıp, tekrar deneyin ....

.

 

[euphrates55]

Bu hata genellikle, kodun bu uygulamanın sürümüyle, platformuyla veya mimarisiyle uyuşmadığı durumlarda ortaya çıkar.
çevirisi bu. yüksek olasılık versiyon farkı dememi doğruluyor gibi. şifreyi kaldırmak çözüm olabilir ama benim yapmak istediğim şeyleri karşılamaz duruma düşer. yani bu şekilde çözüm olsa da bana sonradan sıkıntı çıkarabilir.

 

[Haluk]

Arkadaşım, anlatamadım herhalde ....

Sayfa değil, VBA projesinin şifresini kaldır ki; hatanın hangi satırda olduğunu ve başka bir şey diyorsa onu da görelim ...

.

 

[euphrates55]

vba şifresini kaldırdım. bahsettiğim kodları
aşağıdaki gibi düzenledim.

Sub SAYFA_KORUMALARINI_KALDIR()

Dim Worksheet As Worksheet

For Each Worksheet In ActiveWorkbook.Worksheets
Worksheet.Unprotect Password:="0082"
Next
Exit Sub
End Sub


Sub sayfakoru()
Dim pass As String
Dim repass As String
Dim i As Integer
Dim s As Worksheet
For i = 1 To Worksheets.Count
Next
For Each s In ActiveWorkbook.Worksheets
s.Protect Password:="0082"
Next
Exit Sub
End Sub

bu şekilde sanırım aştım fakat bu seferde aşağıdaki kod hata veriyor.

Sub bossatirgizleme()
Call SAYFA_KORUMALARINI_KALDIR
For Each t In Range("C75:C99,C37:C67,C107:C143").Cells
If t.Value = "" Then 'boş hücreleri gizler
t.EntireRow.Hidden = True
End If
Next t
Call sayfakoru
End Sub

Sub bossatirgoster()
Call SAYFA_KORUMALARINI_KALDIR
For Each t In Range("C75:C99,C37:C67,C107:C143").Cells
If t.Value = "" Then 'boş hücreleri gösterir
t.EntireRow.Hidden = False
End If
Next t
Call sayfakoru
End Sub

t de sıkıntı çıkarıyor gibi.

 

[Zeki Gürsoy]

Version uyumsuzluğuna neden olan başka şeyler de olabilir. Projeye bütün olarak bakmak lazım.

 

[euphrates55]

2016 varsa ve yardımcı olmak isterseniz dosyayı gönderebilir miyim


Tapatalk kullanarak iPhone aracılığıyla gönderildi